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Introduction: , , 

This disclosure describes a set of software programs whxch include: 

1) A graphical, user interface (wizards) 

2) A logic-generator 

3) A logic-synthesis tool 

4) A place- and^- route tool 

5) A programmable- logic configuration method 

Items (1) and (2) contain novel elements, and are the subject of th 
i s 

.disclosure. In the preferred embodiment, item (3) is a standard 
.preexisting logic -synthesis tool (e.g. Leonardo Spectrum, made by t 

■Exemplar corporation) . Items (4) and (5) are generally provided by 
the programmamble logic device vendor. In the preferred embodiment 

items (4) and (5) are facilities in the Quartus tool, made by the 
. Altera corporation. 

This' set of software programs - allows a user to describe a custom 
microprocessor system, including the CPU and peripherals, by operat 
ihg 

control elements within the grapical user interface (1) . After the 
description is complete, the user can- realize a physical 
implementation of this custom system on a programmable logic device 
(e,g. an Altera Apex device) . 

prior Art: 

Microprocessor-based systems have existed since at least 1970 (Hoff 

Faggin, et . al [intel 4004]), and have found widespread application 

• s- 

in a staggering variety of useful products. For many years, 
microprocessor systems were exclusively " Systems -on- a-board : " The C 

. memory, and each peripheral function each resided withxn their own 
integrated circuit (chip). These chips were connected together to 
form a working system by the traces of a printed -circuit board on 
which they were mounted. Many of today's microprocessor systems 
differ only in detail from this original arrangement. For example: 
since 1370, personal computers have achieved ubiquity, and today ! s 
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typical PC may be described as separate CPU, memory, and peripheral 
chips mounted on, and connected by, a printed-circuit board. 

In many systems, however, there are advantages to combining CPU, ^ 
peripheral, and/or memory functions on a single integrated circuit 
(chip) - This higher level of integration (more function on a singl 

e , 
chip) confers numerous advantages, including: Compact size, low 
per-unit cost, higher performance, ruggedness, and low power 
consumption. The advantages of implementing an entire microprocess 
- or 

system on a single chip is well -understood. In recent years, many 
•commercial tools and products have evolved specifically to aid in t 
he 

design, implementation, and commercial application of SOC 
. (System-On-a-Chip) products . 

In the prior art, there are two comrtion methods for implementing 
.integrated microprocessor systems: 

" 1). Standard "off-the-shelf" microcontroller components. 

,2) Customized microprocessor systems implemented on an ASIC. 

***'*; Microcontroller-based systems: 

Microcontroller components include a CPU, memory, peripherals, and 
I/O 

components integrated onto a single silicon die. Microcontrollers 
are 

sold as standard components. Microcontroller vendors typically offe 
r ■ 

a; fairly large number of product "variants" . Each variant has a 
.different particular mix of peripherals, memory types and sizes, 
and/or I/O resources. 

At present, microcontrllers are available in a wide variety of pric 

•performance, and peripheral -integration options. For example. The 
Microchip corporation of Chandler, Arizona sells a simple 8 -bit 
microcontroller with memory and I/O peripherals in an 8 -pin package 
for under $0.50 (PIC-12XXX) . Motorola (of ??, Illinois) sells a li 
ne 

of "PowerQuic" microcontrollers to the networking and communication 

■ ' s • 

market. These devices include a* powerful 32-bit CPU, rich pearipher 
al 

content, and specialized sub-units which can perform networking and 



SOPC BuilderJDisclosure.txt 



communications functions. Other microcontroller vendors include 
Intel, Zilog, Hitachi, Philips, ST Microelectronics, and many other 

Si 

System designers typically select the standard microcontroller 
component which most closely meets their needs. The electronic 
content of some embedded microprocessor systems can be implemented 
entirely within a standard microcontroller component (e.g- microwav 
e 

ovens, television remote-controls, etc) . More complicated systems, 
however, generally require some system- specific logic in addition t 

the peripherals and memory available! on a standard microcontroller. 
Most high- function microcontroller-based embedded systems generally 
include one or more chips in addition to the standard microcontroll 
eir 

component . 

**** ASIC-based systems: 

Microcontroller components allow system designers to take advantage 
of 

integration by offering standard "pre-packaged" collections of CPU, 
peripheral, and memory functions. This allows many of the chips in 
a 

traditional "system-on-a-board" to be combined into a single chip. 
But,, in some applications, cost, size, and/or power-consumption 
requirements may require an even higher level of integration. In m 

systems today, all of the system logic, including system-specific 
functions which are not offered in standard microcontroller product 

' are included on a single chip- System designers who require this 
level- of integration generally need to create a chip which is 
custom-designed to include all the required components- -often 
including a CPU, peripherals, and memory. Chips which are 
custom-designed to suit a particular application are often referred 
to 

as ASICs (Application-Specific Integrated Circuts) . The process of 
designing, verifying, fabricating, and testing ASICs (especially on 
es 

complicated- enough to include a CPU and peripherals) is understood 
to 

be a' time-consuming, risky, and' puni shingly expensive undertaking. 
Today, the design and verification process for a complex ASIC 
typically takes anywhere from 9 months to 2 years, requiring a team 
- of 

engineers using a variety of software tools which often cost $100,0 
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or more (e.g. Synopsys.DC, Formality, Avant ! , etc.)- The tooling 
charges for a state-of-the-art ASIC can cost hundreds of thousands 
of 

dollars. It is common for companies to invest more than a year and 
more than a million dollars in the design of a single ASIC. And th 
is 

l eve l 0 f investment does .not guarantee a working result. A 
nonnegligible percentage (-20%?) of ASICs are not functional on fir 
st 

silicon,, and require yet-more engineering effort, time, and money t 
o 

bring to production. 

Thus, the level of SOC 1 integration allowed by an ASIC has 
traditionally only been available to system designers with deep 
pockets, vast engineering resources, and an apetite for risk. Stil 

1, . ' . . 

the need for integration in many systems is so compelling that xt i 

s 

worth the cost, time, and risk of an ASIC-design process to achieve 
a 

system on a single chip. 
**** Programmable Logic. 

For more than a decade, programmable logic has offered an alternati 
ve 

to ASIC's high NRE costs and lengthy development schedules. Using 
programmable logic chips (from vendors such as Altera, Xilinx, and 
Actel) designers can realize a custom logic function in a single 
chip. A typical engineering and verification schedule for a 
moderately-complex programmable logic design ranges between a few d 
ays . 

and three months. Most modern programmable logic chips can be 

reconfigured with a. new design essentially instantly, and can be 
.updated' with new designs at-will. Chip-specific NRE costs for a 

programmable logic design (not including engineering) is typically 
' lfess than $10,000. Thus, programmable logic devices offer system 

designers access to a high level of custom integration at a f ractio 

n 

of ASIC cost and time, with very low risk (design errors can be fix 
ed 

in-place) . 

.Historically, programmable -logic devices have suffered from the 
following limitations (relative to ASICs) : 
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1) Substantially high per-unit ' cost . 

2) Lower performance (clock frequency) . 

3) Lower density (limited complexity on a single chip) . 



**** Summary: Implementation Choices 

Ih the prior art, system designers have used microcontrollers, ASIC 
s, 

and programmable logic according- to the following (very rough) 
de - facto guidel ines : 

■: * Standard microcontrollers are the solution-of -choice for system 

s 

with little or no custom hardware (logic) content. This is tru 

e ' 

for example, whefi most system functions are implemented in 
software. 

* ASICs are used in systems where per-unit cost, performance, or 
power- consumption are critical. Such applications often includ 

e; 

high- volume and/or portable devices . 

* Programmable logic is used in systems where flexibility and 
rapid time -to -market are critical, and which can tolerate 

a high per-unit cost . Such applications have included network 
infrastructure and communications equipment. 



**■"** Economic Backgrburig 'of the Current Invention; 

Until recently (CY1999 "and later) prbgirammable-logic devices have n 
ot 

offered high- enough density to integrate CPU- based systems. A CPU 
core by itself --without bus logic, peripherals, or memory-- would 
. hkve" occupied half or more of the logic in a high-density PLD, and 
cost*, more than ten times as much as the corresponding standard 
microcontroller component. Examples of high-density PLD devices 
(Circa 1998) include Altera 10K100E and [...fill in...]. These 
devices were not large enough (not enough logic on a single chip) t 
o. 

implement cost-effective microprocessor-based systems. 

; Recent developments . in Silicon wafer fabrication, logic design, 

synthesis, and place-arid-route technology have tended to reduce the 
.cost, performance, arid density limitations of programmable logic. 
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These technological advances can be -broadly characterized as the 
natural continuation of "Moore r s ' law" over the past three years. 
These developments have caused programmable logic devices (PLDs) to 
increase in density, performance, and cost-effectiveness every year 

Econbmies-of-scale in selling a- general chip to many customers, as 
opposed to a specific chip for one application, have tended to "nar 
row 

the gap" in density, performance, and cost between PLDs and ASIC so 
lutions . 

This invention was developed just as PLDs were reaching the market 
with- sufficient density to implement a 32-bit RISC CPU, a useful se 
t 

of peripherals (UART, timer, memory interfaces, etc), and still lea 
ve 

enough logic to implement custom (user-defined) functions. 
***** other Microprocessor Cores 

A : Microprocessor "core" is an . .abstract logic description (e.g. HDL 
code) of the logic which implements a microprocessor function. 

■Microprocessor cores are well-known -in the prior art. Designs for 
microprocessor cores can be licensed from several vendors including 

•ARC, . Tensilica, ARM, etc, A system designer can implement a 
properly-licensed microprocessor .core from any of these vendors in 
either an ASIC or a;PLD. The present invention includes a 
microprocessor core as one of its components, but the core by itsel 
f . 

is not the novel element . 

**** other PLD/Processor combinations 

The idea of combining a microprocessor function and an array of 
.programmable logic elements on a single chip is known in the prior 
.art. Chips which perform this function are available from 

the Triscend corporation (A7 and E5 devices, for example) . These 

devices differ from* the current invention because the CPU Core itse 

If 

is "hard" logic--it is implemented as a fixed logic function in 
' dedicated hardware on the chip. In .the current invention, the CPU 

cbre is "soft" logic- -it is implemented as a particular configurati 
• on 

of undif f erentiated programmable logic elements, with no hard funct 
ion 

at all. . 

**** Novel Elements of the Current Invention 
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The current invention comprises a novel combination of elements, ea 
ch 

of which is known individually in the prior art. Novelty arises fr 
om 

this particular useful combination of these elements. They are: 

1) A graphical user interface which allows users to specify a 
complete embedded microprocessor system, including the arrangefn 

ent 

of such elements as the CPU, peripherals, and memory interfaces 
(The GUI) . 

2) A program which' generates an abstract description (HDL) of the 
logic which implements the specified system. (The generator-pr 

bcjram) - 

3) A set of progratns which convert this abstract logic description 
into a PLD-specific configuration file (Synthesis tool + Quartu 

s ) . 

.4) A programmable logic device whidh can be configured to contain 
the specified system, perhaps in combination with other design 
elements , 

to implement the user-defined function. 

This -arrangement is novel. Graphical user interfaces for configuri 

hardware components' like microprocessors are knwon in the prior art 
(&RC cores T "ARChitect") . Graphical user interfaces for specifying 
a 

collection of microprocessor peripherals are also known (Tiriscend's 
"Fast Chip" tool) . But the particular application of such a tool to 
a 

soft-core microprocessor, resulting in a system which is entirely 
implemented as "soft" logic in a PLD, is novel. 

*.***- The Preferred Embodiment 

The remainder of this document describes the preferred embodiment o 
£ 

the current invention. It is meant to be instructive, but not 
limiting - 

**** Overall Tool Structure 

The ^combination of elements 1..4 above is collectively referred to 
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as 

the " System-Bui lder H tool. In the preferred embodiment, the 
system- builder tool 

**** The graphical User Interface. 

In the current invention,- it is desirable to guide the user through 
the system- specification process according to a step-by-step 
sequential procedure. At each step, the user answers a set of 
"Questions" {i.e. enters information or makes selections using GUI 
control elements) . These "questions" (choice of control elements) 
may 

or may not be modified as a result of user interactions from previo 
us 

steps . 

The preferred embodiment uses the "wizard" GUI-paradigm to guide th 

user through a step* -by- step sequence of choices. "Wizards" are 
well-known in the prior art, and- appear in such ubiquitous software 
tools as Microsoft Office (Microsoft Corp, Redmond, WA) . Wizards a 
re 

sufficiently- common interfaces that there are commerically-av'ailabl 
. e 

authoring tools which allow software designers to create wizard 
interfaces (xxxx??, also from Microsoft Corp). A flowchart diagra 
m 

.of a typical wizard- interface appears in Pig. 1. 

Wizards generally consist of an ordered list of "pages." Each page 
.presents the user with its "contents," which are a set of common 
graphical user interface control elements (check-boxes, radio but to 
xi- 

groups # drop-down selections, etc.). Each page includes a standard 
group of wizard-navigation controls,., usually implemented by four 
buttons at the bottom of the page. These controls allow the user t 

proceed through the. flow .("Next") , back-up to a previous page 
("Prev"), force the- process to completion ("Finish"), or abort the 
wizard, process altogether ("Cancel"), These choices are usually 
offered on every page of the wizard. The preferred embodiment uses 
a 

standard set of wizard -navigation controls in a conventional layout 
. similar to that found in (for .example) the aforementioned Microsoft 
products and in other Altera "MegaWizard" user-interf aces . The 
box .in Fig. 1 labeled "Generate Result" will implement a different 
action, potentially a very complicated one, which depends on the 
application at hand. Almost always, this will result in the 
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generation or modification of • files on the user's computer (or 
network) . The "letter" wizard in Microsoft Word, for example, woul 

create a Word document in the - format of a letter, with various 
contents and format specified by the user during the wizard- input 
process. 

Figure 2 shows details of the . "Generate Result" step for the Wizard 
in 

the current invention. This wizard is known as the 11 System- Builder 
11 

.Wizard (herein after: SBW). The SBW aggregates all of the user-inp 
ut 

choices from the various -preceding wizard pages and saves them to a 
file. In the preferred embodiment, these data are saved in the ad- 
hoc 

»PT?» file-format, which is a semi -human- readable, editable ASCII 
format. " PTF" is a specific case of the general class of ASCII 
dkta- formats well-known in the prior art. The choice of the 
" ptf- format in specific, and ASCII save-formats in general, is 
instructive but not limiting- -any of a variety of well-known save-f 

formats would work equally well.. Ah example of the PTF file format 

appears in Appendix A. 

In the preferred embodiment, the- generator program is a "command-li 
ne" 

Perl-script. This means that the program can be run by "typing a 
■command" at a shell-prompt, that it takes files as input, and that 
it 

produces text -only output and status information while it runs (in 
other words, it does not have its own GUI) . The System Builder 
wizard "runs 11 the generator program "as if it had been run from the 
cdmmand line . " Methods for one program to run or launch another 
stib-program are well-known to those of ordinary skill in the art, 
■Before the System Builder wizard launches the generator program, 
it displays a console window. Any status- or progress messages 
produced by the generator" program are displayed in this console 
window. This allows the user to monitor the progress of the 
generation process. 

in the preferred embodiment, The "generator program" in Fig, 2 is a 
■ Perl- script which, ultimately, produces an "EDF" -file. EDF is an 

ihduis try- standard netlist format .for describing logic circuits at a 
.very low (usually implementation-specific) level. The EDF format i 

■s.. 

-known to those of ordinary skill in the art. In the preferred 
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embodiment, the final product of the System Builder wizard is an ED 
P- 

file which describes a logic circuit which implements the embedded 
processor system. This is the embedded processor system which the 
user described using the GUI -controls in the System Builder wizard 
pages {and which, eqiiivalently, is described by the contents of the 
system PTF-file) . This EDF-file is referred to as the "system 
netlist." In the preferred embodiment, the EDF file is a "synthesi 
zed 

.netlist", which means that it , contains an exhaustive list of every 
technology- specific logic element {TjE) : in the design, and complete 
information about how they are wired- together . This EDF-file is on 
e 

o£ .the final products Of the generator program. This EDF-file can 
be 

■ read into Quartus arid used as a component (sub-module) in a user's 
logic design. 

* The jEDF-file produced by the generator- program implements an entity 
known as the "system module." The system module is a block of logi 
c 

. which impements the entire embedded processor system specified duri 
ng 

the wizard-flow process . The internal structure of this system mod 
ule 

is shown in Fig. 4.. (Note that this structure represents the' 
structure used to -specify- the system module, but that this struct 

• ure 

may have been lost if the design is, for example, "flattened" durin 

g. , ■ 

the synthesis process. Thus, Fig. 4 shows "all the xngredxents tha 

t 

went into the cake, 11 even though* they may no longer be distinct in 
- the 

final EE)F-output) The -system "module contains an instance of 'every 
module specified in the system 1 s- PTF-file , and additional modules 
which are created ab-initio by the generator program. One of the 
"Created" modules is. the system-module itself, which is a composite 
.•module that instantiates and connects all' other sub-modules in the 
system- Another "created" module is the PBM (Peripheral Bus 
Module) . This module Contains all the logic and wiring necessary t 
o 

connect the master-module to the interface ports on all the slave 
modules. The PBM may contain (but is not limited to) the elements 
shown in Fig. 4b. ■ In the preferred embodiment, this includes: 



* Address -decoding 

* Wait -state generation 
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* Databus multiplexing 

* Interrupt -control and prioritization. 

All of these elements are familiar to board- and chip- level embedde 

a 

systems designers, and are familiar to those of ordinary skill in t 
he art . 

"Perl" is a general -puirpose r open-source, freely-available interpre 
ted 

programming language. Installable versions of Perl, and extensive 
information about same? can be obtained from www.perl.org- Perl is 
commonly used for system- task scripting, text -file translation and 
manipulation, and web automation. 

Pig. 3 shows details of the generator program's operation in the 
preferred embodiment. First, the generator program reads the PTF-f 
lie 

which was created in step 1 of Fig. 2* This PTF-file contains a 
description of all "modules" in the user-specified system. A "modu 
le" 

is either a master (e.g. CPU) or slave (e.g. UART, timer, I/O block 
) 

in the user- specif ied system. The generator program parses the 
PTF-contents and extracts a list of -all modules in the system. Eac 

h . 

module must be an instance of a predefined library- component type. 
Library components are stored in a directory tree (by default, in t 
he 

preferred embodiment, in the directory 

c;/Altera/Excalibur/sopc_builder/compofrents) . Each library compone 
nt 

definition consists of a directory which contans a PTF-file and any 
other files (e.g. HDL, C-software and/ or Perl-scripts) which are 
specific to that component. Each module's description in the syste 
m 

PTF-file gives the name of its associated library component. When 
the . 

generator program runs, it attempts to find the library component 
associated with each module in the system. It does so by cheicking 

a : 

search path given by (for example) & registry key or environment 
Variable. Library .search-paths, registry keys, and environment 
variables are known'- to those of ordinary skill in the art. If the 
generator program is unable to find the library component associate 

with a module in the system, then the generator program terminates 
with an error. 
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Each library component" may (optionally) have its own "private" 
generator program which (for example) may produce an HDL descriptio 

te.g. Verilog or VHDL) of the particular instance (module) based on 
the description of that module in the system-PTF file. Alternative 

Simple library components may contain preexisting HDL files- -with n 
o 

n&ed for "on the fly" generator scripts. For each module in. the ^ 
. system, the master (system) generator-program will run the associat 

ed . 
library- component generator-program, if it exists. (information a£> 

out 

a library components 1 generator program, or lack thereof, is given 

in "... 
the library- comonent 1 s definition) . 

• Each library- component ? s generator program will have two results (i 

" general --there are ho specific limits on what other related or 
unrelated actions taken by a component generator program) . First, 
the 

' "sub-generator" will probably produce an HDL file which implements 
the 

module-in-question. Second, the sub -generator may add information 
to 

the system's PTF-file about the module which was just generated. T 
his 

additional information may include (but is not limited to) a list o 
f 

HDL- files which were created and a list of (and information about) 
each 

I/O port on the module which was created. 

After each module is generated, the master generator program extrac 
ts 

• a list of synthesis able HDL-files assocated with that module (this 
information is contained in the system 1 s PTF file) . This process 
(library- search and' sub-geherator-program run) is repeated for each 
module described in the system PTF file. 

At the conclusion of this process, an implementation 

(e.g. synthesizable HDL file) will have been created for every modu 
■ le 

in .the specified system) . The master generator script must then 
generate the PBM (Peripheral Bus Module) and the System Module. Th 
e 
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System Module contains no logic per-se> and is merely a "container" 
which instantiates and connects all of the other system components. 

In the preferred embodiment, the various master and slave modules, 
the 

P&M, and the system module are all implemented (generated) as 
one .or more (each) synthesizable Verilog files. The master 
generator program automatically synthesizes these files as a group 

("project") in order to create a single EDF implementation of the 
-system module and its contents. The process of logic synthesis 

(convering an HDL logic description into a technology-specific 
net list) is well-known to those of ordinary skill in the art. Seve 

ral ^ , 

vendord produce commerci&lly-&vailable synthesis tools, including^ 
Leonardo Spectrum, made by the Mentor Graphics Corporation, Synplif 

. rr&de by the Synplicity Corporation, and FPGA Express, made by the 
Synbpsys Corporation. In the preferred embodiment, the master 
generator program creates a comrnand-'f ile for Leonardo Spectrum. Th 
is 

command file provides instructions, including a list of HDL files, 
for 

Leonardo Spectrum- to synthesize the project and produce an EDF file 

Th the preferred embodiment, a version of Leonardo Spectrum is 
' ! "bundled with" (distributed and installed with) the generator progr 
aim 

and the. system builder wizard. The master generator program runs 
(launches) Leonardo- Spectrum in Such a way that it reads the 
• command- file and synthesizes the- project. The result will be the 
system module's EDF netlist. 

" Figure 5 shows a detailed flow of the "Generate PBM" step shown in 
Figure 3. All of the steps in figure 5 are executed as part .of the 
master generator program's normal operation. First, the master 
generator program extracts system- connect ion information from each 
module defined in the PTF-f ile (this information is contained in th 
e 

• SYSTEM_BUILDER_JENFO sections visible within each MODULE section in 
Appendix A) . In addition, the master generator program extracts a 
list of all I/O ports on each module (this information is contained 
in 

the PORT_WIRI!SrG secfcioxis visible within each MODULE section in 
Appendix A) . For each port on each module, the master generator 
program (MGP) determines if the port is used to interface to the 
master (via the PBM), or if the. port serves some unrelated purpose . 
.Ports which are not. used for the PBM-interf ace are "promoted," and 
appear as (and are Connected to) a top-level I/O port on the final 
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System Module. The master generator program keeps a list of all 
module -ports which are used to connect to the PBM. Information abo 
ut 

how .the port is used (including whether or not it is used to connec 
t 

to the PBM) is contained iri each port ' s PORT section within the 
PORT^WIRING sections, as shown in the example in Appendix A. PORT 
sections also contain information about how the port connects to on 
e 

of the several internal PBM functional units shown in Fig. 4b. The 
master generator program can use - this information to generate logic 
for each of the functional untis contained within the PBM and, of 
course, the PMB itself. 



APPENDIX A: 

Example PTP file^ format 

**************************************************************** 
**************** BEGIN EXAMPLE **************** 

********************* ********************************* ********** 

#. file: . /ref_32_systerrwptf 

# date: 2001.03.13 18:45:06 

# generated by a perl script 
# 

SYSTEM ref_32 system 
{ 

WIZARD SCRIPT ARGUMENTS 
{ 

ma inmerrwnodul e = ,r ext^ram " ; 
datamem_module = "ext__ram"; 
maincomm_module = "uartl"; 
gdbcomrnjrnodul e = "uartl"; 
germs_jnonitor_id ^ "ref 32-vl . i" ; 
' reset_offset * "0x0"; 
reset_module = "boot^mohitor_rom" ; 
vecbase_of f set = "0x0"; 
veobase_mo&ule = "ext^ram";. 
* Principal JTri_S tat e_JData__Bus ~ "ext_ramjbus" ; 
* skip_synth.= "0"; 

device_family •« "APEX20KE" ; 
cloc)c_freq- = "33333000"; 
hdl_languad[e =s "verilog"; 
compiler = "quart us"; 

} 
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MODULE ref _3 2_system_cpu 
{ 

class = "altera^nios"; 
class_version = "1.1"; 
HDL_INFO 

Synthesis_HDL_Files = " .:/ref_32_system_cpu_dr . v, . /ref_3 
2^system_cpu_ar . v, ./ref J32_system_cpu_cr . v, . /ref_32_systera__cpu_regi 
ster^ram.v, . /ref_32_systetn__cpu_major_opcode_table .v, . /ref_32_system 
_cpu_subtable_w. v, . /ref__32_systern_cpu_instruction_decoder . v, . /ref_3 
2^system_cpu_cpu_core . v Tt ; 

MIF Files ==. " - /ref__32_system_cpu__major_opcode_table.mif 
, - . /ref _32_system__cpu_subtable_w . rnif 11 ; 

SYSTEMJBUlLDER_INFO 
{ 

IsJBusjyiaster = "1"; 
Is_Enabled .= "1";- 

Instantiate_In_Systetn_Moduie = "1"; 
DatajATidth .= "32" ; 
Address JWidth = "21"; 

Date_Modified = "2001". 0 .26 - 11 : 41 : 32" ; 

} 

WI ZARD_SCRI PT_ARGUMENTS 
{ 

num_regs - "256 n ; 

shift_size = "7"; 

mstep = "1"; 

multiply - "0"; 

wval id_wr = "0" ; 

rom_ decoder = 11 1"; 

ma i nme m^mo dul e = " ext_ram" ; 

datamenvjrtiodule = "ext_ram" ; 

maincoirati^module = "uartl" ; 

gdbcomm^module = "uartl",; 

germs_monitor__id = "ref 32 -vl . 1" ; 

reset__off set = "0x0"; 

reset_module = "bootjmonitor^rom" ; 

vecbase_of f set - 11 0x0"; 

vecbase_module - n ext_ram"; 

. } 

PORT_WIRING 
{ 

PORT mem__be_n 

{ 

direction = "output"; 
width = " 4 " ; 

avalon_role = "byteenablen" ; 
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} 

PORT irq_number 
{ 

direct ion = 11 input n ; 
width. = "6" ; 

avalon_role = "irqnuThber" ; 

} 

PORT i fetch 
{ 

direction = "output" ; 
width = "1"; 
avalon_role = "if etch"; 

} 

PORT elk 
{ 

direction = "input" ; 
width- = "1" ; 
avalon_role = "elk"; 

} 

PORT metn_addr 
{ 

direction = "output"; 
width = . "21" ; 
avalon_role = "address 11 ; 

} 

PORT mem_is_32_Jbits 

{ 

direction = "input"; 
width = "l"; 

avalbn_role = "memis32bits" ; 

} 

PORT irq 
{ 

direct ibn ■ = " inplit " ; 
width - "1"; 
avalonjrole - "irq"; 

} 

PORT data_from_cpu 

{ 

direction = "output"; 
width - "32"; 

avalon_role = "writedata" ; 

} 

PORT data_to__cpu 

{ : 

direction = "input"; 

width = "32" ; 

avalon role « "readdata"; 
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} 

PORT mem_wr_ja 

{ : . 

direction = 11 output"; 
width = "1"; 
avalon__role = "writen ,r ; 

} 

PORT mem_rd_n 

{ 

direction « "output"; 
width ~ "1" ; 
avalon__role = "readn" ; 

•} 

PORT reset_n 
{ 

direction = 11 itiput " ; 
width = "1" ; 
avalonjrole = "resetn" ; 

} 

PORT bus_wait 

{ 

direct ion = " input " ; 
width = "1"; 

avalonjtole = "waitrequest " ; 

} 

} 

} 

MODULE boot_m"onitor__rom 
{ 

class = "a'2teta_avalori_onchip_memory" ; 
class_version - ,f 1 . 1 11 ; 
" HDL INFO 
{ 

MIF^JFiies - 11 . /boot_monitbr__rom.Tnif' 1 ; 
Synthesis_HDLJFiles ~ " . /boot_monitor_rdm. v" ; 

} 

. SYSTEM__BUILDER_INFO 
{ 

Instantiate_In_System_Module = "1"; 

Is_Enabled:= "1"; 

I s_Bus_ - Master = " 0 " ; 

I s__Membry_Devi c e = " 1 " ; 

Uses_Tri_ i _State_Data__Bus "0"; 

Address_Al igrim^nt = 41 dynamic " ; 

Address„Width = "8" ; 

Data_Width = "32" ; 

Has_IRQ = n 0"; 

Module__Desc = "memory" ; 
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Base__Address » "0x0"; 
Address__Span = 11 1024"; 
Read_Wait_States =* "0"; 
Write_Wait__States = "0"; 
Date_Mtfdified = "2001 . 1 .5 . 4 :32 :28" ; 
IRQ_Nutriber- = "N/A" ; 
Tri__State__Data_Bus « » " ; 

} 

WI ZARD_SCRI PT_ARGUMENTS 
{ 

Writeable « "0" ; 
Cont exit s « " germs " ; 
Initfile - 

} 

PORTJWIRING 
{ 

PORT address 

{ 

direction = "input"; 
width - " 8 " ; 

avalon_ro 1 e = " addr e ss"; 

} 

PORT read data 

{ 

direction = "output 11 ; 
width = "32" ; 
avalon_role = "readdata"; 



.} 

MODULE uartl 
{ 

class - "altera_avalbn_uart " ; 
class_version = "1.1"; 
HDL INFO 
{ " 

Synthesis HDL Files = /uartl ,v" ; 

} , ~. ~ 

SYSTEM BUILDER INFO 

{ " 

Instantiate_In_Systera_Module = " 1" 
Is__Enabled = "1" ; 
Is_BusJMaster = "0"; 
Is__Printable_Device = " 1"; 
Uses^Tri^StateJData^Bus = "0"; 
Address^_Alignment = "native" ; 
Address^ftidth = "3"; 
Data_Width = "16"; 
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Has__IRQ = "1"; 
IRQ_Number • « "26"; 
Module_Desc = "uart" ; 
Base_Address = 11 0x4 0 0"; 
Read_Wait_Sta"tes = "1"; 
WriteJWaitJStates = "0"; 
DateJYtodified = "2001 . 1 . 5 . 5 : 54 : 51" ; 
Tri__State__Data_Bus = " " ; 

} 

W I ZARD_S CR I PT__ARGUMENT S 
{ 

baud = "115200"; 

datajbits = "8"; 

f ixed_baud - = "1"? 

parity « «N n ; 

stopjbits = "2"; 

clock freq - "33333000"; 

} 

PORT WIRING 
{ 

PORT txd 

direction = "output"; 
width = » 1"; 

PORT data_£rom__cpu 

direction = "input"; 
width = "16"; 

a va 1 on^ro 1 e = n wr i t edat a " ; 

PORT rxd 

direction " input" ; 
width = "1" ; 

PORT data_to_cpu 

direction - "output"; 
width = "16"; 
avalon_jrole = "readdata"; 

PORT uart_select 

direction = "input" ; 
width = " 1 " ; 

avalon_role = "chipselect" ; 

} 
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PORT aggregate_irq 
{ 

direction = "output"; 
width = "1"; 
avalon_role = "irq"; 

} 

PORT elk 
{ 

direction = "xnput"; 
width = " 1 " ; 
avalbn_role = "elk"; 

} 

PORT resetji 

.{ 

direction =* "input"; 
width = "1"; 
avalon^role = "resetri"; 

} 

PORT metr\_r_wn 
{ 

direction = "input"; 
width =."1"; 
avalon_irole = "writen"; 

} 

PORT mem_addr 

{ 

direction = "input"; 
width - "3"; 

avalon_role = "address"; 

} 



MODULES s events eg_jpio 

class = ,1 altera_avalonj?io tl ; 
clas severs ion = "1.1"; 
HDL_INF0 

{ 

Synthesis_HDL__Files = " . /geven^segjpio. 

} 

SYSTEM_BUILDER_INFO 
{ 

Date_MO'dif ied = "2001.0.26.11:42:39"; 
Module_jDesc = "pio"; 
Is_Enabled = "1" ; 
Is_Bus_Masfer = " 0"; 

Instantiate_In_System__Module = "1"; 
Uses Tri State_Data_Bus = "0"; 
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Has_IRQ = n 0 " ; 
IRQ_Number . = "N/A 1f ; 
Address_Width = "2"; 
Datajffidth = "16"; 
Address_Alignment = "native 11 ; 
Read__Wait_States = u l" ; 
Write__Wait_^States = "0"; 
Base_Address = "0x420"; 
Tri_State_DataJBus - " ,r ; 

WI ZARDJ3CRI PT_ARGUMENTS • 
{ 

has__tri; = »o"; 
has_out-« 11 1"; 
has^in = "0" ; 
edge_type = "NONE" ; . 
irq^type = "NONE" ; 

} 

PORT_WIRING 
{ 

PORT mera_be_n 

{ 

direction = "input"; 
width = "2"; 

avalon_role = "byteenablen" 

} 

PORT Clk 
{ 

direct ion = "input"; 
width = "1"; 
avalbn_role = "elk"; 

} 

PORT mem_addr 

{ 

direction = "input"; 
width - "2"; 

avalon_role = "address"; 

} 

PORT pio_select 
{ 

direction = "input" ; 
width = "1" ; 

avalon_role = "chipselect" 

} 

PORT data_f rotn_cpu 

{ 

direction = "input"; 
width = 11 16 11 ; 



SOPC Builder Disclosure.txt 



avalon_role = " writedata" ; 

} 

PORT data_to_cpu 

{ 

direction "output"; 
width = "16"; 
avalon_irole - "readdata"; 

} 

PORT out _port 

{ 

direction = "output"; 
width = "16"; 

} 

PORT reset_n 

{ 

direction = " "input" ; 
width = "1"; 
avalonjrole = "resetn"; 

} 

PORT metn__r__wn 

{ 

direction = " input "; 
width « "1"; 
avalon^role = "writen" 

} 

} 

} 

MODULE timer 1 
{ 

class = " altera_avalon_t inter " 
class_version = "1.1"; 
. HDL_INPO 
{ 

Synthesis_HDL_f ilea = " . /timerl . v" 

} 

SYSTEM_BUILDER_INFO 
{ 

Instant iate_In_SystfetaJMbdule = "1" 
IsJEnabled = "1"; 
Is_Bus_Master = "0";. 
UsesJTri_State_JData_Bus = "0"; 
Address"^_Alignment = "native" ; 
Addressjtfidth = "3"; 
Dat a_Width = "16"; 
Has_IRQ = "1"; 
. IRQJSFutnber == "25"; 
Module_Desc = "timer"; 
Base_Address - "0x440"; - 
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Read_Wait_States = "1"; 
Write_Wait^States = "0"; 
Date_Mbdified = "2001.0.26.11:42:58"; 
Tri_State_Data_Bus = " " ; 

} 

WI ZARD_S CRI PT_ARGUMENTS 
{ 
} 

P0RT_WIRING 
{ 

PORT irq 

{ 

di re'ct ion = " output " ; 
width "1" ; 
avalon_role = "irq 11 ; 

} 

PORT data_f rom_cpu 

{ 

dir eic t i on = " input " ; 
width = "16"; 

avalon_role = "writedata" ; 

} 

PORT data_to__cpu 

{ 

direction = "output"; 
width = "16" ; 
avalon_role = "readdata"; 

} 

PORT elk 
{ 

direction - 11 input " ; 

width = ; T, 1" i 

avalon role = "elk"; 

} 

PORT reset n 

{ 

direction = "input"; 
width = "1" ; 
avalon__role = "resetn"; 

} 

PORT mem r_wn 

{ 

direction = "input"; 

width « " 1 " ; 

avalon role = "writen"; 

} 

PORT mern^addr 

{ 



SOPC Builder Disclosure , txt 



direction = H input"; 
width = "3" ; 

avaldn role = "address"; 

} 

PORT timer^select 

{ 

direction = "input"; 
width = "1";. 

avalon__role = " chipsel ect " ; 



MODULE led pio 

{ .... 

class = "altera_avalon_pio n ; 
class_jversion = "1.1"; 
. HDL__INFO 

{ 

Synthesis_HDL_Files = " . /led_pio - v" 

SYSTEM_BUlliDER_INFO 
{ 

Date_Modif ied = "2001 . 0 .26. 11 :43 : 37 

Module_jbesc = "pio" ; 

Is_Enabled = "1"; 

Is__Bus_JVIaster = "0"; 

Instant iate_In_System_M6duie = "1" ; 

Uses_JTri__State__Data_Bus = "0"; 

Has_IRQ = "0"; 

IRQ_Number - "N/A" ; 

Address_Width = "2"; 

DataJWidth "2"; 

AddresSj_Alignment = "native" ; 

Read_Wa±t_States "1" ; 

Write_Jtfait__States = "0"; 

Base_Address « "0x460"; 

Tri_jState Data Bus = " " ; 

} ~- ~ 

WIZARDSCRIPT ARGUMENTS 

■ { 

has_tri.= "1"; 
has__out -=* "0 " ; 
has_in = " 0 n ; 
edge__type = "NONE" ; 
irq_type - "NONE"; 

. } 

PORT_WIRING 
{ 



SOPC Builder Disclosure - txt 



PORT meTn_be_n 

{ 

direction = 11 input 11 ; 
width - 11 1" ; 

avalon__role - "byteenablen" ; 

} 

PORT bidir _port 

{ 

direct ion = " inoUt " ; 
width = "2" ; 

} 

PORT elk 
{ 

direction ■ - " input " ; 
width - "1"; 
avalbn_irole = lT clk"; 

} 

PORT mett\__addr 

{ . 

direction = "input"; 

width = "2"; 

avalon role = "address"; 

} 

PORT pio_j3elect 

{ 

direction = "input"; 
width = "1"; 

ava 1 on_ro 1 e = "chipselect " ; 

} 

PORT data_frora cpu 

{ . . ~ . 

direction = "input"; 
width = "2"; 

avalon role ~ "writedata" ; 

} 

PORT data to cpu 

{ 

direction = "output"; 
width = "2" ; 

avalon role = "readdata"; 

} 

PORT reset n 

{ 

direction = "input" ; 

width = "1" ; 

avalon role = "resetn"; 

} 

PORT mem . r wn 
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{ 

direction = "input"; 
width = "1"; 
avalon_role = "writen" ; 

} 

} 

} 

MODULE buttonjpio 

class =* "altera_avalon_pio fr ; 
c las s_vers ion = 11 1 - 1" ; 
HDL_INFO 

. ^ Synthesis_HDL_Files « " ./btitton_pio 
} 

SYSTEMJBUILDER_INFO 

^ Date_Modified = "2001.0.26.11:44:10 
Module_Desc = "pio" ; 
IsJEnabled ;« "1"; 
Is__Bus_Master = "0 1 ';- 
Instant iate_In^System_Mbd\ile = "1"; 
Uses_Tri_State^Data_Bus = "0"; 
Has_IRQ*= "1" ; 
IRQJMumber « "27" ; 
Address_Width = "2"; 
Data_Width-= "12"; 
Address^Alignment = "native" ; 
Read__Wait_States « "1"; 
Write__WaitjStates = "0"; 
Base_Address « "0x470"; 
Tri__State_pata_Bus = 11 " ; 

} 

WI ZARD_S CR'I £>T_ARGUMENTS 
- { 

has_tri * "0"; 
has_out = " 0 11 ; 
has_in * "1"; 
edge_type = "ANY" ; 
irq_type = "EDGE" ; 

} 

PORT_WIRIN6 
{ 

PORT meTnJbe_n 

{ 

direction = "input"; 
width - "2"; 

avalori_role = "byteenahlen" ; 
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} 

PORT elk 
{ 

direction = "input"; 
width = ."1" ; 
avalon_role = "elk"; 

} 

PORT mem_addr 

{ 

direction « "input"; 
width = "2" ; 

avalon_role = "address 11 ; 

} 

PORT pio_select 

{ 

direction = "input"; 
width - "1" ; 

avalon_role = "chipselect".; 

} 

PORT in_j?ort 

{ 

direction « - "input" ; 
width = "12" ; 

} 

PORT irq 

{ 

d i r e c t i on .= "output " ; 
width - "1"; 
avalon__role = "irq"; . 

} 

PORT data_from_cpU 

{ 

direction = "input"; 
width = "12" ; 

avalon_jrole = "writedata" ; 

} 

PORT dat&_to_cpu 

{ 

direction = "output"; 
width = "12"; 
avalon__role = "readdata" ; 

} 

PORT reset_n 
{ 

direction - "input"; 
width = "1" ; 
avalon_role = "resetn" ; 

} 
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PORT mem_r_wn 

{ 

direction = '♦input 11 ; 
width = Tl l"; 
avalon_role = "writen" ; 

} 

} 

} 

MODULE lcdjpio 

{ 

class = n alte£a_avaloTi_jpio" ; 
clas severs ion = "1.1"; 
HDL_INFO 

. { 

Synthesis_HDL_Piles = "./lcd_pio.v 

} 

SYSTEM_BUILDER_JENFO 
{ 

Date_Modified - "2001.0.26.11:44:5 
Module_Desc = "pio"; 
Is_Enabled = "1"; 
Is_Bus_Master = "0"; 
lnstantiate_lnjSystem_Module = "l" 
Uses m Tri_State_Data__Bus = " 0 " ; 
Has__IRQ. = n 0 n ; 
IRQ_Number - !, N/A" ; 
Address_Width = "2"; 
Data__Width « "11"; 
Address_Aligntnent = "native"; 
Read_Wait_States « "1"; 
Write_Wait__States = "0"; 
Base_Address = " 0x4 8 0 11 ; 
Tri__State__Data Bus = " " ; 

- } 

W I ZARD_SCRI PT_ARGUMEKTTS 
{ 

has__tri . = "1 » ; 
has_out = ,r 0"; 
has_in = " 0 " ; 
edge__type = "NONE " ; 
irq_type = "NONE" ; 

} 

PORT_WIRING 
{ 

PORT mem_be_n 

{ 

direction = "input"; 
width = "2"; 
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avalon_role = ^byteenablen" ; 

} 

PORT bidir_jport 

{ 

direction = "inout"; 
width = "11" ; 

} 

PORT elk 
{ 

direction - "input"; 
width = "1"; 
avaldnjrole = "elk"; 

} 

PORT mem_addr 

{ 

direction - - " input " ; 
width = "2"; 

aval on_rol e = " addr e s s " ; 

} 

PORT pio_select 

{ 

direction = "input"; 
width = "1"; 

avalon_role = "chipselect 11 ; 

} 

PORT data_f rom_cpu 

{ 

direction = "input 11 ; 
width = "11"; 

avalon_role = "writedata" ; 

} 

PORT data_to_cpu 

{ 

direction = "output" ; 
width = "11"; 
avalon_role = " readdata " ; 

} 

PORT reset^n 

{ 

direction = "input"; 

width = "1" ; 

avalon role - "resetn"; 

} 

PORT mem_r_wn 

{ 

direction = "input" ; 

width = "1" ; 

avalon role = "writen" ; 
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} 

} 

} 

MODULE ext_ram 
{ 

class = " al tera_nios_dev_bOard_sram3 2 " 
class_version = "1,1"; 
HDL INFO 



PORTJWIRING 
{ 

PORT data 
{ 

width = "32 tT ; 
is__shared = "1."; . 
direction = " inout " ; 
avalonjrole = "data"; 

} 

PORT address 
{ 

width- = - "16" ; 
is_jshared - "1"; . 
direction = "input"; 
avalon_role = " address " ; 

} 

PORT read n 
{ 

width = "1"; 
is__shared = "l* 11 ; 
direction = "inpiit"; 
avalon role = "readn"; 

} .■ ~ 

PORT write n 
{ 

width- = "1"; 
is_shared - " 0 11 ; 
direction = "input"; 
avalbn_role = "writen" ; 

} 

PORT be_n 
{ 

width = "4" ; 
i s_shared - " 1 11 ; 
direction = "input"; 
avalon__role = "byteenablen" 

PORT select 0 n 
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{ 

width = "1"; 

is_shared = "0" ; . 

direct ion = ,! input 11 ; 

avalon_role = " regis tetedselectn" 

} 

PORT selection 
{ 

width = "1"; 

is_shared = " 0 " ; 

direction = " input " ; 

avalon_role = "registeredselectn 1 

} 

} 

SYSTEM_BUlLDERJENFO 
{ 

Is__Enabled - "1 B ; 

Instantiate_In_Sy'stemjMbdule = "0"; 
Is_Bus^Master = "0"; 
Is_Memory_Device = "I"? 
Uses JTri_State^DataJBus ; = 1 11 ; 
Uses_R£gistered_Select_Signal « 11 1" 
Address_Alignment' = "dynamic" ; 
Datajffidth = 11 3 2 n ; 
Address^Width - "16"; 
Has_IRQ = " 0 11 ; 
IRQ_Number - "N/A" ; 
Read_Wait_States = "0"; 
Write_Wait_States = "0"; 
HoldJIime = . "half _ciock" ; 
- Inst an6e_Name = " - -.unknown- - " ; 
Base_Address = "0x40000"; 
Tri_State_Data__Bus - " e3ct — ram_bus " ; 
Date Modified = "Jari 11.2001"; 



MODULE ext_f lash 
{ 

class = "a:ltera_nio3_dev_board_f lash" ; 
class_jvers ion = "1.1"; 
HDL INFO 



PORT_WIRlNG 
{ 

PORT data 
{ 

width = "16"; 
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is__shared = "In- 
direction = "inout"; 
avalon_role = "data"; 

} 

PORT address 
{ 

width =. "19" ; 
is_shared = "1"; 
direction = "input"; ; 
aval on role = "address"; 

} 

PORT read_n 
{ 

width = "1"; 
is_shared = "In- 
direction^ "input"; 
. avalon role - "readn"; 

} 

PORT write_n 
{ 

width = " 1 " ; 
is_shared « "O? 1 ; 
direction - "input" ; 
avalbn_role = "writen"; 

} 

PORT be_n 
{ 

width = "2"; 
is__shared « "1"; 
direction = "input"; . 
avalon role = "byteenablen" ; 

} . " 

PORT select n 
{ 

width = " 1 " ; 
is_shar£d = " 0 " ; 
direction = "input"; . 
avalon_role = "registeredselectn 



SYSTEM_BUILDER_INF0 
{ 

IsJEnabled =■ "1"; 

Instant iate_In_SyStem__Module = "0" ; 
Is_Bus_JVIaster = "0"; 
Is_MemO'ry_Device * "i"; . 
Uses_Tri_State_Data_Bus ;= " 1 " ; 
Uses_R6gistered_Select_Signal = " 1 " 
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Addres s__Al igiiment = " dynami c 11 ; 
Data_Width = »1S«; 
Address_Width = "19"; 
Has_IRQ = T, 0" ; 
IRQ_Number = "N/A" ; 
ReadJWaitJStates = "8"; 
Write_Waitj.States = "8"; 
Instanc'eJJame = " - - unknown ~ - " ; 
Base_Addiress = "0x100000"; 
Tri__State__Data_Bus = " ext_ram_bus 11 ; 
DateJModified = " Jan_10_20 01 » ; 

} 

System_Wizard_Version - " 1 . 1 11 ; 
System_Wi zar-d_Build = 11 0 " ; 

} 



* * * * * * * * * ***************** *-k ********* ***********************^*** 

**************** END EXAMPLE **************** 

******** ******** ************************** ********************** 
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use vpp; 

###################################################################### 
5 # these files should really be in some util module 
sub HDL__Display_Hash 
{ 

my (%h) = @_; 

10 goldfish "displaying hash"; 

foreach $a (keys (%h) ) 
{ 

warn 11 $a -> $h{$a}\n" ; 

} 

15 } 

sub HDL_Read_File 
{ 

my $file = shift or ribbit "no file specif ied\n" ; 
20 open (FILE, "<$f ile" ) or ribbit "cannot open file ($file) ($l)\n"; 

my $return_string; 
while (<FIIiE>) 
{ 

$return_string .= $„; 

25 } 

close (FILE) ; 

return ( $return_string) ; 

} 



30 sub HDL_Write_File 
{ 

my $file = shift or ribbit "no file specif ied\n" ; 

my $string = shift or ribbit "no string specif ied\n" ; 

35 open (FILE, ">$f ile" ) or ribbit "cannot open file ($file) ($!)\n" ; 

print FILE $ string; 
close (FILE) ; 

} 

# these files should really be in some util module 

40 ###################################################################### 

###################################################################### 

# HDL_Remove_Comments 
# 

45 # removes comments from an entire string depending on language 

# specified 

###################################################################### 

sub HDL_Remove_Comments 

{ 

50 my $string = shift or ribbit "no string specif ied\n" ; 

my $language = shift or "verilog" ; 

if ($language =~ /verilog/i) 
{ 

55 $string =- s | \/\* . *?\*\/ | | gs; 

$string =- s | \/\/ . *$ | | gm; 
return ($string) ; 

} 

if ($language =- /vhdl/i) 
60 { 

$string =- s | \-\- . *$ | | gm; 
return ($string) ; 

} 



ribbit "language ($language) not understoodVn" ; 

} 

############################################################################### 
# 

# HDL_Count_Parentheses 
# 

# so i have a string always @ (blow (me) (leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 

# beginning and last parentheses. I call HDL_Count_Par en theses and it 

# returns 3 values, the beginning string: "always @", the parenthesized string 

# "blow(me) (leonardo | synplicity) " and the last string "blerg (boof)". 
# 

# If I want to search on something other than parentheses, say begin, end, I can 

# place their values in $begin_match and $end_match. 

############################################################################### 
# 

sub HDL_Count_Parentheses 
{ 

my ( $string, $begin_match, $end_match) = @_; 
my $begin_string; 
my $ par en_s t ring; 
my $end_string; 

my $begin_match_default = ' \s*\(\s*'; 
my $end_match_de fault = 1 \s*\)\s*'; 

$begin_match = $ beginjmatch_.de fault unless ($begin__match) ; 
$end_match = $end_match_de fault unless ( $end_match) ; 

return ( ,f '* , " " , " $ string" ) 

unless ($string =~ / A ( . *? ) $begin_match ( . *) $/s) ; 

$begin„string = $1; 

my $paren_count = 1; 
$end_string = $2; 

while ($end_string =~ s/^ (.*?)( $begin__match | $end_match) (.*) $/$3 /s) 
{ 

my $match; 
$match = $2; 
$paren_string .= $1; 

if ($match =- /$begin_match/ ) 
{ 

$paren_count++ ; 

} 

else 
{ 

$paren_count = $paren_count - 1; 

} 

last if ( $paren_count == 0) ; 
#else 

$paren_string .= $match; 

} 

ribbit "mismatched $begin_match, $end_match in string 
$begin_string$paren„string$end_string" if ( $paren_count 1= 0); 

return ( $begin__string, $paren„s tring, $end_string) ; 

} 

###################################################################### 
# HDL_Get„Module_Info 



# 

# HDL_Get_Module_Info goes through a string, finds all the modules it 

# can and gets as much information as it can about each module. It 

# stores all of the information in a gigantic hash pointed to by $mp . 

# Here is the structure of $mp . If something in the table below has 

# <> around it i.e <f oo_name> , That means the name is a variable. The 

# perl type cast operators are used to specify what type the value is 
# 

# %mp 

# %<module name> the name of each module found 



# @port_order the order of ports declared by <module name> 

# %signal list of ports and signals 

# %<port or signal name> name of port/signal 

# $left port/signal left index 

# $right port/signal right index 

# $width port /signal width i.e (abs ($left - $right) 
+ 1) 

# $direction port only { input/ output /inout) 

# $type „ wire or register (verilog) (type for vhdl 
e.g. std_logic_vector) 

# $assignment the value assigned to signal, or the entire 
always block 

# for registers 

# %instance list of all instances in module 

# %<instance_name> name of instance 

# $module module that is being instantiated 

# $ library vhdl only (name of library) 

# %hash points to $mp{$module} gets assigned in 
HDL_Munge_Data 

# %connection list of connections 

# %<module_port> name of signal that points to 
$module . <modul export > 

# @always_order array of each always blocks from "begin" to 



" end" 
# 

###################################################################### 



sub HDL__Get_Module_Inf o 
{ 

my $string = shift or ribbit "no string <$string) specif ied\n" ; 
my $language = shift or "verilog"; 



my %module; 

my $mp = shift; 

$mp = \%module unless $mp; 



$ string = &HDL_Remove_Comments ($ string, $ language ) ; 

if ($ language =~ /verilog/ i) 

{ 

# crush definitions for now. Later we can use v2vhd's reader 

# that handles defines 



$string =~ s/ /v \s*\ % def ine\s+ . *$/ /mg; 
#suck up an entire module declaration, 
while ($string =- s/ \bmodule\s+ ( \w+) \s* 

\{{.*?)\) 
( .*?> 

\bendmodule \b/ / sx ) 



{ 



#module <name> 
# (<port„list>) ; 
#<module_innards> 
#endmodule 



my { $name, $port_list , $module_innards) = ($1,$2,$3) 



############### 

#put cleaned up port list into hash 



$portJList =~ s/ A \s* ( .*?) \s*$/$l/s; 

@{$mp->{$name} {port_prder} } = split ( /\s*\ , \s*/s , $port_list) ; 



############### 

5 # now go through each command in module innards and extract data 

my $port_types = " input \ | output \ | inout " ; 
#foreach $command (split ( /\s* \ ; \s*/s , $module_innards ) ) 
while ( $module_innards =~ s/ yx \s*(.*?)\s*\;//s) 
{ 

10 #$command =~ s/^\s* ( . *?) \s*$/$l/s; 

my $command - $1; 
#ports and signal declarations 
if ($command =~ / A \s* ( $port_types | reg | wire | integer) ([ \s\ [].*) /os ) 



15 { 



my (Stype, Sports) = ($1,$2); 
my $width; 



if ($ports =~ s/ /v \s*\[(.*?)\: (.*?)\] (.*)/$3/) 

20 { 

# if port [left: right] store vector fields 

# appropriately 

my ($left_index, $right__index) = <$1,$2); 
25 $width = abs ($left_index - $right_index) + 1; 

$mp->{$name} {signal} {$port} {left} = $left„index; 
$mp->{ $name} {signal} { $port} {right} = $right_index; 

} 

else 

30 { 

# else its just a bit of width 1. 
$width = 1; 

} 

35 # ports/ signals can be comma separated, so loop through 

# all comma separated ports 
$ports =~ s/^\s* ( .*?) \s*$/$l/s; 
foreach $port (split { /\s*\ , \s*/s , $ports) ) 

{ 

40 if ($type =~ /$port_types/o) 

{ 

#if this was a port declaration. . . 

#check that $port was defined in port list above. 

ribbit 

45 "port $port is not found in port list $ports\n" 

unless ($port_list 

s/\s*\b$port\b\s*\, ?\s*//s) ; 

istore additional data, type may get overwritten 
50 #later if the same signal is declared as a reg 

$mp->{ $name} {signal} {$port} {direction} = 
$type; 

$mp->{$name} {signal} {$port} {type} = "wire"; 

} 

55 else 

{ 

#not a port declaration 

$mp-> {$name} {signal} { $port} {type} = $type; 

60 #only wire statements can have =s in them. 

if ($ports =~ s/^.*?\=\s*(.*?)\s*$//s) 
{ 

$mp->{$name) {signal} {$port} {assignment} = $1; 



} 

} 

$mp->{$name} {signal} {$port} {width} = $width; 

} 

5 next ; 

} 

#now parse instantiations. 

if ($command =~ /*\s*(\w+) #<module_name> 
10 \s+(\w+) #<instantiation_name> 

\s*\(\s*(.*?)\s*\) #{(.a) b, (.c) d) 
\s*$/sx) 

{ 

my $instance_name = $2; 
15 $mp->{$name} {instance} { $instance_name} {module} = $1; 

my $connection_list = $3; 



20 



#make a ref for easier coding later ref comes into 
#existence after we declare {module} = <module_name> 



my $ref = $mp->{$name} {instance} {$instance_name} ; 
#store away connection info 
foreach $connection (split 

( As*\, \s*/s, $connection_list) 

25 ) 

{ 

($connection =~ / A \s*\ . (\w+) \s*\ (\s* ( . *?} \s*\) / ) or ribbit 

"connection ( $connection) not understood\n" ; 
my ( $module_port , $external__port ) = ($1,$2); 
30 $ref->{connection} {$module^)ort} = $external_port ; 

} 

} 

#assign statements 
35 while ($command ~- 

s/ A \s* (assign\s+r\ = ] *?) { [a-zA-Z]\w*) ( [ A \ = ] *?\ = \s* ( .*?) \s*) $ 
/$1\ $3/sx) 

{ 

$mp->{$name} {signal} {$2} {assignment} = $4; 

40 } 

############### 

# handle always statements 

# there is currently a screw case here, if you do 

45 # something like always if adsfsdf; else case asdf sadf fa; , 

# it won't work. if you do always () a <= c; or always {) 

# begin .... end it will work. 

if ($command =~ Ab (always .*?( \bbegin) ?) /s) 
{ 

50 my $pre_begin = $1; 

my ( $pre_begin, $always_guts , $af ter_guts ) = 

&HDIi_Count_Paren theses ( 11 $command\ ; $module_innards " , "begin" , "end" ) ; 

55 #print "command ($command) pb ($pre_begin) ag ( $always_guts ) afg 

($after_guts) \n" ; 

if ( $always_guts) 

{ 

60 $module_innards = $after_guts; 

$always_guts = ,! $pre„begin begin $always_guts end" ; 

} 

else 



{ 

$always__guts = $ command; 

} 

push (@{$mp->{$name} {always_order} } , $always„guts) ; 
############### 

# search through a always statement. Whenever an 

# assignment is made to <signal> set <signal> {assignment} = 

# the whole always statement. 

my $tmp_always_guts = $always_guts ; 
while ($tmp_always_guts 
s/ (\sbegin\s | \; ) \s* (\w+) \s*\<?\={1> . *?\;/$l/is) 
{ 

$mp->{$name} {signal} {$2} {assignment} = $always_guts ; 

} 

} 

} 

# now we are done with module innards, make sure all ports 

# were defined. 

if ($port_list =~ /(\w+)/) 
{ 

ribbit "module $name has ports ($port_list) specified in port list, 
but not declared inside module declaration\n" ; 

} 

} 

return ($mp) ; 

} 

if ($ language =~ /vhdl/i) 
{ 

$string =~ tr/A-Z/a-z/; 

#now everything is lower case. 

while ($string 
s/\s*\bENTITY\s+ (\w+) \s+IS\s+ ( .*?) \s+END\s+\l\s*\; \s*//si) 
{ 

my ($name) = $1; 

my ($port, $port_list, $sc) = &HDL_Count_Parentheses ( $2 ) ; 

ribbit "Entity $module_name declaration, port list not understood 
($port) ($sc) " 

unless ((Sport =~ /^port\s*$ /is) && 
($sc =~ / A \s*\; /is) ) ; 

$port_list =~ s/ A \s* ( .*?) \s*$/$l/s; 

foreach $port_declaration (split ( /\s*\ ; \s*/s, $port_list) ) 
{ 

($port_declaration =~ s/ /v \s*SIGNAL\s+ ( \w+) #port_name 
\s*\ : \s* (\w+) #direction 
\s+(\w+) #type 
//six) or ribbit 

"entity $module_name , port $port misunderstood"; 
my ( $port , 

$direction, 

$type) = ($1,$2,$3) ; 

die "port is bogus ( $port , $direct ion, $ type ) \n" 
. " ($1, $2, $3) ($port„declaration) \n" 
if ($port eq " " } ; 

push ( @- { $mp-> { $module„name } {port_order} } , $port_name) ; 



$direction .= "put" 

unless ($direction eq " inout" ); 
$mp->{$riame} {signal} { $port} {direction} 

$direction; 
$mp-> { $name } { s ignal } { $por t } { type } 

$type 
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15 



20 



25 



30 



35 



my 
if 
{ 



$width; 

($port_declaration =-~ 



s/\{ (.*)\)//s) 



my $vector = $1; 

my ($lef t_ index, $f oo, $right_index) = 

($vector =- s/ A \s* ( . *?) \s* (down) ?to\s* { . *) \s*$//si) 

or ribbit "port $port, vector $vector not understood" 

$width = abs ($left_index - $right_index) + 1; 
$mp->{$name} {signal} {$port} {left} = $left_index; 
$mp->{$name} {signal} {$port} {right} = $right„index; 

} 

else 
{ 

$width = 1; 

} 

$mp->{$name} {signal} {$port} {width} = $width; 



} 



#now get architecture 
while ($string =- s/\b 
architecture\s+ 
(\w+) \s+ 
of \s+ (\w+) \s+ 
is\s+( .*?) \b 
begin\b 
( .*?) \b 

end\s+\l\s*\; \s*//six) 



# architecture 

# <behavior> 

# of <entity> 

# is <signal_list> 

# begin 

# (behavior description) 

# end <behavior> ; 



{ 



my ($name, $signal_list, $behavior) = ($2,$3,$4); 



40 



$signal_list =- s/ A \s* { . *?) \s*$/$l/s ; 



foreach $signal_declaration (split ( / \s*\ ; \s*/s , $signal_list ) ) 
{ 

( $signal_declaration 

45 s/^\s* (SIGNAL | SHARED \s+VARI ABLE) \s+(\w+) # SIGNAL <signal_name> 

\s*\ : \s* (\w+) # : <type> 

//six) or next; # (forget about vhdl 



TYPE 

50 



# declarations for now.) 

my ($signal 7 $type) = ($2,$3); 



# type e.g. is std„logic or std_logic„vector 
$mp->{$name} {signal} {$ signal} {type} = $type; 

55 

my $ width ; 
############### 

#signal_declaration now has only vector information left 
#{if anything). 
60 if ($signal_declaration =- s/\ ( ( . *) \) //s) 

{ 

tassign vector info if it is a vector, 
my $ vector = $1; 



my (Slef t_index, $£00, $right„index) = 

($vector =~ s/ A ( .*?) \s* (down) ?to\s* ( . *) $//si) 

or ribbit "port $port, vector $vector not understood" 

$width = abs ($left„index - $right_index) + 1; 
$mp->{$name} {signal} {$signal} {left} = $left_index; 
$mp->{$name} {signal} {$signal} {right} = $right_index; 

} 

else 
{ 

$width = 1; 

} 

$mp->{$name} {signal} {$signal} (width} = $width; 



$behavior =~ s/^\s* ( . *?) \s*$/$l/s ; 

############### 

# handle process statements 

while ($behavior =- s/\bprocess\b\s* #process 
( r *? ) #stuf f 

\s*\bend\s+process\s*\; \s*//six) #end process 

{ 

my $process_guts = $1; 

push (@{$mp->{$name} {always_order} } , $process_guts) ,- 
############### 

# search through a process statement. Whenever an 

# assignment is made to <signal> set <signal> {assignment} = 

# the whole process statement . 

my $tmp^?rocess_guts = $process_guts; 
while ($tmp_process_guts 
s/ (YbTHEN\s|\; ) \s* ( \w+ ) \s* { \< | \ : ) \=-*?\; /$l/is) 
{ 

$mp->{$name} {signal} {$2} {assignment} = $process__guts ; 

} 



############### 

#now all that is left is signal assignments and instantiation 

foreach $ command (split ( /\s*\ ; \s*/ , $behavior) ) 

{ 

# just handle simple wire assignments, no lhs concatenation 

# craziness for now. 

if ($command /"\s* ( \w+) \s* #<lhs> 

\<\=\s* #<= (assignment operator) 

{.*?)\s*$ #<rhs> 
/six) 

{ 

my ($lhs,$rhs) = ($1,$2); 

ribbit "lhs is null in c ($command)" 

if ($lhs eq ,t ") ; 
ribbit "rhs is null in c ($command) " 

if ($rhs eq " " ) ; 

$mp->{$name} {signal} {$lhs} {assignment} = $rhs; 
next ; 

} 

#handle instantiation 

if ( $ command =~ 

/* (\ w +) \s*\ : \s* (entity\s+) ? #<instantiation> : entity 
(\w+) \ .? (\w*) \s* #<lib>.<module> 



(.*)/six) #<port map (elk...) 

{ 

my ( $ ins tance_name , 
$ entity, 

$ 1 ibrary_pr„module , 

$module, 

$rest) 

= ($1,$2,$3,$4,$5) ; 
############### 

# if "entity" is declared, then module has a library, 

# otherwise its a component with no library, 
my $ library = " " ; 

if ($entity) 
{ 

$library = $library_or_module ; 

} 

else 
{ 

$module = $library_or_module; 

} 

#assign stuff to hash 

$mp->{$name} {instance} { $instance_name} {module} = 
$module; 

$mp->{$name} {instance} {$ ins tance_name} {library} = 
$ library; 

my $ref = $mp-> {$name} { instance} {$instance_name} ; 
############### 

# split up port map and assign connections 
my $port_map = $rest; 

$port_map =~ s/ A . *?\bport\s+map\s* ( \ ( . *) /$l/is or 
&ribbit 

("no port map for instantiation $ins 

($ command) " ) ; 

my ($pre, $pm, $end) = &HDL_Count_Parentheses 

($port_map) ; 
$pm s/\s+//sg; 

my ©connections = split (/\,/,$pm); 

foreach $c (©connections) 

{ 

my ($module__port , 

$external_port) = 

split (/\=\>/,$c); 

############### 

# a big hack for now, 

# crush all those (0) cases which convert 

# std_logic_vector (0 downto 0) to std_logic 
$external_port =~ s/\(0\)$//s,- 

$ref-> {connection} { $module_port } = $external_port ; 

} 

} 

} 

} 

return ($mp) ; 

} 

ribbit "language ($language) not under stood\n" ; 



} 
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sub HDL_List_Ports„For_Module 
{ 

my $module_hash = shift or ribbit "no hash"; 
my $module = shift or ribbit "no module" ; 

my $tmp = &HDIj_Get_By_Path ($module_hash, " . $module .port_order " ) ; 
my @module__port_array = @$tmp; 



my $list_ports„for_string; 
foreach $port ( @module_port_array ) 
{ 

$list_ports_for_string .= 
15 "$port | 

$module_hash->{$module} {signal} { $port} {width} 
$module_hash->{$module} {signal} {$port} {direction} , 



60 



} 

&List_Ports_For ($module / $list j?orts„f or_string) 



} 



###################################################################### 
25 # HDL_Munge_Data 
# 

# For assigning items in which you don't know the declaration order, 

# e.g for stuff that happens across module boundaries, you have to wait 

# until all data is known before you can start processing it. Its 

30 # also good to do as much work here as possible because you only have 

# to do it once here rather than once for each of the supported 

# languages. 

###################################################################### 

35 sub HDL__Munge_Data 
{ 

my $hash = shift or ribbit "no hash" ; 

foreach $module ( &HDL_Get_Keys_By_Path ( $hash , " " , " " , 0 ) ) 
40 { 

my $boo = $hash->{$module} {instance} ; 
my @asdf = keys (%$boo) ; 

foreach $ instance (&HDL_Get_Keys_ByJ?ath( $hash, " $module . instance" ,1) ) 
{ 

45 my @tmp = keys (%{ $hash->{$module} {instance} }) ; 

my $instantiated_module = &HDL_Get_By_Path 
( $hash, 

"$module. instance. $ instance. module" , "") ; 

50 ############### 

#assign instance parent name and hash 
$hash->{$module} {instance} { $instance} {hash} = 
$hash->{$instantiated_module} or warn 

"module ($module) instantiates unknown module 

55 ($instantiated_module) \n" ; 

$hash->{$module} {instance} {$ instance} {parent } = 
$hash->{$module} ; 



############### 

# if you have a module declaration "<module> <instance> ((.a) 

# b) " and module. a is an output, then what you're really 



# saying is (assign b = <instance> . a) . We do that assignment 

# now for all output ports of the $instance here. 

my $mod_sig = &HDL_Get_By_Path 
($hash, 

" $module . instance . $ instance . connection" ) ; 

foreach $port (keys (%$mod_sig) } 
{ 

i f ( &HDL_Ge t_By_Pa th 

($hash, " $instantiated_module. signal. $port. direction" , 1) 

=~ /^out/i) 

$hash-> { $module } { signal } { $ $mod_s ig { $port } } { as signment } 
= " $ ins t ance . $por t " ; 

} 

} 



} 

} 



# HDL_Get_Module_Info_From_File 

# ■ 

# wrapper around get_module_inf o . Does language determination based 

# upon file extension. 

###################################################################### 

sub HDL__Get_Module_Info_From__File 
{ 

my %h = @_; 

$h{file> or ribbit "no file specif ied\n" ; 

if ( !$h{ language}) # if language not specified, determine from file 

# suffix. Default is verilog 

{ 

$h{language} = "verilog"; 
$h{ language} - "vhdl" 

if ($h{file} =~ /\.vhdl?/i); 

} 

my $module_string = &HDL__Read_File ( $h{f ile} ) ; 

my $module_hash = &HDL_Get_Module_Inf o ( $module_string, 

$h{ language} , 
$h{hash}) ; 



return ( $module_hash) ; 



} 



####### ############################################################^^# 

# HDL_Get_Module_Info_From_Files 

# wrapper around get_module_inf o__f rom„f ile . Munges data after all 

# modules are known. 




sub HDL_Get_Module_Info_From__Files 
{ 

my %h = 

$h{f ile_array} or ribbit "no file array"; 
my %hash; 



foreach $file (@{$h{f ile_array} } ) 
{ 

my $hash = &HDL_Get_Module_Inf o_From_File ( f ile => $file, 

hash => \%hash, 
language => $h{ language } ) 

} 

#now we have all the data given to us from the file list. 
#play with it a bit 
&HDL_Munge_Data(\%hash) ; 

return (\%hash) ; 

# HDL_Get_Keys_By_Path 
# 

# Sugar around Get_By__Path, it just assumes value gotten is a hash and 

# returns its keys. Could do error checking with ref operator 

sub HDL_Get_Keys_By_Path 
{ 

my $pHash = shift or ribbit "no hash" ; 
my $rel_j?ath = shift; 
my $Quiet = shift; 
my $debug = shift; 

warn " \n\nHDL_Get_Keys_By_Path : " 
if $ debug; 

my $ref_hash = &HDL_.Get_By_Path ( $pHash / $rel_path, $quiet , $debug) ; 
my &return_array = keys (%$ref_hash) ; 

warn "done with HDL_Get_Keys_By_Path returning (@return_array) \n" 

if $ debug; 
return (@return_array) ; 

# HDL_Set_By_Path (NOT FINISHED) 
# 

# An experiment in setting by path. currently we use the all powerful 

# arrow operator 
sub HDL_Set_By_Path 
{ 

my $pHash = shift or ribbit "no hash"; 
my $rel_path = shift; 
45 my $value = shift or ribbit "no value"; 

my $make new._path = shift; 

$rel_path =~ s/\s+//g; 

$rel _path =~ s/ /v \s*\ .?(.*?) \ . ?\s*$/$l/ ; #take off initial and final 

50 

$rel_path =~ s|\.|\}\{|g; #change a.b to a} {b 
#to be continued 

#$rel_j?ath =~ ; 

55 } 

###################################################################### 

# HDL_Get_By_Path 

# __, 

60 # You pass in hash and a " . n separated path. It progresses down the 

# hash tree and gives you your result. If it cannot go down the tree 

# and $quiet is FALSE. It ribbits where it failed and displays the 

# leaves available at that point, if ($guiet) it just returns " " 



###################################################################### 

sub HDL_Get„By_Path 
{ 

my $pHash = shift or ribbit "no hash" ; 
my $rel_path = shift; 
my $quiet = shift; 
my $ debug = shift; 

$rel_path =~ s/*\s*\ .?(.*?) \s*$/$l/s ; 
warn " \n\nHDL_Get_By_Path: rel path is $rel_path\n" 

if ($debug) ; 
my ©path = split ( /\s*\ . \s* / , $rel_path) ; 
my $ indent ; 

while {$child = shift (©path)) 
{ 

my $child_options = join ( " or\n" , (sort (keys %$pHash) ) ) ; 

if ($debug) 
{ 

warn " $ indent $pHash -> ($child) \n" ; 
$ indent .= " 

} 

$pHash « $pHash->{$child} ; 

if (!$pHash) 
{ 

return ( " " ) if $c[uiet ; 

fcribbit ( " ($child) unknown in $rel„path\n\n" 

."known options are : \n ( $child_opt ions) \n" ) ; 

} 

} 

if ($debug) 
{ 

warn "$ indent returning $pHash\n" ; 

} 

return ($pHash) ; 

} 

###################################################################### 
# HDIi_Get_Module_By_Instance_Path 
# 

#You pass in hash and a " . " separated path. It progresses down the 
45 # instantiation list and returns the module name at the end of the tree 
###################################################################### 
sub HDL__Get_Module„By_Instance_Path 
{ 

my (%h) = ©_; 

50 

$h{path} or ribbit "no path specified"; 
$h{hash} or ribbit "no hash specified"; 

$h{path} =~ s/\s+//g; 

55 

my ©path = split ( / \ . / , $h{path} ) ; 

my $top = shift ©path; 
$top = shift ©path 
60 if (Stop =~ /*\s*$/) ; 

my $hash = $h{hash} ; 



while (©path) 
{ 

my $leaf = shift ©path; 
$top = &HDL_Get_By_JPath 

{$hash, " $ top. instance. $ leaf .module") ; 

} 

return ($top) ; 

} 

###################################################################### 

# HDL_Get_Parent_Connection 
# 

# returns the full path of the signal that connects to an instance 
###################################################################### 

sub HDL_Get_Parent_Connection 
{ 

my (%h) = @_; 

$h{path_and_signal} or ribbit "no path and signal specified"; 
$h{hash} or ribbit "no hash specified"; 

my @path„a = split { /\s*\ . \s*/s , $h{path_and„signal} ) ; 

my $signal = pop (@path_a) or ribbit "we get no signal"; 

my $instance = pop (@path_a) or ribbit "we get no instance"; 

my $path = j oin { n \ . " , @path_a) ; 
my $module = 

&HDIi„Get_Module_By_Instance_Path (path=> $path, 

hash=> $h{hash} 
) ; 

my $parent_connection = 

&HDL_Get_By_Path ($h{hash>, 

" $module . instance . $instance . connection . $signal " ) 

return " $path\ . $parent_connection" ; 

} 

1; 



Get_Sopc_Path . pi 



####### ######################################################### 

# get_sopc_path 

# Figure out, based on the system environment, where we should 

# look for components. The list of directories is delimited by 

# plus (+) symbols, does not include the implicit 1 and sopc 

# components directories. STDOUT will receive the list. 
10 # 

####### ######################################################### 

$|=1; # set flushing on STDOUT 

15 # NOTE: some perl expert should change this to call getenvO or whatever, 
print $ENV{SOPC_BUIIiDER_PATH}; 



Mif siml .pi 



sub Emit_Bin_Data 
{ 

my $data_string; 
( $data_string) = (@_) ; 

my $data_val = eval ( " Ox$data„string" ) ; 

my $bit = 0; 

my $result = " " ; 

for ($bit = 0; $bit < $DATA__WIDTH; $bit++) 
{ 

if ($data_val % 2 == 0) { 

$result = "0" . $result; 
} else { 

$result = "1" . $result; 

} 

$data_val = int ($data_val / 2) ; 

} 

print "$result\n"; 

} 

$DATA_WIDTH = shift (@ARGV) ; 

while (<>) 
{ 

if </"—/) 
{ 

# It's a MIF " — " comment at the start of a line: 

# Keep comments, because I love them. 
S/ A — /\/\//; 

print ; 
next ; 

} 

s/\s*//g; # Strip all whitespace, because I hate whitespace. 

if (/(\d+)\: (\w+) ;/) 
{ 

my $addr = $ 1 ,- 

my $data = $2; 

printf ( l, <a%X\n" , $addr) ; 

print "$data\n" if ! $DATA_WIDTH; 

&Emit_Bin_Data($data) if $DATA__WIDTH; 

next ; 

} 

next ; 

} 



MK_Cu s t om_SDK . p 1 
#I/bin/sh 

exec perl - "$@" « \ ENDOFPERL 

5 

#!perl 

require Strict; 
use mk_custom__sdk; 

10 

# 

# 2000 August 

# dvb \ Altera Santa Cruz 

15 

# 

# see if any of the arguments is " — help", 

# and show some help if so. Otherwise, call main. 
20 # 

{ 

my $i; 

25 for ($i = 0; $i < scalar { @ARGV) ; $i++) 

{ 

if ($ARGV[$i] eq "--help") 
{ 

usage ( ) ; 
30 exit 0; 

} 

} 

} 

35 mk_custom_sdk { @ARGV) ; 



# end of file 



MK_Sy s t embu s . p 1 



################ 

# mk_systembus.pl 
# 

# This Perl-script is the "business end" of the 

# Nios System Bus Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his {her) choices 

# along to this very script. 
# 

# The kind of user socket we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named arguments are one long comma -de limited string, 

# a list of 'normal* command-line arguments, or any combination 

# of both (we just smash all the command- line arguments together 

# into one long string anyhow) . 
# 

# The comma-delimited elements have the form: 

# <arg„name> = <value> * 
# 

# For a list of all the argument -names and their allowed values, 

# see the table below. 
# 

use wiz__utils; 

use mk„custom_sdk; 

use pbm__gen; 

use crush__names ; 

#use v2vhd; 

#use strict; 

#use Win32; 

#use Win32 : : Process ; 

################################################################ 

# Mk_SystemBus 
# 

# Executes all the functions of the System Bus MegaWizard. 

# All the peripherals (and nios-cores) that this uses must have 

# already been built by the other "Mk" functions. 
# 

# Because this function takes listref and hashref arguments, 

# it doesn't use PARSE_NAMED_ARGS . 
# 

# This function takes, as its arguments: 
# 

$Mk_SystemBus_Doc^<<END_OF_DOCXJMENTATION_.STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 



mainmem_modul e 


--none-- 


--none — 


SDK will target programs here . 


skip„synth 


--none — 


0 


* boolean* do synth or not? 


hdl_l anguage 


hdl 


verilog 


* (verilog |vhdl j ahdl) * for wrapper. 


device_f ami ly 


--none — 


APEX20KE 


target device (chip) family. 


compiler 


--none-- 


quartus 


* (max\+plus2 | quartus) * P&R tool 


cl ock_.fr eq 


clk_f 


33333300 


Input clock rate in Hz „ 


do_ bu i 1 d__s im 


sim 


1 


* boolean* do make system sim? 


do_optimize 


optimize 


1 


^boolean* assume optimized HDL? 


leo„f latten 


flatten 


1 


*boolean* Leo's hier-f latten option 


leo_area 


area 


0 


*boolean* Leo optimize for area. 


Principal_Tri_ 


State_Data_ 


_Bus — none-- 


— none — Direct-to-CPU Fast I/O 



# These arguments are used to buidl the custom SDK. We have to tolerate 

# them here, even though we don't use them 

mainmem_module --none — --none-- Where to put programs. 



datamem_module --none— --none— Where to put variables /stack. 

gdbcomm_module — none — — none — Debug on this uart. 

maincommjmodule --none — — none — Yak on this uart. 

germs_monitor_id --none— --none— Print this at boot-time. 

END_OFJDOCUMENTATION_STRING 

sub Mk_SystemBus 
{ 

my ($arg, $user_def ined, $db_Sys, $db_PTF_File) 

= EProcess Jtfizard„Script_Arguments { $Mk_SystemBus„Doc, @_) ; 

my $sys_name = $$arg{system_name} ; # too handy to pass 

# up. 

if ($$arg{compiler} eq "max+plus2 " ) 
{ 

if ($sys_name =- / A (\w{32} ) \w+/ ) 
{ 

die "Sorry, max+plus2 will not accept a system name\n" . 

» that is greater than 32 characters. Perhaps you\n" . 
should use ($1) as your system-name instead. \n" ; 

} 

} 



################ 

# First, but by no means most, build a custom SDK 

# for all that annoying hardware we're about to build: 
# 

5cmk_custom_sdk ( " — sopc_directory=$$arg{ sopc^di rectory} " , 

" — system_directory=$$arg{system_directory} " , 

" — sys t em_name=$ $arg {name } " , 

" — sopc_lib_path=$$arg{sopc_lib_path} " 



$do_optimize = $$arg{do_optimize} ; 



if ($do_optimize) { 

$ suffix = " . txt" ; 

unlink ( " ABRAHAM_LINCOLN_NO„0PTIMIZE" ) ; 
} else { 

open <ABRAHAM_LINCOLN_NO_OPTIMIZE, " >ABRAHAM_LINCODN__NO_OPTIMI ZE " ) 
Close ABRAHAM_Jj INC OLN_NO_OPTIMI ZE ; 

} 

&Progress ("Starting generation for system: $ sys_name . " ) ; 

# Get 11 {quartus, leonardo , model sim}_def ine.v, and all that stuff: 
# 

&Copy_Tool_Control_Files ($arg) ; 
################ 

# Run Client Generator-Programs 

# . 

# Loop through every system component (module) specified m the PTF- 

# and run the corresponding generator-script. 
# 

my @module_name_list = ScRun„Generator„Pro grams ($arg, $db_Sys) ; 

################ 

# Update PTF database. 
# 

# The PTF database we read- in earlier is now 



# out-of-date. We just ran a bunch of "generator programs . 11 

# One consequence: The PTF-file has been thoroughly modified. 

# Read it in again: 
# 

my ($arg, $user_def ined, $db_Sys) 

= &Process_Wizard_Script_Arguments ( $Mk_SystemBus„Doc , @_) ; 

################ 

# Build the system-module and PBM: 
# 

# Internally, this function generates an elaborate database hash. 

# It returns a reference, so that we can extract a few key 

# elements later {name of core -module and such) . 
my @sys_synth_f ile_list = (); 

^Progress ("Making PBM (bus) and system (top) modules."); 
my $pSys = &Generate_PBM_And_System ($arg, $db_Sys) ; 

my $synth_list_ref = $$pSys {synth_f ile_list} ; 
push ( @ sy s_syn t h_f i 1 e_l i s t , @ $ syn t h_l i s t__r e f ) ; 

################ 

# Synthesis-Files list 
# 

my @synthesis_f ile_list = &Get_Synthesis_File_List { $pSys , $db_Sys, 

\ @sys_synth_f ile_l i s t , 
@modu 1 e_name_l i s t 
) ; 



# The name of the synthesizable core-file itself may have been changed. 
$arg->{core__name} = $pSys->{core_name} ; 

# The Java wizards need to see this string to know everything is OK. 

# At this point, we consider everything "OK" -enough to 

# allow the Java wizards to create a subsequently- editable 

# "custom megaf unction variation" 
# 

Progress { "VPP HDL -GENERATION SUCCESSFUL"); 

# Write-out a list of the HDL files, in case the user 

# wants to synthesize the design his/herself: 
# 

&Create — HDL_File_List_File {$$arg{system_directory} , $sys_name, 

@synthesis_f ile_list) ; 



# Create simulation project, if so ordered: 
# 

&Create_Sim_Project ($arg, @synthesis„f ile_list) if $$arg{do_build_sim} 

################ 

# Time to Synthesize! 
# 

# (Leonardo, if you please. . .) 
# 

# Pass along our $args-hash, so that Leo can know everything we know. 
# 

&Run_Leonardo ($arg, @synthesis_f ile_list) ; 



################################################################ 
# Run_Leonardo 



# 

# We run Leonardo Spectrum (aka "spectrum") from the 

# command- line by pointing it to a command-file. The 

# command-file contains , mostly, a list of all the HDL-files 
5 # we want to synthesize, plus a few simple settings. 

# 

# This isn't really a "subroutine" in the conventional sense, 

# because it only gets called from one place. It f s just 

# for tidy code-partitioning. 
10 # 

################################################################ 



# I got these keys (family-names) from some file in the quartus/bin 

# directory called "package.dat 11 . 
15 # 

# I did it again in the maxplus2/ directory to get the reset. 
# 

# I got these values by typing "Is *.syn" in Leo's "lib" -directory : 
# 

20 my %Leonardo_Device„Family__Decoder_Ring = ( 



APEX2 0K 


=> 


"apex2 0" , 


APEX20KE 


=> 


"apex2 0e" , 


APEX20KC 


-> 


"apex20c" , 


EXC AL I BUR_ARM 


=> 


" excalibur_arm" , 


EXCALIBUR__MIPS 


~> 


" excalibur_mips " 


MERCURY 


—> 


"mercury" , 


ACEX1K 


-> 


"acexl" , 


FLEX10K 


=> 


"flexlO" , 


FLEX10KA 


=> 


"flexlOa" , 


FLEX10KB 


=> 


"flexlOb" , 


FLEX10KE 


=> 


"flexlOe" , 



) ; 

sub Run_Leonardo 
{ 

35 my($arg, @unsorted_input_f ile__list) = ; 

#@input„f ile_list = sort @unsorted_input_f ile — list ; 

# the last entry in the input_f ile_list is always the top-level module. 

# we want the top-level module to appear first on the list. 
40 @input_f ile_list - @unsorted_input__f ile_list ; 

my $top_level_module = pop @input_f ile„list ; 
unshift @input_f ile__list , $top_level_module ; 



45 my $sys_name = $ $ arg { sy s t em_name } ; # too handy to pass up. 

my $f req„ .in_MHz = $$arg{clock_f req} /1000000 ; # note, need not be int. 

my $tcl_file = 

"$$arg{system_di rectory} /$sys_name\__leonardo_tcl__script . tcl" ; 
50 my $command_f ile = 

" $$arg{ system_directory} /$sys_name\_leonardo_commands . cmd" ; 



55 



my $target = $$arg{device_f amily} ; 

$target = $Leonardo„Device„Family__Decoder_Ring{ $ target } ; 

die " ERROR Run_Leonardo NULL TARGET! ( $$arg{device„f amily} ) does not mapl\n" 
if ($ target eq " " ) ; 



60 my $hierarchy__option = $$arg{leo_f latten} ? "hierarchy_f latten" : 

"hierarchy_preserve" ; 
my $optimize_option = $$arg{leo_area} ? "area" : 

"delay" ; 



my $ LEO_CMD_F ILE_TAIL - << END_OF_TAIL ; 
-product =1 si 
-targe t=$ target 
-macro 

- $ op t imi z e_op t ion 

-max_f requency=$ f req_in_MHz 

-effort standard 

-$hierarchy_option 

-pass={l} 

END„OF_TAIL 

open <LEO__CMD, "> $command_f ile" ) or die " 

ERROR: couldn't open $cornmand_f ile : $1"; 
print LEO_CMD " leonardo„def ine . v \n" ; 
foreach $file ( ©inputs f ile_list) 

{ print LEO__CMD w $file \n"; } # List input files, 

print LEO_CMD " $$arg{core_name} . edf \n" ; # Next, output file, 

print LEO_CMD " -module ==$$arg{ core_name} \n" ; # Top module, 

print LEO_CMD $LEO__CMD_FILE_TAIL ; 
if ($do_optimize) { 

print LEO_CMD "-f ile=$tcl_f ile\n M ; 

} 

Close (LEO_CMD) ; 

# at this moment, we don't do a tcl file unless we do_ip. 
if ($do_optimize) { 

open (LEO_TCL, "> $tcl_file") or die " 

ERROR: couldn't open $tcl — file: $ ! " ; 
print LEO„TCL "\n" ; # just enough exist, if nothing else written to it. 
print LEO_TCL "do_ip -target $target " ; 
print LEO__TCL "-area " if $$arg{ leo__area} ; 
print LEO_TCL "-delay " if 1 $$arg{leo_area} ; 
print LEO_TCL "-effort standard " ; 

print LEO__TCL "-design $$arg{core_name} -pass={l} 

print LEO__TCL 11 -hierarchy flatten " if $$arg{leo_f latten} ; 

print LEO_TCL "-hierarchy preserve " if ! $$arg{leo_f latten} ; 

print LEO__TCL "-output $$arg{core__name} . edf " ; 

print LEO__TCL "{ leonardo_def ine . v 

foreach Sfile (@input_f ile_list) 

{ print LEO_TCL 11 $file"; } # List input files, 

print LEO__TCL " }\n"; 
close (LEO__TCL) ; 

} 

# The following section of code is defunct. The problem is, we don't have a 

# full license to Leonardo. If we did, then using a full tcl script would be 

# a really really good idea. But we don't. We have a stupid level 1 license. 

# This level 1 license will allow us to use the l, do_ip" function in a tcl 

# script like above (thank goodness), but it won't allow us to run the entire 

# Leo project from a tcl script. With hope that we will eventually be able to 

# run Leonardo through a tcl script, I will keep this around, albeit 

# commented, as a dedication to untapped powers of tcl -enabled synthesis . 



# 

# $input_f ile_JList_string = join @input_f ile_list ; 

# &Vpp ( 

# split </\s+/, "-Q -R -X tcl"), 

# "-D", " $$arg{system_directory} " , 

# "-P" , $ $arg { sys tem_name } . , 

# " SYSTEM__NAME = $ $ arg { system_name } " , 

# "TOP_MODULE_NAME = $$arg{core_name} " , 

# " INPUT_FILE_LIST_STRING - $input_f ile_list_string" , 

# " SYSTEM__CLOCK_FREQUENCY = $$arg{clock_f req} " , 



# "DEVTCE„FAMILY = $ $arg{device_f amily} " 

# "DO_OPTIMIZE = $$arg{do_optimize} " , 

# " $$arg{sopc_directory} /bin/pro jec t_synthesis„scr ipt .vpp" , 

# ) ; 

my $spectrum_bin_dir = " $$arg{ sopc__di rectory} /" ; 
$spectrum_bin_dir .= "bin/ spectrum/bin" ; 

$spectrum_bin_dir . = "/win32" if ($^0 =~ / (MSWin ] cygwin) /i) ; 
my $spectrum„coitimand = " $ spec trum_bin_dir/ spec t rum" ; 
my $spectrum_command_line = $spectrum_command 

. " -command_f ile= " 

. $ c ommand_f i 1 e ; 

if ($$arg{skip_synth} ) 
{ 

print STDERR n 

Nios system module $sys_name *not synthesized* 
You must synthesize this module before you can place 
and route in Quartus. \n"; 
} else { 

&Progress ("Launching synthesis tool."); 

open (ABRAHAM_LINCOLN__STEALTH, n " ) ; 
close ABRAHAM_LUSTCOIiN_STEALTH; 

my $error_code = &System_Win98_Saf e ( $spectrum_command_line) ; 
open (ABRAHAM_LINCOLN_NO_STEALTH, " " ) ; 
close ABRAHAM_IiINCOLN_NO_STEALTH; 

if ($error__code ==2) { 
die " 

Leonardo Spectrum was unable to run due to a bad 
or nonexistant license file. 

Be sure that you have a valid license to run 

the \ "Altera 0EM\ " version of Leonardo Spectrum. 

You can obtain a license from \ "www. altera . com\ " . \n" ; 

} 

if ($error_code == 1) { 
die " 

Leonardo Spectrum did *not* run successfully. 
Spectrum has reported an error in a design file. 

You must resynthesize this module before you can place 

and route in Quartus . \n" ; 

} 

if ($error_code 1= 0) { 
die " 

Leonardo Spectrum did *not* run successfully. 

Spectrum quit because of an unknown error: $error_code. 

You must resynthesize this module before you can place 

and route in Quartus . \n" ; 

} 

&Progress ( " Spectrum Done . " ) ; 

if ($arg->{compiler} =~ /max\+plus2 /i ) { 
print STDERR" 

Be sure that your Interfaces — >EDIF NetlistJReader Settings 
specify \ "Exemplar \ " . \n" ; 

} 



} 



} 



################ ################################################ 

# Is_Leonardo__Licensed„for_Verilog 
5 # 

# Tests whether Leonardo Spectrum has access to a license 

# that allows it to process verilog. It does this by 

# producing a very simple verilog file, and seeing if 

# spectrum can synthesize it. If it fails on the license, 
10 # then it must not have a license for verilog. 

# 

################################################################ 

sub I s_Leonardo_Licensed„f or_Ver i log 
15 [ 

my ($arg) = (@_J ; 
my $is_licensed = 0; 

my $t = " test_for_leonardo_verilog__license_f ile" ; 

20 ^Progress ("Testing synthesis tool license."); 

# we need a blank verilog file just to run on. 
open (LEO_DEF, ,, >$t.v" ); 

print LEO_DEF ("module $t (i, o) ; input i; output o; assign o = i 
endmodule\n" ) ; 
25 close LEO_DEF; 

my $spectrum_bin_dir = " $$arg{sopc_di rectory} / " ; 
$spectrum_bin_dir .= " bin/ spectrum/bin" ; 
$spectrum_Jain_dir .= "/win32" if ($ A 0 =~ /MSWin/i) ; 
30 my $spectrum_command = "S spec trum_bin_dir/ spectrum " ; 

my $spectrum_command_line = $spectrum_command 
. " -product=lsl" 
. " -target=apex20" 
. " $t.v" 
35 . " St.edf" 

. " > $t. output" ; 
open (ABRAHAM_LINCOLN_STEALTH, " " ) ; 
close ABRAHAM_LINCOLN_STEALTH ; 

my $error_code = &System_Win98_Saf e ($spectrum_command_line) ; 
40 open (ABRAHAM_LINCOLN_NO_STEALTH, " " ) ; 

close ABRAHAM_LINCOLN_NO_STEALTH; 

if {$error_code ==1) { 
$is_licensed = 0; 

45 print STDERR ("Unable to determine find verilog license for Leonardo. 

Using unlicensed synthesis path.\n"); 
} elsif ($error_code ==0} { 

$is_licensed = 1; 
} else { 

50 print STDERR ("Unable to determine licensing for Leonardo. 

Using unlicensed synthesis path.\n" }; 
$is„licensed = 0 ; 

} 

# clean up directory 
55 unlink ("$t.v" , "$t .log" , "$t .sum" , «$t. tcl" , "$t.xdb" , "$t.xrt" , 

"St.edf" , "$t.xr£" , "$t. output") ,- 
return ( $is„licensed) ; 

} 

60 ################################################################ 

# Run_Generator_Programs 
# 

# Given (a reference to) the PTF "SYSTEM" section and (a reference to) 



# the %arg-hash, we have enough information to run through all the 

# system's sub-modules and run their respective generator-programs 

# {as-listed in their "class. ptf" file), if any. 
# 

# For modules that don't explicitly list a generator-program, we run 

# the "def ault_generator_program, " on their behalf. Other modules may 

# specifically request that no generator program be run at all. 
# 

# This function returns a list of all "enabled" modules in the system. 

# This list includes the master. 
# 

#################################### ## # ## ## #### ## ## # ############ 

sub Run_Generator_Programs 

{ 

my ($arg, $db_Sys) = {£_) ; 
my @module_name_list = ( ) ; 

my $num__children = get_child_count { $db_Sys) ; 

for (my $child_index = 0; $child_index < $num_„children; $child_index++) { 

my $db_Module = &get_child ($db_Sys, $child_index) ; 
next unless get_name ($db_Module) eg "MODULE"; 

# Don't waste our time on disabled modules. 

next if I &PTF_Get_Boolean_Data_By_Path ($db_Module, 

" SYSTEM_BUILDER_INFO/ Is_Enabled" ) 

my $mod_name = &get_data ($db_Module) ; 

push (@module__name_list , $mod„name) ; # Good to know later. 

# Open-up this module's "class. ptf" file. 

# The "class" name of this peripheral is, by definition, 

# the same name as the "components/" directory in which 

# its class. ptf file resides. 
# 

my $module_class = &PTF_Get_Required_Data„By„Path < $&b_Module , "class", 
"No class specified for module: $mod_name " ) ; 

my $module_lib_dir = 

&Find_SOPC_Component_Di rectory ( $module_class , $$arg{ sopc„lib„path} ) ; 

my $db_Class_File = 

&PTF_New_Reo^iired_Ptf_From_File ( " $module_lib_dir/ class .ptf" , 

"No 'class. ptf file found for module $mod_name"); 

my $db_Module_Class = 

&PTF_Get_Required_Child_By_Path ($db_Class_File, " CLASS" , 

"Bad or corrupt 'class. ptf file for module $mod_name" ) ; 

my $lib_generator_program = &get_data_by_path { $db_Module_Class , 

"ASSOCIATED_FILES/Generator_JProgram" ) ; 

# If the library component didn't specify a generator program, 

# then give it the generic (default) one: 
# 

my $generator_program = " $module_lib_dir/$lib_generator_program" ; 
$generator_program = 

u $$arg{sopc_directory} /bin/def ault_generator_program.pl" 
if ( ($lib_generator_program eg " t! ) | | 

($lib_generatorjprogram =~ / A — def ault--$/i) ) ; 

if { ( $lib_generator_program !~ — none— $/i) ) { 



# for now, complain bitterly if the generator program is not 

# apparently a Perl-script: 
# 

$generator program =~ /\.pl$/ or die " 

Illegal Generator program ' $ genera tor_progr am' for $module_class : 
Generator programs must be perl-scripts . \n" ; 

my 

$generator_cmd = " $$arg{sopc_di rectory} /bin/iperl " ; 
$generator_cmd .= " -I$$arg{sopc__directory} /bin " ; 
$generator_cmd . = " $generator_program " ; 

$generator_crnd .= " — system_name=$$arg{system_name} 

$ gene rat o r_cmd . = " — t ar ge t_mo dul e_name = $mo d__name 
$generator__cmd . = " — system_directory=$$arg{system_directory} 
$generator_cmd . = " — sopc_directory=$$arg{sopc_directory} 

$ genera tor_cmd .= " — sopc_lib^ath=$$arg{sopc_lib_j?ath} 

$generator_cmd . = " — generate=l 

$generator_cmd .= n — verbose=$$arg {verbose} 

open (ABRAHAM_LINCOLN_STEALTH, " " } ; 
close ABRAHAM„LINCOLN_STEALTH; 

my $error_code = &System_Win98„Saf e ($ genera tor_cmd) ; 
open (ABRAHAM_LINCOLN_NO_STEALTH / " " ) ; 
close ABRAHAM_LINCOLN_NO_STEALTH; 
$error_code == 0 or die " 

Error: Generator program ' $ genera tor_progr am' 

for module $mod_name did NOT run successfully . \n" ; 

} 



re turn @mo du 1 e__name_l i s t ; 

} 



################################################################ 

# Get_Synthesis„File_List 
# 

# Gets an array of files to be synthesized and massages them for 

# Max+Plus2 if required. 
# 

# If Max+2 is p+r tool, we convert MIF files and other files 

# to max+2 friendly files. 

################################################################ 



sub Get_Synthesis_File_List 
{ 

my ( $pSys , 

$db_Sys , 

$pAdditional_Synth_Files , 
@modu 1 e__name_l i s t , 
) = 



my @synthesis_f ile__list ; 

my @mif„f ile_JList ; 

my @additional_f ile_list ; 

foreach $module_name (@module__name_list) 

t 

my $db_Module = 

&PTF_Get_Reguired_Child_By„Path ( $db_Sys , 
" MODULE $modul e_name " , 

11 1 could have sworn $module_name was in here somewher 

my $hdl_f ile_data = 

&get_data_by_^)ath ($db_Module, "HDL_INFO/Synthesis_HDL„Files " ) 
push (@synthesis__file_list, split (/ \s*\ , \s* /, $hdl_f ile_data) ) ; 



my $mif_f ile__data 

&get_data_by_jpath ( $db_Module , " HDL_INFO / MIF_F i 1 e s " ) ; 
push (@mif_f ile_list , split { /\s*\ , \s*/ , $mif_f ile_data) ) ; 

my $additional_f ile_data = 

&get_data_by_j?ath ( $db__Module , 

"HDri_INFO/Other_Files_Subject_To__MPII_Iiength_Iiimit" ) ; 

push (@additional_f ile_JList, split (/\s*\ , \s*/ , $additional_f ile„data) ) ; 

} 

push (@synthesis_f ile__list, @$pAdditional_Synth„Files ) ; 
############### 

# Orion is sticking an option for vhdl translation back here 

# because of the synthesis-f or-one-HDL fiasco. Ideally, Leonardo will 

# be fixed before we ship this. If, however, it isn't, here is our 

# backup plan. 
# 

if (0) #set to 1 if you want vhdl translation on vhdl files 
{ 

#$pSys->{hdl_language} really should be $pSys->{leonardo__language} 

if ($pSys->{hdl__language} =~ /^vhdl/i) 

{ 

@synthesis___f ile_list - 
&V2VHD_Files ( 

" \ x define LEONARDO_S PECTRUM " , 
ii H 

@synthesis_f ile_list 
) ; 

} 

} 
# 

############### 



################ 

# Max+Plus 2 has "issues" with quartus problems with large names. 

# It doesn't like names that are bigger than 32 characters. 

# and it likes mif files a certain way. We oblige here. 

if ( $pSys->{ compiler} eq "max+plus2 " ) { 

^Progress ("Imposing 32-char name limit for MaxPlus+II . ,! ) ; 

my $ 1 eng th__l imi t = 32; 

my %Conversion__Hash; # stores names that have been converted 

my %Converted_Filenames; # stores filenames that have been converted 

my $sys_name = $pSys->{system_name} ; # too handy to pass up. 

$Conversion_Hash{$sys_name} = $sys_name; #keeps $sys_name the same 
$pSys->{core_name} = &Crush_Line <$pSys->{core„name} , 

$ 1 ength__l imi t , 
\%Conversion_Hash) ; 

@synthesis_f ile_list = 

&C ru sh_Name s_Tha t_Ar e_B i gger_Than_Max_Wi d t h_Char ac t e r s 
( 

\%Converted_Filenames , 
\ %Convers ion_Hash , 
$length_limit , 
@ syn t he s i s„f i 1 e__l i s t 



) ; 

my @wrapper_f iles = ($pSys->{wrapper_f ile} ) ; 
push (@wrapper_f iles, $pSys->{inc_f ile} ) 
5 unless $$pSys{inc_f ile} eq " " ; 

@wrapper_f iles = 

&C r ush_Name s_Tha t_Ar e_B i gge r_Than„Max__Wi dt h_Char ac t e r s 
( 

10 \%Converted_Filenames , 

\%Conversion_Hash, 
$ length_l imi t , 
@wrapper_f iles 
) ; 

15 

5cMake„MIF_Files__Max_Friendly ( 

\%Converted_Filenames , 
\ %C onve r s i on_Ha s h , 
$length_limit , 

20 @mif_f ile_list 

) ; 

} 

return (@synthesis_f ile__list) ; 

25 } 

################################################################ 

# Create_Sim_Project 
# 

# Builds a simulation-project (targeted at ModelSim) which will 
30 # contain a simulatable version of the system-module. 

# 

################################################################ 

sub Create_Sim_Project 

{ 

35 my ($arg, <£hdl_f ile_list) = (@_) ; 

&Debug (0, "Creating simulation project directory for $$arg{system_name} ' 

# we want to include absolute -path-name HDIi files exactly 
40 # as they appear, but relative path names have to 

# be re-referenced to "relative one- level -up . " 
# 

my @include_list = C ) ; 

foreach $include_f ile (@hdl_f ile_list) { 
45 $include__file =~ tr|\\|\/|; 

$include„file — s | *\ . \ / | \ . \ . \/ | ; 
my $is__absolute = $include_f ile =~ A:/ || 

$include„file =~ /"W || 
50 $include_file =- ; 

$include_f ile = " . . / $include_f ile" if i $is_absolute ; 
$include_f ile =~ s/ . v$/ .v. txt/ if $$arg{do_optimize} ; 

55 push (@include_list , $include_f ile} ; 

} 

################ 
# Emit the test-bench file: 
60 # 

my $test_bench__name = " $ $arg { system_name }_tes t_bench" ; 

my $test„bench„f ile = " $$arg{system_sirn_dir } /$test_bench_name . v" ; 

&Debug (0, " Test bench file is: $test_hench_f ile" ) ; 



open ( TE STOUT , "> $ test__bench_f ile " ) or die "Couldn't open $test_bench„f ile" 
my $old_out = select (TE STOUT) ; 

print " 

5 x timescale Ins / lOOps 

"include \ "mode Is im_de fine ,v\ " 

foreach $include__f ile (@include__list ) { 
print " \n v include \ " $include_f ile\ " " ; 

10 } 

print " 

s include \ " test_e equipment . v\ " 

modul e $ te s t_bench_name ; 
15 wire elk; 

wire reset_n; 

Clk_Gen Clk_Gen_33MHz (.elk (elk) ) ; 
Reset_Gen Reset_Gen__33MHz {.reset_n (reset_n) ) ; 

20 

&Declare_Wires_For_Connection_To ( " $ $arg { sy s tem_name } „core " , 

" 11 , "elk" , "reset_n" ) ; 
&Instantiate_And„Connect ( "SSarglsystem^namel^ore" , " . M ) ; 

25 print "\n endmodule \n" ; 

close (TE STOUT) ; 
select ($old„out) ,- 

30 ################ I WAS HERE ################ 

# Put code to copy test equipment, modelsim.v, and mpf-file 

# also, I must modify mk_rom.pl to re-convert its MIF-file, 

# and the RAM verilog to have a behavioral model built-in. 
# 

35 } 



################################################################ 

# Create_HDI_File_List_File 
40 # 

# The user might want to synthesize all the files in the system-module 

# himself. If so, it would be very useful to have a -list- of all 

# the HDL-files in the project. This function here creates a list 

# of all the HDL-files in the project. What a happy circumstance. 
45 # 

################################################################ 

sub Create_HDL_File_List_File 

{ 

my ($system_dir, $sys_name, @synthesis_f ile_list ) = (@__) ; 

50 

my $hdl_list_f ile__name = $sys_name . 

"_list_of _hdl_f ile s_f or_syn thesis . txt " ; 

55 my $full_hdl_list_f ilejiath = " $system_dir/$hdl_list_f ile_name u ; 

my $hdl_list_f ile_header =«E0M; 
################################################## 

# 

60 # $hdl_list_f ile_name 
# 

# Automatically-created by Altera Excalibur Nios (TM) MegaWizard 
# 



# This file contains a list of all HDL files necessary to 

# synthesize the Nios system module named: 
# 

# $ sy s„name 
# 

# HDL-file list follows: 
# 

EOM 

open (HDL_LIST, "> $full_hdl_list_f ile_path" ) or die " 
ERROR: Couldn't open $full_hdl_list_f ile_jpath : $!"; 

print HDL„LIST $hdl_list_f ile_header ; 

foreach $file (@synthesis_f ile_list ) 
{ print HDL_LIST " # $f ile\n" ; } 

Close (HDL _JkIST) ; 

print STDERR " 

A list of HDL files necessary to synthesize 
the module $sys_name has been written to 
this file: 

$hdl_list_f ile_name\n\n" ; 

} 

################################################################ 

# System_Win98_Safe 
# 

# Win-98-safe "wrapper" for Perl's built-in 'system 1 command. 
# 

# Windows-98 can't handle an executable -name ($ARGV[0] ) which 

# has forward slashes in it. WinNT and Win2000 can handle 

# either forward- or backward- s lashe s . So, if we notice that 

# the operating system is Windows (or Cygwin) , then we convert 

# forward-slashes to backslashes in -only- the program-name 

# part of the sys tern- command. We leave all the arguments 

# alone — whether ' / ' or ' \ ' is OK in an arugment is entirely 

# up to the program. 
# 

################################################################ 

sub System_Win98_Saf e 

{ 

my (@command„parts} ~ (@__) ; 

my $sys_cmd = join ( " ", @command_parts) ; 

$sys_cmd =~ /~\ s * (\S+) \s+ < . *) $/ or die 

" System_Win98_Saf e : Suspicious sys tern- command: $sys__cmd" ; 

my Sprogram path = $1; 
my $ arguments = $2 ; 

$program_path =~ s|/|\\|g if ($ A 0 =- / (MSWin | cygwin) /i) ; 

my $ new_sy s_cmd = 11 $program__path $arguments" ; 
system ( $new_sys_cmd) ; 

my $error__code = ($? >> 8) ; 
return $error_code; 

} 



################################################################ 



# Execution begins here 

################################################################ 
&Mk„SystemBus ( @ARGV) ; 



Nios -Convert . pi 



#! /bin/sh 

exec perl - " $@" « \ ENDOFPERL 
#lperl 

# We now use "nios -convert 11 in the HDK. 

# in the HDK, we can't rely on any standard Perl libraries. 

# ... alas, not even "Strict": 
#use Strict; 

# 

# nios-convert 

# 

# ceil(x) 
# 

# standard math ceil 
# 

sub ceil 
{ 

$x = shift; 

return int($x) if ($x = = int($x)); 

return int ( $x + 1 ) ; 

> 

# 

# addTo {stringRef , list) 

sub addTo 
{ 

my $ stringRef = shift; 
my $i; 

for($i = 0; $i <= $#_; $i++) 
{ 

$$stringRef .= $__[$i] ; 
} 

$$stringRef .= B \n n ; 
} 

# 

# dprint ( list . . . ) 
# 

# print only if gDebug 

my $ gDebug = 0; 

sub dprint 
{ 

my $i; 

return if ($gDebug == 0) ; 

for($i = 0; $i < 30; $i++) 
{ 

print shift; 
} 

print " \n" ; 
} 



# 

# dateTime ( ) 
# 

# returns a relatively nice date & time string 
5 # 

sub dateTime 
{ 

my ($sec, $min, $hour # $mday, $mon, $year, $wday, $yday, $isdet) 

local time (time) ; 
10 $mon++; 

$year += 19 00; 



my $d = sprintf ( " %04d . %02d. %02d H , $year , $mon, $mday) ; 
my $t = sprintf ( " %02d: %02d: %02d" ,$hour, $min, $sec) ; 

return " $d $t" ; 
} 



20 # 

# readFile (f ileName) 
# 

# returns the complete file contents 
# 

25 sub readFile 
{ 

my $f ileName = shift; 
my $ bunch; 
my $ result; 
30 my $did; 



if {open (FILE, $f ileName) ) 
£ 

binmode FILE; # Bite me, Windows! --dvb 

35 while (read(FILE, $bunch, 32000) ) 

{ 

$result .= $bunch; 
} 

close FILE; 

40 } 



return $result; 
} 

45 

# 

# writeFile (f ileName, contents) 
# 

# creates new file and writes entire 
50 # file contents. Return "ok" if so, 

# or " " if not. 
# 

sub writeFile 
{ 

55 my $f ileName = shift; 

my $contents = shift; 
my $did; 

# 

60 # Delete existing file, if any. 

# 

unlink ( $f ileName) if(-e $ f ileName ) ; 



$did = open (FILE, ">$f ileName" ) ; 
if ($did) 
{ 

binmode FILE; # Bite me, Windows! — dvb 

print FILE $contents; 

close FILE; 

return "ok" ; 

} 

return " " ; 
} 



# 

# srec2hash(giantFileString) 
# 

# Given a giant string containing 

# one entire srec file, return an 

# associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately 

# gigantic, but who's counting? 
# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

sub srec2hash 
{ 

my $srecString = shift; 
my %hash; 

my $srecord; 
my $recordType; 
my $ rec or dLeng tho- 
rny $recordChecksum; 
my $recordAddress ; 
my $recordData; 
my $addressStringLength; 

foreach $srecord ( split (" \n" , $srecString) ) 
{ 

$srecord =- s/\r//g; # kill ^M's 
dprint "record $srecord" ; 

if (Ssrecord / A S( [123] ){..)(.*){..) $/) # an S record 

can use 

{ 

$recordType = $1; 
$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

$recordLength -= $recordType + 2 ; 
$addressStringLength = ($recordType +1) * 2; 
$recordAddress = hex ( substr ( $a, 0 , $addressStringLength) } ; 
$recordData = substr ( $a, $addressStringLength) ; 

while (length ( $recordData) ) 
{ 

$hash{$recordAddress} = hex (substr ($recordData, 0 , 2 ) ) 
$recordData = substr ( $recordData, 2 ) ; 



$ r ec o rdAddr es s + + 
} 

} 

} 

dprint " srec hash keys"; 
f oreach $i (sort (keys (%hash) ) ) 
C 

dprint" $i : $hash{$i} " ; 
} 

return %hash; 
} 



sub mifRadixFromText 
{ 

my $mif Radix = shifty- 
return 10 if ($mif Radix eq "UNS" 

or $mif Radix eq "DEC") 

return 16; 
} 

sub mi fValueBy Radix 
{ 

my $mifData - shift; 
my $mif Radix = shifty- 
return hex($mifData) if ($mifRadix 
return 1.0 * $mifData; 
} 

# 

# mif 2hash(giantFileString) 
# 

# Given a giant string containing 

# one entire mif file, return an 

# associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately 

# gigantic, but who's counting? 
# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

sub mif 2 hash 
{ 

my $srecString = shift; 
my %hash; 

my $mi f record; 

my $mi f Wi d t h ; 

my $mif AddressRadix; 

my $mif DataRadix; 

my $mif Bytes PerData; 

my $mi f Data ; 

my $mi f Address ; 

my $i; 



$mif Width = 8; 



foreach $mif record (split { " \n" , $srecString) ) 
{ 

$mifrecord =~ s/\r//g; # kill ^M's 
dprint "mif record $mif record" ; 

# Recognize 4 kinds of lines: 

# WIDTH=x; 

# ADDRES S_RAD IX=HEX /DEC / UNS ; 

# DATA_JRAD IX=HEX / DEC / UNS ; 

# addr : data ; 

# Ignore anything else. We don't even care about the "DEPTH" . 
# 

$mifrecord =~ s/[\t ]//g; # kill white space 
if ($mif record =~ \= C .*);$/ ) 

{ 

dprint "mif — $1 = $2"; 

if($l eg "WIDTH" ) 
{ 

$mif Width = $2; 

$mifBytesPerData - int ($mif Width / 8) ; 
dprint "mif -- mifBytesPerData = $mif BytesPerData" ; 

} 

elsif($l eq " ADDRES S_RAD IX " ) 
{ 

$mif AddressRadix = mif RadixFromText ( $2 ) ; 
dprint "mif — address radix = $mif AddressRadix" ; 

} 

elsif($l eq "DATA„RADIX" ) 
{ 

$mifDataRadix = mi f RadixFromText ($2) ; 
dprint "mif — data radix = $mif DataRadix" ; 

} 

} 

elsif($mif record =- /*(.*):{.*);$/) 
{ 

dprint "mif — $1 : $2" ; 

$mif Address = mi f ValueByRadix ( $1, $mif AddressRadix) 

$mif BytesPerData ; 

$mifData = mifValueByRadix{ $2 , $mif DataRadix) ; 

dprint "mif — $mif Address $mifData" ; 

for($i =0; $i < $mif BytesPerData; $i++) 
{ 

dprint "mif — " ,$i + $mif Address , " : " , $mif Data&Oxf f ; 

$hash{$mif Address + $i} = $mifData & Oxff; 

$mifData »= 8; 

} 

} 

} 

dprint "mif hash keys" ; 
foreach $i (sort (keys (%hash) ) ) 
{ 

dprint " $ i : $hash { $ i } " ; 
} 

return %hash; 
} 



5 



10 

# 

# hash2dat (hashRef , width , lanes , lane , info } 
# 

15 # Returns giant string ready to be written to a file . 
# 

sub hash2dat 
{ 

my $bytesRef = shift; 
20 my $width = shift; 

my $ lanes - shift; 
my $lane = shift; 
my $info = shift; 

25 my $addressLow; 

my $addressHigh; 
my ©addresses; 

my $ address; 
30 my $addressRange; 

my $addressStep; 

my $bytesPerData; 

my $dataFormat; 

my $ depth; 
35 my $result = " " ; 

my $i; 
my $v; 
my $line; 
40 my $bytesPerLine; 

my $bytesThisLine; 

©addresses = sort ({ $a <=> $b } keys (%$bytesRef ) ); 
$addressLow = $addresses [ 0] ; 
45 $addressHigh = $addresses [ $#addresses] + 1; 

$addressRange = $addressHigh - $addressLow; 

$bytesPerData = ceil{$width / 8) ; 

50 $addressStep - $ lanes * $bytesPerData; 

$dataFormat = "%0" . $bytesPerData * 2 . "X" ; 

$depth - log (ceil ($addressRange / $addressStep } } / log{2); 
$depth = ceil ($depth) ; 
55 $depth = 1 « $depth; 

# 

# Print the MIF file header 
# 



60 



addTo \$result, sprintf ( " \@%08X" , $addressLow / $addressStep) 
$line = " " ; 



SbytesThisLine = 0 ; 
$bytesPerLine = 16; 

for($address = $addressLow + $lane * $bytesPerData ; $address < 
$addressHigh ; $address += $addressStep) 
5 { 

$v = 0; 

for($i =0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8) ; 
10 } 

$line .= sprint f { $dataFormat , $v) . " " ; 
$bytesThisLine += $bytesPerData; 
if {$bytesThisLine >= $bytesPerLine) 
{ 

15 addTo \$result, $line; 

$line = " " ; 
$bytesThisLine = 0; 
} 

} 

20 addTo \$result, $line if $line ne " " ; 

# Is this needed? the old converter tacked on an extra 00... 
addTo \$result, "00" x $bytesPerData; 

25 return $result; 

} 



# 

30 # hash2mif (hashRef , width, lanes , comments , lane, info) 
# 

# Returns giant string ready to be written to a file. 
# 

sub hash2mif 
35 { 

my $bytesRef = shift; 

my $width = shift; 

my $lanes = shift; 

my $ comments = shift; 
40 my $lane = shift; 

my $info = shift; 



my $ addr e s sLow ; 
my $addressHigh; 
45 my ©addresses; 

my $address; 
my $addressRange; 
my $addressStep; 
50 my $bytesPerData; 

my $dataFormat; 

my $depth; 

my $result - " " ; 

55 my $ mi f Addr e s s ; 

my $i; 
my $v; 



©addresses = sort ( {$a <=> $b} keys (%$bytesRef ) ) ; 
60 $addressLow = $addresses [ 0 ] ; 

$addressHigh = $addresses [ $#addresses] + 1; 
$addressRange = $addressHigh - $addressLow; 



$bytesPerData 



= ceil ($width / 8) ; 



$addressStep = $ lanes * $bytesPerData; 
$dataFormat = "%0" . $bytesPerData * 2 . "X" ; 

$depth ~ log (ceil ($ address Range / $addressStep) ) / log(2); 
$depth = ceil ( $depth) ; 
$depth = 1 « $depth; 

# 

# Print the MIF file header 
# 

addTo \$result; 

if ( $comments) # MAX hates mif comments, so say - -comment s=0 i; 

you ' re MAX . 

{ 

addTo \$result, "/* This file generated by nios-convert */"; 

addTo \$result, "/* $info */"; 

addTo \$result, " /* " , dateTime { ) , " */" ; 

addTo \$result, "/* " , sprint f ( " 0x%08x 

0x%08x" , $addressLow, $addressHigh) , " */ " ; 
} 

addTo \$result; 

addTo \$result, "WIDTH=" # $width 7 
addTo \$result, "DEPTH= ,, / $depth, " ; " ; 
addTo \$result; 

addTo \$result, M ADDRESS_RADIX=HEX; " ; 
addTo \$ result, "DATA„RADIX=HEX; " ; 
addTo \$result; 

addTo \$result 7 " CONTENT BEGIN" ; 
addTo \ $ re sul t ; 

$mif Address = 0 ; 

for($address = $addressLow + $lane * $bytesPerData ; $address 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for{$i =0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8) ; 
} 

addTo \$result, sprintf ( " %08X : $dataFormat ; 11 , $mif Address++ , $v) ; 
} 

addTo \$result; 

addTo \$result, "END;" ; 

addTo \$result; 

addTo \$result, "/* End of file */"; 

return $result; 
} 



# 

# parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 

# the form 11 --key=value" . The hyphens 

# disappear from the key name. 



# 

# A command line switch of " — key" 

# is equivalent to " --key=l" . 
# 

# a special key named _argc contains 

# a count of non-dash-dash arguments, 

# and they are in the hash as {0}, {1}, 

# and so on. 

sub parseArgs 
C 

my $arg; 
my $argVal; 
my $argc; 
my %hash; 

$argc = 0; 



while {$arg = shift) 
C 

dprint "parseArgs: $arg" ; 

usage if $arg eq " — help"; 

if ($arg =~ / A — /) 
{ 

if($arg =~ /"--(.*) \= (.*)$/ ) 
{ 

$arg = $1; 
$argVal = $2; 
} 

else 

{ 

$argVal = 1; 
} 

$hash{$arg} = $argVal; 
> 

else 

{ 

$hash{$argc++} = $arg; 
} 

} 

$ hash { __ar gc } = $ ar gc ; 

return %hash; 
} 

# 

# getSwitch(hashRef , switchName, defaultValue [, mustBeNumber] ) 
# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 

# if it was not specified in the command line. 

sub getSwitch 
{ 

my $hashRef = shift; 
my $ switchName = shift; 
my $def aultValue = shift; 
my $mustBeNumber = shift; 



my $switchValue; 



$switchValue = $$hashRef { $switchName} ; 

$switchValue = $def aultValue if ( $switchValue eq " 11 ) ; 
$switchValue *= 1 if ( $mustBeNumber) ; 

return $ swi t chValue ; 
} 

# 

# main 

sub main 
{ 

my % swi t che s ; 

my $ lanes; 

my $width; 

my $ sour ceFi leName; 

my $sourceFileNameBase; 

my $sourceFormat ; 

my $ de s tF i leName ; 

my $destFileBase; 

my $ de s tF ormat ; 

my $sourceFile; # complete contents 

my @destFile; # complete contents, indexed by 1 

my $lane; 

%switches = parseArgs (@_) ; 

$lanes = getSwitch ( \%switches , " lanes ", 1) ; 
$width = getSwitch (\%switches, "width" , 16) ; 
$comments = getSwitch ( \%switches # "comments" ,1) ; 



# 

# Source name & format 
# 

$sourceFi leName = $switches { 0 } ; 
usage () if $ s our ceFi leName eq " " ; 

if ($sourceFileName (.*) \ .([ A .]*)$/ } 

{ 

$ s our ceFi leName Base = $1; 

$sourceFormat = $2 ; 

} 

# 

# Dest name & format 
# 

$destFormat = "mif" ; 
if ($switches{l> ) 
{ 

dprint "switchl = $switches {1} " ; 

$destFileName = $switches {1} ; 
if ($destFileName 
{ 

$destFileNameBase = $1; 

$destFormat = $2; 

} 

} 



10 



$destFormat = getSwitch (\%switches , "oformat" , $destFormat) ; 
$destFileNameBase - $ { sourceFileNameBase} if ( $destFileName eq " " ) 
$destFileName = " $ {destFileNameBase} . $ {dest Format } " ; 

dprint "destFormat = " , $destFormat ; 
dprint "destFileNameBase = " , $destFileNameBase; 
dprint "destFileName = " , $destFileName; 
dprint "sourceFileName = " , $ sourceFileName; 

$sourceFile = readFile {$ sourceFileName ) ; 

die "Bad file $ sourceFileName" if $sourceFile eq 



if ($ sourceFileName =~ /.mif$/) 

15 { 

%bytes = mif 2hash($sourceFile) ; 

} 

else 

{ 

20 %bytes = srec2hash( $sourceFile) ; 

} 

$sourceFile = " " ; # done with source data, thankyou 

25 # 

# Generate each lane of the result file, 

# switching by destFormat 
# 

30 for($lane = 0; $lane < $lanes; $lane++) 

{ 

if ($destFormat eq "mif") 
{ 

$destFile [$lane] 
35 hash2mif (\%bytes, $width, $ lanes , $comments , $lane, 

"source file: $ sourceFileName, lane $lane 

$ lanes" ) ; 

} 

elsif (SdestFormat eq "dat" ) 

40 { 

$destFile[$lane] = hash2dat ( \%bytes , $width, $lanes , $lane , 

"source file: $ sourceFileName, lane $lane 

$ lanes" ) ; 

} 

45 # 

# If we supported something besides mif, we'd add it here. . . 

# elsif. . . 
} 

50 for($lane = 0; $lane < $lanes; $lane++) 

{ 

if($lanes > 1) 
{ 

$destFileName = $ destFileNameBase . "„lane_" . $lane . " 

55 $destFormat ; 

} 

writeFile ( $destFileName, $destFile [$lane] ) ; 
} 

} 

60 



# 

sub usage 



{ 

print «EOP; 



10 



15 



nios-convert [options] sourceFile [destFile] 

sourceFile can be . srec or .mif 
destFile will get same name as sourceFile if omitted 

— lanes=x : break up into multiple output files, with _lane_0 . 
__lane_ (x-1 ) appended 

--width=x : set output width to 8 , 16, or 32 

~~of ormat=f : format can be mif or dat 

--comments=b : comments in mif file enabled {1} or disabled (0) 
Default is enabled 

"nios-convert 11 



20 



25 



30 



nios-convert is a tool to convert files between several 
formats. The formats supported are S-record, mif, and dat. 
These are three formats used in Nios hardware and software 
development. S-records are used to download code to the 
Germs monitor, mif files are used to specify the contents 
of Nios ROM and RAM devices, dat files are used as data for 
Modelsim to simulate a Nios hardware design. 

It is sometimes necessary to break up a file into individual 
"lanes"; if the — lanes option is used for more than 1 lane, 
then the result files will have the names " lane_0" , " lane_l" , 
&c, appended to them. 



EOP 



35 



exit (0) ; 
} 



40 



main(@ARGV) ; 
# end of file 



Nios-Convert .pi 



#l/bin/sh 

exec perl - "$@" «\ENDOFPERL 
5 #!perl 

# We now use " nios -convert " in the HDK. 

# in the HDK, we can't rely on any standard Perl libraries, 

# ... alas, not even "Strict": 
10 fuse Strict; 



30 



50 



# 

# nios -convert 



15 # 

# ceil(x) 
# 

# standard math ceil 
# 

20 sub ceil 
{ 

$x = shift; 

return int($x) if ($x == int ($x) ) 
25 return int ( $x + 1 ) ; 

} 



# 

# addTo (stringRef , list) 

sub addTo 
{ 



my $ stringRef = shift; 

35 my $i; 

for ($i =0; $i <= $#_; $i++) 
{ 

$$stringRef .= $_[$i] ; 
40 } 

$$stringRef . = " \n" ; 
} 



# 

45 # dprint (list. . . ) 
# 

# print only if gDebug 



my $gDebug = 0; 

sub dprint 
{ 



my $i; 

55 return if ($gDebug == 0) ; 

for($i = 0; $i < 30; $i++) 
{ 

print shift; 

60 } 

print " \n" ; 
} 



# 

# dateTime ( ) 
# 

# returns a relatively nice date & time string 
5 # 

sub dateTime 
{ 

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdet) 

localtime ( time) ; 
10 $mon++ ; 

Syear += 1900; 

my $d = sprintf ( "%04d. %02d. %02d" , $year, $mon, $mday) ; 
my $t = sprintf ( " %02d: %02d: %02d" , $hour , $min, $sec) ; 

15 

return " $d $t" ; 
} 



20 # 

# readFile (f ileName) 
# 

# returns the complete file contents 
# 

25 sub readFile 
{ 

my $f ileName = shift ; 
my $bunch ; 
my $ result; 
30 my $did; 

if {open (FILE, $f ileName) ) 
{ 

binmode FILE; # Bite me, Windows! — dvb 

35 while (read (FILE, $bunch, 32000) ) 

{ 

$ result .= $ bunch; 
> 

close FILE; 

40 } 

return $result; 
} 

45 

# 

# writeFile (f ileName, contents) 
# 

# creates new file and writes entire 
50 # file contents. Return "ok" if so, 

# or " » if not. 
# 

sub writeFile 
{ 

55 my $f ileName = shift; 

my $contents = shift; 
my $did; 

# 

60 # Delete existing file, if any. 

# 

unlink ($fileName) if(-e $ f ileName) ; 



$did = open(FILE, ">$f ileName") ; 
if (Sdid) 

binmode FILE; # Bite me, Windows L — dvb 

5 print FILE $contents; 

close FILE; 
return "ok"; 
} 

10 return " " ; 

} 



15 # 

# srec2hash(giantFileString) 
# 

# Given a giant string containing 

# one entire srec file, return an 

20 # associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately 
25 # gigantic, but who's counting? 

# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

30 sub srec2hash 
{ 

my $srecString = shift; 
my %hash; 

35 my $srecord; 

my $recordType; 

my $recordLength; 

my $recordChecksum; 

my $recordAddress ; 
40 my $recordData; 

my $addressStringLength; 

foreach $srecord ( split (" \n" , $srecString) ) 
{ 

45 $srecord =~ s/\r//g; # kill ~M's 

dprint "record $srecord" ; 

if ($srecord /^S( [123] )(..)(.*) (..)$/) # an S record we 

can use 

{ 

50 $recordType = $1; 

$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

55 $recordLength -= $recordType + 2 ; 

$addressStringLength = ($recordType +1) * 2; 
$recordAddress = hex ( subs tr ( $a, 0 , $addressStringLength) ) ; 
$recordData = substr ( $a, $addressStringLength) ; 

60 while (length ($recordData) ) 

{ 

$hash{$recordAddress} = hex (substr ( $recordData, 0 , 2 )) ; 
$recordData = substr ( $recordData, 2 ) ; 



$recordAddress++ ; 
} 

} 

} 

dprint "srec hash keys"; 
foreach $i (sort (keys (%hash) ) ) 
{ 

dprint » $ i : $hash { $ i } " ; 
} 

return %hash; 
} 



sub mifRadixFromText 
{ 

my $mif Radix = shift; 

return 10 if ($mif Radix eq "UNS" 

or $mifRadix eq "DEC") 

return 16; 
} 

sub mifValueByRadix 
C 

my $mifData = shift; 
my $mif Radix = shift; 

return hex { $mi f Data ) i f ( $mi f Radix 

return 1.0 * $mifData; 

} 

# 

# mif 2hash(giantFileString) 
# 

# Given a giant string containing 

# one entire mif file, return an 

# associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately 

# gigantic, but who's counting? 
# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

sub mif 2 hash 
{ 

my $srecString = shift; 
my %hash; 

my $mif record; 

my $mi f Width ; 

my $mif AddressRadix; 

my $mif DataRadix; 

my $mifBytesPerData; 

my $mifData; 

my $mif Address; 

my $i; 



$mif Width = 8; 



foreach $mifrecord (split ( " \n" , $srecString) ) 
{ 

$mifrecord =~ s/\r//g; # kill "M's 
5 dprint "mif record $mif record" ; 

# Recognize 4 kinds of lines: 

# WIDTH=x; 

# ADDRESS_RADIX=HEX / DEC / IMS ; 
10 # DATA__RADIX=HEX/DEC/uTSIS; 

# addr : data ; 

# Ignore anything else. We don't even care about the "DEPTH" . 
# 

$mifrecord =~ s/[\t ]//g; # kill white space 
15 if ($mifrecord =~ / A (.*) \= (.*);$/ ) 

{ 

dprint "mif — $1 = $2"; 

if ($1 eg "WIDTH" } 
{ 

20 $mif Width = $2; 

$mifBytesPerData = in t ( $mif Width / 8); 
dprint "mif — mif Bytes PerData = $mif BytesPerData" ; 

} 

elsif ($1 eq "ADDRESS__RADIX" ) 

25 { 

$mifAddressRadix = mif RadixFromText ($2 ) ; 

dprint "mif — address radix = $mif AddressRadix" ; 

} 

elsif ($1 eq "DATA_RADIX" ) 

30 { 

$mifDataRadix = mif RadixFromText ( $2 ) ; 

dprint "mif — data radix = $mifDataRadix" ; 

} 

1 

35 elsif ($mif record =~ /"(.*):(.*);$/) 

{ 

dprint "mif — $1 : $2"; 

$mif Address = mifValueByRadix($l , $mif AddressRadix) 

$mi f By t es P e rDa t a ; 

40 $mifData = mifValueByRadix ( $2 , $mifDataRadix) ; 

dprint "mif — $mif Address $mifData" ; 

for($i =0; $i < $mif BytesPerData; $i++) 
{ 

45 dprint "mif — ",$i + $mif Address ,":", $mif Da ta&Oxff ; 

$hash{$mif Address + $i} = $mifData & Oxff; 

$mifData »= 8; 

} 

} 

50 } 

dprint "mif hash keys"; 
foreach $i ( sort (keys ( %hash) ) ) 
{ 

dprint "$i : $hash{$i} " ; 

55 } 

return %hash; 
} 

60 



# 

# hash2dat ( ha shRe f , width, lanes, lane, info) 

# 

# Returns giant string ready to be written to a file. 
# 

sub hash2dat 
{ 

my $bytesRef = shift; 
my $width = shift; 
my $lanes = shift; 
my $lane = shift; 
my $info = shift ; 

my $addressLow; 
my $addressHigh; 
my ©-addresses; 

my $ address; 
my $addressRange; 
my $addressStep; 
my $bytesPerData; 
my $dataFormat; 
my $ depth; 
my $result = 

ray $i; 

my $v; 

my $line; 

my $bytesPerLine; 

my $bytesThisLine; 

©addresses = sort {{ $a <=> $b } keys (%$bytesRef ) ); 
$addressLow = $addresses [ 0 ] ; 
$addressHigh = $addresses [ $#addresses] + 1; 
$addressRange = $addressHigh - $addressLow; 

$bytesPerData = ceil($width / 8) ; 

$addressStep = $ lanes * $bytesPerData; 
$dataFormat = "%0" . $bytesPerData * 2 . "X" ; 

$depth - log (ceil ( $addressRange / $addressStep) ) / log(2); 
$depth = ceil ($depth) ; 
$depth = 1 « $depth; 

# 

# Print the MIF file header 
# 

addTo \$result, sprintf ( " \@%08X" , $addressLow / $addressStep) 



$line = ; 



$bytesThisLine = 0; 
$bytesPerLine = 16; 

for($address = $addressLow + $lane * $bytesPerData 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for($i = 0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8} ; 
> 

$line .= sprintf ( $dataFormat , $v) . " "; 
$bytesThisLine += $bytesPerData; 
if ($bytesThisLine $bytesPer!iine) 
{ 

addTo \$result, $line; 
$line = " " ; 
$bytesThisLine = 0; 
} 

} 

addTo \$result, $line if $line ne " " ; 

# Is this needed? the old converter tacked on an extra 00. 
addTo \$result, "00" x $bytesPerData; 

return $result; 
> 



# 

# hash2mif (hashRef, width, lanes, comments, lane, info) 
# 

# Returns giant string ready to be written to a file. 
# 

sub hash2mif 
{ 

my $bytesRef = shift; 
my $width = shift; 
my $ lanes - shift; 
my $comments = shift ; 
my $lane = shift; 
my $info = shift; 

my $ addr e s sLow ; 
my $addressHigh; 
my ^addresses; 

my $address; 

my $ addre ss Range; 

my $ addr es s S tep ; 

my $bytesPerData; 

my $dataFormat; 

my $ depth; 

my $result = " " ; 

my $mi f Addr e s s ; 
my $i; 
my $v; 

©addresses = sort( {$a <=> $b} keys ( %$bytesRef ) ) ; 
$addressLow = $addresses [0] ; 

$addressHigh = $ addresses [ $#addresses] + 1 ; 
$addressRange = $addressHigh - $ addre ssLow; 



$bytesPerData = ceil($width / 8) ; 



$addressStep = $lanes * $bytesPerData; 
$dataFormat - H %0" . $bytesPerData * 2 . "X" ; 

$depth = log ( ceil ($addressRange / $addressStep) } / log(2); 
$depth = ceil ( $depth) ; 
$depth = 1 « $depth; 

# 

# Print the MIF file header 
# 

addTo \$ result; 

if {$coirnaents) # MAX hates mif comments, so say — comments=0 i: 

you ' re MAX . 

{ 

addTo \$result, "/* This file generated by nios-convert */'*; 

addTo \$result f V* $info */"; 

addTo \$result, "/* " , dateTime ( ) , " */" ; 

addTo \$ re suit, " /* " . sprint f ( " 0x%08x 

0x%08x" , $addressLow, $addressHigh) , " */ " ; 
} 

addTo \$result; 

addTo \$result, "WIDTHS, $width, 
addTo \$result, "DEPTH=" , $depth, " ; " ; 
addTo \$ result; 

addTo \$result, 11 ADDRESS_RADIX=HEX; " ; 
addTo \ $ result , " DATA_RADIX=HEX ; " ; 
addTo \ $ re suit; 

addTo \$result, "CONTENT BEGIN"; 
addTo \$result; 

$mif Address = 0 ; 

for($address = $addressLow + $lane * $bytesPerData ; Saddress 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for($i = 0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef (Saddress + $i} « ($i * 8) ; 
} 

addTo \$result, sprintf { " %08X : $dataFormat ; n , $mif Address++ , $v) ; 
} 

addTo \$result; 

addTo \$result, "END;" ; 

addTo \ $ result ; 

addTo \$result, "/* End of file */" ; 

return $result; 
} 



# 

# parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 

# the form 11 --key=value" . The hyphens 

# disappear from the key name. 



# 

# A command line switch of " — key 11 

# is equivalent to " — key=l" . 
# 

5 # a special key named _argc contains 

# a count of non-dash-dash arguments, 

# and they are in the hash as {0}, {1}, 

# and so on. 

10 sub parseArgs 
{ 

my $arg; 
my $argVal; 
my $argc; 
15 my %hash; 

$argc = 0; 



20 while ($arg = shift) 

{ 

dprint "pars eAr g s : $ ar g " ; 

usage if $arg eq " — help"; 

25 if ($arg =~ /*—/) 

{ 

if{$arg =~ / * — (.*) \= (.*)$/ ) 
C 

$arg - $1; 

30 $argVal = $2; 



} 



else 



{ 

$argVal = 1 ; 

35 } 



$hash{$arg} = $argVal; 
} 



else 

40 { 



$hash{$argc++} = $arg; 
> 

} 

45 $hash{_argc} = $argc; 

return %hash; 
} 

50 # 

# getSwitch(hashRef , switchName, defaultValue [, mustBeNumber] ) 
# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 
55 # if it was not specified in the command line. 

sub get Switch 
{ 

my $hashRef = shift; 
60 my $switchName = shift; 

my $def aultValue = shift; 
my $mustBeNumber = shift; 



my $switchValue; 



30 



$switchValue = $$hashRef {$switchHame} ; 

$switchValue = $def aultValue if ( $switchValue eq ""); 

$switchValue *= 1 if (SmustBeNumber) ; 

return $switchValue; 
} 



10 # 

# main 

sub main 
{ 

15 my %switches; 

my $ lanes; 

my $width; 

my $sourceFileName; 

my $sourceFilelsrameBase; 
20 my $sourceFormat ; 

my $dest Filename; 

my $destFileBase; 

my SdestFormat; 

25 my $sourceFile; # complete contents 

my @destFile; # complete contents, indexed by lane 

my $lane; 

%switches = parseArgs (@_) ; 

$lanes = getSwitch ( \%switches , "lanes" , 1) ; 
Swidth = getSwitch(\%switches, "width", 16) ; 
$comments = getSwitch ( \%switches, "comments" , 1) ; 



35 

# 

# Source name & format 
# 

40 $sourceFileName = $switches { 0} ; 

usage ( ) if $sourceFileName eq " " ; 

if ($sourceFileName =~ (.*) \ .( [~ .]*)$/ ) 
{ 

45 $sourceFileNameBase = $1; 

$sourceFormat = $2; 
} 

# 

50 # Dest name & format 

# 

$destFormat = "mif" ; 
if ($switches{l}) 
55 { 

dprint "switchl = $switches{l} " ,* 

$destFileName = $switches { 1} ; 
if ($destFileName =- ( . * ) \ . ( [ A . 3 * ) $/ ) 
{ 

60 $destFileNameBase = $1; 

$destFormat = $2; 
1 

} 



$destFormat = getSwitch ( \%switches , " of ormat" , $destFormat ) ; 
$destFileNameBase = $ {sourceFileNameBase} if ( $destFileName eq ""); 
$destFileName = " $ {destFileNameBase} .$ {destFormat }" ; 

dprinfc "destFormat = " , $destFormat ; 
dprint "destFileNameBase = 11 , $destFileNameBase; 
dprint " dest Filename = " , $destFileName; 
dprint " sourceFileName = " , $sourceFileName; 



$sourceFile = readFile ($ sourceFileName ) ; 

die "Bad file $ sourceFileName" if $sourceFile eq " " ; 

if ($ sourceFileName =~ /.mif$/) 
{ 

%bytes = mif 2hash($ sour ceFile) ; 
> 

else 

{ 

%bytes = srec2hash($sourceFile) ; 
} 

$sourceFile = " 11 ; # done with source data, thankyou 
# 

# Generate each lane of the result file, 

# switching by destFormat 
# 

for ($ lane = 0; $lane < $ lanes; $lane++) 
{ 

if ($dest Format eq "mif") 
{ 

SdestFile [$lane] 
hash2mif (\%bytes, $width, $ lanes , $ comments, $lane, 

"source file: $ sourceFileName, lane $lane 

$ lanes" ) ; 

} 

elsif {$ destFormat eq "dat") 
{ 

$destFile [$lane] = hash2dat ( \%bytes, $width, $lanes , $lane, 

"source file: $ sourceFileName , lane $lane 

$ lanes" ) ; 

} 

# 

# If we supported something besides mif, we'd add it here. 

# elsif. . . 
} 

for ($ lane = 0; $lane < $lanes; $lane++) 
{ 

if ($lanes > 1) 
{ 

$destFileName = $destFileNameBase . "„lane_" . $lane . " 

$destFormat ; 

} 

writeFile ($destFileName, SdestFile [$ lane] ) ; 
} 

} 



# 

sub usage 



{ 

print «EOP; 



nios-convert [options] sourceFile [destFile] 

5 

sourceFile can be . srec or .mif 
destFile will get same name as sourceFile if omitted 

— lanes=x : break up into multiple output files, with _lane_0 . 

10 _lane_(x-l) appended 

--width=x : set output width to 8, 16, or 32 
— oformat=f : format can be mif or dat 

--comments=b : comments in mif file enabled (1) or disabled (0) 
Default is enabled 

15 

" nios -convert " 

nios-convert is a tool to convert files between several 
formats. The formats supported are S-record, mif, and dat. 
20 These are three formats used in Nios hardware and software 
development . S-records are used to download code to the 
Germs monitor, mif files are used to specify the contents 
of Nios ROM and RAM devices, dat files are used as data for 
Modelsim to simulate a Nios hardware design. 

25 

It is sometimes necessary to break up a file into individual 
"lanes"; if the — lanes option is used for more than 1 lane, 
then the result files will have the names n lane_0", "lane_l" , 
&c, appended to them. 

30 

EOP 



35 exit(0); 

} 

main{@ARGV) ; 



40 



# end of file 



Ptf__Update.pl 



# ! /contrib/bin/perl 

# Just a wrapper to call the "main function" in this here module, 

# so that you can do it from the command-line : 
use wiz_utils; 

&PTF_Translate_01d_Version (@ARGV) ; 



srec2mif .pi 

# 1 /contrib/bin/perl 

5 # 

# srec2mif 

# usage: srec2mif source-file 

# dvb \ Altera \ 2 000 

10 

my $file = shift; # name of file to read 

my $ out File; 
my $a; 

15 my $recordType; 

my $recordLength; 

my $recordAddress ; 

my $recordData; 

my SrecordChecksum; 
20 my $residue; 

rny $i; 

$outFile = $file . ".mif"; 
if($file =~ /"(.*) .srec$/) 
25 { 

$outFile = $1 . ".mif"; 

> 

open (FILE, " <$f ile" ) or die "could not write to $file" ; 
30 open(OUTFILE, ">$outFile") or die "could not write to $outFile" ; 

# changed output file to make it MAX+Plus2 Friendly, 

# specif icially c style comments are not handled and 

# UNS should be DEC. 
35 print OUTFILE «EOP; 

WIDTH=16; 
DEPTH=512; 

40 ADDRESS_JRADIX=DEC; 
D ATA_RAD IX= HEX ; 

CONTENT BEGIN 
EOP 

45 while ($a = <FILE>) 

{ 

if ($a =~ / A S( [123]) (..)(.*) (..)$/) # an S record we 

can use 

{ 

50 $recordType = $1; 

$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

55 $recordLength -= $recordType + 2; 

my $addressStringLength = ($recordType +1) * 2; 
$recordAddress ~ 
hex ( subs tr($a, 0, $addressStringLength) } ; 

$recordData = substr ( $a, SaddressStringLength) ; 

60 

if { $residue) 
{ 

$recordAddress-- ; 



$recordData = $residue . $recordData; 
} 

$recordLength = length ( $recordDat a) & ~3 ; 

5 Si = °<* 

while ($i < $recordLength) 

{ 

printf OUTFILE " %5d : %s%s ; \n" , $recordAddress/2 , 
substr ($recordData, $i+2 , 2 ) , 
IQ substr ($recor&Data, $i, 2) ; 

$recordAddress += 2; 

Si += 4; 

} 

$residue = substr ( $recordData, $i) ; 
15 > 



print OUTFIIiE «EOP; 

20 

END; 
EOP 

# And end of this file, tool 

25 



srec2sim.pl 



# I /contrib/bin/perl 
# 

$HELP_STRING = «EOT; 

# srec2sim.pl (C) dvb 2000 Altera 
# 

# 

# Translates any Nios S-record into Verilog memory-initialization 

# (.dat) files. 
# 

# OVERVIEW 

# 

# Let's suppose you have a program — perhaps even a C-proram — and you 

# want to simulate a Nios system running that program. 
# 

# As you know, the Nios PBM-wizard generates, among other things, a 

# test bench for the Nios System Module you specify. How handy. But 

# how do you get it to run a given program? Wouldn't it be great 

# if your simluated Nios System Module were connected to a simulated 

# memory device with -your program- already loaded into it? 
# 

# Yep, that'd be cool. 
# 

# This utility converts any compiled Nios program (any S-record) 

# into four .dat-files. These dat-files are suitable directly for use 

# with the provided behavioral memory model "Demo_Ext_Ram_Sim_Model . v" 
# 

# That behavior model contains four individual byte-wide memory arrays 

# (one array for each byte-lane of a 32-bit-wide memory bank) . At 

# simulation-start, each byte-lane is initialized with conents from a 

# file of a particular, fixed name. The four fixed file names are: 
# 

# external_ram_lane_0.dat — Initializes bits 0..7 of memory. 

# external_ram_lane_l.dat — Initializes bits 8.. 15 of memory. 

# external_ram_lane_2.dat — Initializes bits 16.. 23 of memory. 

# external_ram_J_ane_3.dat — Initializes bits 24.. 31 of memory. 
# 

# This utility emits these four files as output. It takes, as input, an 

# S-record which encodes the program or data you want these files 

# to contain. 
# 

# -- USAGE — 
# 

# perl srec2sim.pl [-b <mem-base-address>] <srec-f ile-name> 
# 

# <mem-base-address> : Target memory base-address in the simulated system. 

# For the Nios demo kit, the external (main) memory 

# is mapped at address 0x40000. That would be the 

# number you'd enter here. The default value is 

# zero (0) . 
# 

# 

EOT 



# 

# Globals accessible to everyone... 
# 

my ©memory; # byte by byte memory snarf . 



my $memoryLow = 999999999; 
my $ memory High = 0 ; 



my $file = 
my $mem_base = 0 ; 

while C$arg = shift (@ARGV) ) 
{ 

$mem_base = eval { shift (@ARGV) ) , next if $arg =~ / /s -b$/i; 

die ($HELP_STRING) if $file; 
$file = $arg; 

} 

die ($HELP_STRING) if !$file; 



# This comment gets s tuck-in at the top of all the generated output 

# files: 

$OUTPUT_HEADER= «EOT; 
// External memory model initialization file. 
// contents translated from the S-record file: 
// 

// $file 
// 

// These contents were relocated for a memory with 

//a chip-select base-address at $mem_Jbase. 

// 

// This file was created by the utility script n srec2sim.pl . " You 
// can use this script to convert any S-record (compiled program) 
// into a group of four memory initialization files. 
// 

// These files are designed for use with the module 
// 

/ / Demo__Ext_Ram_S imJModel 

// 

// That module is just a simple behavioral (NOT timing-accurate) model 
// of the 32 bits x 64K asynchronous SRAM which comes on the Nios 
// demo kit board. 
// 

// That module gets its initial data from four files. This is one of those 

// files. 

// 

// For more information about simulating a Nios core running a compiled 

// program, see the comments atop "srec2sim.pl" 

// 

EOT 

# 

# EmitDATFiles 
# 

# This just uses all the globals inherited 

# from main. Why a subroutine? So we can 

# add a different one, perhaps, for MIF 

# or other spewers . 

sub EmitDATFiles 
{ 

my $ lanes = 4; 
my $outFileBase; 
my SoutFile; 
my $ address; 



my $lane; 

my $lineCount; 

$outFileBase = $file; 

$outFileBase = $1 if ($file =~ / A { . * ) . srec$/ ) ; 
$outFileBase .= ".dat" ; 

# 

# Emit a file for each lane 
# 

for ($ lane = 0; $lane < $ lanes; $lane++) 
{ 

$outFile = ,, external_ram_lane_$lane" . ".dat"; 
#$outFile = $outFileBase . $lane; 

open (OUTFILE, ">$outFile n ) or die "could not write to $outFile" ; 
printf OUTFILE $OUTPUT_HEADER; 

printf OUTFILE "@%04x\n" , int ( ( $memoryLow - $mem__base) / $ lanes ) ; 
$lineCount = 0; 

for($address = $memoryLow + $lane; $address < $memoryHigh; $address 

$lanes) 

{ 

printf OUTFILE "%02x " , $memory [ $address] ; 
$lineCount++; 
if ($lineCount >= 16) 
{ 

print OUTFILE "\n" ; 
$lineCount = 0; 
} 

printf OUTFILE "\n00\n" ; # why? the example had it. 

close (OUTFILE) ; 
} 

} 



my $a; 

my $recordType; 
my $recordLength; 
my $recordAddress; 
my $recordData; 
my $recordChecksum; 
my $residue; 
my $i; 

# 

# Step 0 . Open input file 
# 

open (FILE , *' <$f ile" ) or die "could not read from to $f ile" ; 
# 

# Step 1. Read every S-Record we can understand 



into ©memory, or $memory[], if you prefer. 



10 



15 



20 



25 



while ($a = <FILE>) 
{ 

if ($a =~ / A S([123]) (. .) (.*) (..)$/) # an S record we can use 

{ 

$recordType = $1; 
$recor&Length ~ hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

$recordLength -= $recordType + 2 ; 
my $addressStringLength = ($recordType 4-1) * 2; 
$recordAddress = hex (substr ( $a, 0 , $addressStringLength) ) ; 
$recordData = substr ($a, $addressStringLength) ; 

# recordAddress is the where the first byte 

# of recordData goes. recordData is ascii hex pairs, 

# byte by byte 

while ($recordData =~ /*(..)(•*)$/) 
{ 

$memory[$ recordAddress] = hex($l) ; 
$memoryLow = $ recordAddress if 



$memoryLow; 
$memoryHigh ; 



$memoryHigh = $ recordAddress if 



$ r ec or dAddr e s s 
$ recordAddres s 



30 



$recordData = $2; 
$recordAddress++ ; 
} 



35 



} 

printf {"Read S-records from %X to %X\n" , $memoryI,ow, $memoryHigh) ; 
printf (" Relocating to memory at base address %X.\n", $mem_base) 
if $ mem_ba se; 



40 



# Step 2. Spew out the memory file in some format. 
# 



45 



EmitDATFiles { ) ; 



# And end of this file, tool 



vhdl_simulation . pi 

#Copyright (C) 2000-2001 Altera Corporation 

################################################### 
#main program begins here. 

my $help__string = «END_OF_HELP ; 

vhdl„simulation . pi 

This program converts nios 1.1 verilog simulation files to vhdl 
simulation files. It has been provided as a service to customers who 
design with vhdl exclusively. It converts verilog simulation files 
generated by the nios 1.1 kit into equivalent vhdl files. This 
program is NOT a general verilog to vhdl converter. 

It is the belief of the Altera Nios group that the hdl world is split 
roughly evenly betweeen vhdl and verilog users. Designers who wish to 
incorporate intellectual property (IP) from external sources into 
their designs will quickly find themselves in need of bilingual HDL 
tools. Such tools exist and we enthusiastically endorse them. We 
have had a good experience with a bilingual simulator license from 
modelsim technology. You can contact them at http://www.model.com/. 

To run this program, you first need to generate nios 1.1 verilog 
suitable for simulation. To do this, you must exit the Nios System 
Builder MegaWizard and hand edit your <system.ptf> file. Under the 
system WIZARD_SCRIPT„ARGUMENTS you should add the line. 

do„build„sim = "1" ; 

It is important that you put this line in the WIZARD_SCRIPT_ARGUMENTS 
of the system and not WI Z ARD_SCRI PT_ARGUMENTS for a particular module. 
Then open up the MegaWizard and re-generate your system. From now on, 
whenever you re-generate your system, an updated simulation directory 
will be created. 

You will also need a perl distribution which you can obtain on the web 
from active perl. If you don't already have perl 5.0 or greater 
running on your computer, you can get it from: 

http : / /www. actives tate . com/ Products/ Act ivePerl /Download. html 

Then from a command line cd to your nios project/ sim directory and type 

perl vhdl_simulation.pl <nios_system„test_bench . v> 

e.g. to build a vhdl sim model of the 32 bit reference design: 

perl d: /temp/bin/vhdl_simulation .pi ref_32_system_test_bench . v 

The program will then take all the verilog files referred to by 
ref_32_system_test_bench.v and convert them into equivalent vhdl 
files . 

END_OF_HELP 



if (-e $ARGV [ 0 ] ) 
{ 

&Convert_jSimulation_Files ($ARGV[0] ) ; 

} 



else 
{ 

print $help_string; 

} 



############################################################################### 
# 

# V2VHD and accompanying functions takes a verilog file and converts it to a 
vhd file. 

# 

############################################################################### 
# 

# This works with most synthesizable verilog code. 

# Here is what is not supported and known ways to work around it: 

# 0) Verilog numbers must not be more than 32 bits wide 

# 1) No Procedure/Tasks allowed. 

# 2) Asynchronous set/resets must follow elk in always declaration 

# i.e. always @ (posedge reset or posedge elk) not supported, 

# always 8 (posedge elk or posedge reset) is. 

# 3) Asynchronous set /resets must be first declared i.e. 

# always ©(posedge elk or posedge reset) 

# begin 

# if (reset) 

# //asynchronous stuff here. 

# else 

# //synchronous statements here 

# endif 

# 4) Paraxns may not define width, i.e. output [Width - 1: 0] foo not supported 

# 5) Pararns must be able to convert to types of natural or string 

# 6) Parameters must be set using defparam Instance .par am= value not #value 
Instance 

# 7) Instantiation must connected by Instance (.port (connection)) not 
Instance (connection) 

# 8) No case statements allowed. Use a lot of if statements instead. 

# 9) verilog and my code is case sensitive, vhdl isn't. 

#10) don't name a wire/module /instance a vhdl reserved word. 
#11) Integers are forced to be 32 bits wide 

#12) verilog /funky_@ ! #naming_convention_with_slash not supported 

#13) timing statements are not supported i.e. a <= #23 b; will be treated as a 

<= b; 

#14) $readmemb, $readmemh and $write are the only special $variables supported 
#15) It's currently possible to name a wire = tmp_logic later on in the module 
or some 

# other name that get_exclusive name doesn't know about yet. The solution 
is to 

# run through first and gather up all known names then do Exclusive name on 
the known name 

# set 

############################################################################### 
#Ways to make code more readable 

# 1) Put comments back in 

# 2) Find a way to convert boolean to std„logic_vector . 

# 3) Make wire assignments a list with keys = rhs, value = Ihs 

# then when we make a new wire we can look for key rhs before making a new 
wire . 

# 4) Find a better way to concatenate /reduce names, sign extend names 

# 5) Fix condition where wire tmp_logical is declared later on after wire name 
is 

# created. 

# Known Bugs : 

# Is — real should replace equivalences on parenthesis names. 

############################################################################### 
# 



# read_file ( $f ile_index, $complete_f ilename) 
# 

# read_file returns the contents of the file named $complete„f ilename . 

# Sounds like a cakewalk except that Verilog has a means of including files 

# much like C++ does. 
# 

# So everytime read_file sees: 
# 

# * include foo 
# 

# it calls: 

# &read_file ( $f ile_index+l , f oo) ; 
# 

# and sticks the result directly in its string, which it returns when it 

# reaches the end of its file, (Recursive functions are like that) . 
# 

# This file uses a global list called $include_list . 

# $include list is used to ensure that infinite x include loops don't happen 

# see check_f or_inf inite_include__loops 

############################################################################### 
# 

sub read_file 
{ 

my ($file_index, $complete_f ilename, $path) = @_; 
my $f ile_contents; 

$complete_f ilename =- tr | \\ | \/ | ; 
$path =~ tr|\\]\/|; 

twarn "path, filename $path, $complete_f ilename \n" ; 
$path = 11 . " unless $path; 

open <$file_index, "<$path\/$complete_f ilename 1 ' ) | | 

die "Unable to open $complete_f ilename, $!"; 
while (<$f ile_index>) 
{ 

if (0)#{s/ A \s*Vinclude\s+\« (.*?)W/) 
{ 

my $fn = $1; 

#print "in file $complete_f ilename , found include, $l\n" ; 

$fn =~ tr|\/|\\| ; 

if (Sfn !~ /"{(WW) | (\w\:))/) 

{ 

#full path name isnt specified. Use previous directory location. 
$ f n = $path . $ f n ; 

} 

$include_list{$complete__f ilename) . = " , " i 

( $include_list {$complete_f ilename} ) ; 

$include_list{$complete_f ilename} .= $fn; 

#print "include_list for $complete_f ilename i 
" . $include_list{$complete_f ilename} . 

#" check value is $complete_f ilename\n" ; 

&check_f or_inf inite_include_loops ($fn, $complete_f ilename) ; 
$f ile_contents .= &read_f ile ( $f ile_index+l , $fn, $path) ; 

} 

else 
{ 

$f ile_contents . - $_; 

} 

} 

close ( $file_index) ; 

return ( " \n$f ile_contents\n" ) ; 

} 



############################################################################### 
# 

# check_for_inf inite_include„loops 
# 

# I'm getting sick of recursive functions. Here's another one. 
# 

# This one hunts down the tree structure in $included_f ile{list } and makes sure 

# that files don't refer back on themselves via "includes. 
# 

# It is okay for multiple "includes of the same file as long as that file 

# doesn't include something which includes something which includes the orignal 
file. 

# 

# To check, we put a stake in the ground ( $check_value) and traverse the 
"include files 

# If we ever see our stake again, we know we've walked in a circle. 
# 

############################################################################### 
# 

sub check_f or„inf inite_include_loops 
{ 

my ($included_f ile, $check__value) = @_; 

#print "c_f_i_i_l, if, $included_f ile , cf, $check_value\n" ; 

if ( ! $include_JList {$included_f ile} ) 

{ 

return; #never heard of this file 

before 

} too infinite loop here. 

foreach $key (split (A , /, $include_list {$included_f ile} ) ) 

# I've seen this guy somewhere before 
{ # make sure I ' m not 

circling. 

if ($key eq $check_value) 
{ 

die "ERROR: FOUND INFINITE INCLUDE LOOP I \nFILE $check__yalue 
EVENTUALLY INCLUDES ITSELF !\n"; 
} 

else 
{ 

#print "checking $key against $check_value\n" ; 

#no smoking gun yet, check what this file includes. 

#keep the same $check_value; 

&check_f or„inf inite_include_loops ($key, $check__value) ; 

} 

} 

return; 

} 

sub Kill_Comments 
{ 

my ($line) = 



#Kill multi__line_comments 
my $tmp__line; 

while ($line =~ s |^ ( . *?) \/\* ( . *?) \*\/ | |s) 
{ 

$ tmp_l ine . = $ 1 ; 

} 

$tmp_line .= $line; 

#Kill single_line_comments 

$line = 

while ($tmp_line s | *(.*?) \/\/ .*?\n| \n| s) 
{ 



$line .= $1; 

} 

$line .= $tmp_line; 
return <$line) ; 

} 

sub Process_Comments 
{ 

my ($line) = @_; 

# Comments 

# VHDL does not have a means for making multi line comments 

# That means that we have to convert the lines to verilog single line 
comments ( / / ) 

while (Sline — s | *(.*?) \/\* (.*?> \*\/ I $1 |s) 
{ 

my $commented_JLine = $2 ; 

#There better not be nested comments in here! 
die "BAD COMMENT , $commented_line, NESTED COMMENTS I " 
if ($commented_line =~ /\/\*/); 

# Convert all single line comments (//) in the comment to (/-/) so we 

don 1 1 

# confuse ourselves later. 

while ($commented_line =~ s J \/\/ | \ /\-\/ 1 ) { ; } 

$commented„line - join (" \n\/\/ split ( /\n/ , $ comment ed_line) ) ; 

########## 

# Right now we just crush multi-line comments. We could get fancier 

) later 

# If you wanted to keep these comments, uncomment the next line. 

# $line .= ,, \/\/$commented_line\n" 

} 

5 ############### 

# Now we just have single comments left. For these, we can }ust convert 

# the verilog single line comment //to the vhdl single line comment — . 

# We also need to convert all ticked statements, e.g. ( s define, x ifdef, 
x endif , etc. ) 

0 # to their non-ticked counterparts, (define, ifdef, endif, etc.) And since 

we 

# later split commands on semi-colon (; ) Crush ; so that we won't have to 
worry about it . 

45 # crush single-line comments 

while (Sline =~ s| A ( .*?) \/\/ ( - *?) \n( -*) | $l| s) 

{ 

my $ comment = $2; 
my $rest = $3; 

50 #warn "found single line comment named $comment, $l\n" ; 

#Keep comments with special word "exemplar" in them for Leonardo 
Spectrum . 

#But convert comment character to vhdl comment character so that we don t 
#get stuck in an infinite loop. 

55 

if ($comment =~ / A \s*exemplar/i) 
{ 

#warn "putting $ comment back into line\n" ; 
$line .= " \-\-$comment\n" ; 

60 } 

$line .= $rest; 



############### 



# Just kill comments for now 

# while ($comment =~ s/ (V | \ ;)//){; } 

# $line " \-\-$comment" ; 

} 

return { $line) ; 

} 

############################################################################### 
# 

# Process__Verilog_JDirectives takes verilog code as its sole string argument. 

# It then processs all things in the file that have " associated with it except 

# for "include 

# such " thingees include 

# "define foo 3 

# "if def, 'else, "endif 

# "foo 

# It returns an equivalent verilog string devoid of all 'marks. It replaces 

# all "foo with its definition if defined. {No error message is printed if foo 

# has not been defined) . It does the correct thing on "idef , "else, "endif 

# statements, (including nested ifdefs) . 

############################################################################### 
# 

sub Process„Verilog_Directives 
{ 

my ( $line) = @_; 

my $def ined_line = " " ; 

undef % defined; 
undef %def inition_of ; 
my %de fined; 
my %def inition_of ; 

my @nested__if def s = {1); #start off including code, 
my $I_Should_Keep_This_Part ; 

$line = " " . $line; #a space is added so that first time through, split 
/ " / , we pass through 

#all of the gates and emerged unscathed as the first part of $def ined_line ; 

tprint "line is $line\n" ; 

foreach $tick (split {/V /s, $line) ) 

{ 

$I„Should_Keep_This_Part = eval (join ( ' 1 , @nested__if defs) ) ; 
#print ("tick is Stick, isktp is $I_Should_Keep_This_Part , nifdef = " 
#.join ( ' | ' , @nested_if def s) . " \ndefined line now is $def ined__line 

\n") ; 

die "unmatched "endif" if ((scalar (@nested_ifdefs) ) == 0); 

if (Stick =- /^ifdef \s+(\S+) ( .*) /s) 

{ 

$defined{$l} = 0 unless ($def ined{$l} ) ; 

$I_Should_Keep„This„Part = ($def ined{$l} && 

$I_Should_Keep_This_Part ) ; 

push (@nested_if def s, $I_Should_Keep_This_Part) ; 
$def ined_line .= $2 if { $I_Should_Keep_This_Part ) ; 
next ; 

> 

if (Stick =~ / A else\s+(.*)/s) 
{ 

die ("saw "else before v ifdef" ) unless ((scalar (@nested_if def s) > 

1) ) ; 

$I_Should„Keep_This_Part = pop (@nested_if def s) ; 



$I_Should_KeepJThis_Part = { ! $I_Should_Keep_This_Part) && eval (join 
{'&&', @nested_if def s ) ) ; 

push. { @nested__if def s , $I_Should_Keep__This__Part ) ; 
$defined_line .= $1 if ( $I_Should_Keep__This_Part ) ; 
next ; 

} 

if (Stick =- /^endif\s+( .*) /s) 
{ 

die ("saw x endif before "ifdef in $line\n") unless ((scalar 
( toes ted„if def s) > 1) ) ; 

pop ( toes ted_i f def s) ; 

$I_Should__Keep_This_Part = eval (join ('&&', @nested_if def s) ) ; 

#print "endif says isktp is $I_Should_Keep_This_Part , nif ".join 
( 1 | 1 , toested_ifdefs) ; 

$def ined„line .= $1 if ($I_Should_Keep_This__Part) ; 
next ; 

} 

if (Stick =~ AAdefine\s+ <\S+) \s*(\S*) \s*$/m) 
{ 

i f ( $I_ShouldJKeep_JThis_Part ) 
{ 

#print "definition of $1 is $2, vpp pass is $vpp_pass"; 

#die "$1 is defined in 2 places" if ($def ined{$l} ) ; 

$defined{$l} = 1; 

$def inition_of {$1} = $2; 

Stick =~ s/M.*?)\n(.*)/$2/s; 

$def ined_line .= Stick; 

} 

next ; 

} 

if (Stick =~ /~(\S+) ( .*) /s) 
{ 

Stick = $def inition_of {$1} .$2; 

$def ined_line .= Stick if ( $I_Should__Keep_This_Part } ; 
next ; 

} 

if (Stick =~ / A \s+/s) 
{ 

#this should only be the first one, 

$def ined_line ,= Stick if ( $I_Should_Keep__This_Part ) ; 
next ; 

} 

} 

die "missing "endif" if ((scalar ( toes ted_if def s) ) > 1); 
return ( $def ined__line) ; 

} 

sub date„time 
{ 

my ($sec, $min, $hour , $mday, $mon, Syear, $wday, $yday r $isdet) = localtime ( time) ; 
$mon++ ; 

Syear += 1900; 

my $d = sprintf ( "%04d.%02d.%02d" r $year, $mon, $mday) ; 
my $t = sprintf ( " %02d: %02d: %02d" , $hour, $min, $sec) ; 

return "$d $t" ; 

} 



############################################################################### 
# 

# Verilog_Nuiuber_JTo_Bit„String 
# 

# Verilog_Number_To_Bit_String takes a verilog number of the form 5'hA 

# and turns it into a cjuoted bit string "01010". 

############################################################################### 
# 

sub Verilog_Nuiriber__To_Bit_String 
{ 

my ($verilog__number) = @_; 
my $ integer„value = 0; 
my $ width; 

$verilog_number =~ s/^Xs* ( . *?) \s*$/$l/; 

die "ERROR NO WIDTH SPECIFIED FOR VERILOG NUMBER $verilog_number\n 11 
unless ($verilog_number =~ s/ A ( \d+) \ ' // } ; 

$width = SI; 

die "width is greater than 32 bits. I intend to fix this, but for now, you 
are out of luck\n" 

if <$width > 32) ; 

# If there is an ' x 1 or 1 z' in the number, return 

# a bitstream of x or z with width $width 

if ($verilog_number =~ /([zx])/i) 
{ 

my $tmp_string = $1 x $width; 
return ( " \ " $tmp_string\ n " ) ; 

} 

if (Sverilog__number =~ / A b ( [0-1] +) 
{ 

foreach $bit (split (//,$1)) 
{ 

$integer_value = $integer_value * 2; 
$integer_value += 1 if ($bit == 1} ; 

} 



f ($verilog_number =~ /~d( [0-9] +} $/i) 
$integer__value = $1; 



f ($verilog_number =~ I A o { [0-7] +) $/i) 
$integer_value = eval { " 0 " . $1) ; 



f ( $verilog„number =~ / A h ( [ 0-9a-f ] +) $/i) 
$integer_value = eval ( "Ox" . $1) ; 



die ("ERROR Verilog„Number_To_Bit_Size_And_Bit„String : \n" 
. "NUMBER $verilog_number NOT UNDERSTOOD!") 
if ($integer_value eq " " ) ; 

if ( $ integer^. value >= 2**32) 
{ 



#warn " verilog_number $verilog_number int_value ( $integer_value) i 
bigger than 2**32\n" ; 
my @bit_array; 
while ($integer_value > 0) 
{ 

unshift (@bit_array, ($integer_value % 2) ) ; 
$integer_value = $integer_value » 1; 

} 

my $bit_string - join ( " 11 , @bit_array) ; 

#warn "test way to do it yields $bit_string\n" ; 



#0rion, warn if number is >= than 2»$width 

my $return_string; 
my $mask__value; 

foreach $mask_bit (reverse (0 ..( $width-l) ) ) 
{ 

if ($integer_value & (1 « $mask_bit) ) 
{ 

$return_string .= "1" ; 

> 

else 
{ 

$return_string .= "0" ; 

} 

#return ( " \ ' $return„string\ • " ) if ($width == 1); 
return ( " \ " $return_string\ " " ) ; 

} 

sub VN2BS {return ( &Verilog__Number_To_Bit_String (@_) ) ; } 

sub Process_Concatenation 
{ 

my ($string, 

@Module_Inf o) = @_; 
my ( 

$Width_List, 

$Signal_List, 

$pWire_As s ignment s , 

$Eo^iivalence_List) = @Module__Inf o ; 

my ($begin, $middle, $end) = &Count_Parentheses ($ string, ' \ £ * , ' \ } ' ) ; 
#warn "PC: middle ($middle) \n" ; 
iwarn %$Width_List ; 

#warn "PC: end\n" ; ^ m ^ 

die "ERROR Process_Concatenation, NO VALUE BETWEEN SQUIGGLY BRACKETS 

($string) \n" 

if ($middle eq " " ) ; 
while ($middle =~ s/\ { | \ } //g) { ; } #e.g. {a,b, c , {a, e} , f , g} -> (a, b, c , a, e , f , 

my ( $expanded_array , $width) 

&Expand_Array_Of_Bit_Vectors_Into„Separated_Bits { " , " , $middle, @Module_Inf o) ; 
# W arn "P_C, return_width is $return__width, width is $width\n" ; 
$string = " $begin M ; 

if (scalar (split ( / \ , / , $expanded_array) ) == 1) 
{ 

my $tmp_string = $expanded„array; 
while ($tmp_string =~ s/ \ ' / \ " / ) { ; } 

#Turn indexed bits into bit array of size 1 

while ($tmp_string =~ s/ \ [ \s* ( \d+) \a*\] / \ [ $1 : $1\1 /s) { ; } 



$string . = $tmp_string; 

} 

else 
{ 

$string .= " std_logic_vector\ 1 " ; 

$string n \ ( " ; 

$string $expanded_array ; 

$string . = " \)$end"; 

> 

#warn "PC: Concatenation = $string\n M ; 

return C&Replace ("Concatenation = $string" , $width, @Module„Inf o) ) ; 

} 

############ ##########^^ 
# 

# Expand_Array_Of„Bit_Vectors_Into_Separated_Bits 
# 

# Does exactly what it says. e.g. 

# &Expand_Array_Of„Bit_Vectors_Into_Separated_Bits <A(3 DOWNTO 2) ,"0010") 

# returns ■ A[3 ] , A[2 ] , ■ 0 ' , ' 0 ' , ' 1 1 , 1 0 ' " 

# We convert brackets to VHDL Parentheses at the end of the module 
################################ ############################################### 

# 

sub Expand„Array__Of„Bit_Vectors_lnto„Separated_Bits 
{ 

my ($ separator, 

$Comma_Separated_String, 
@Module_Info) = @_; 

my ($Width_List, 
$Signal_List , 
$pWire_Assignments , 
$Equivalence_List) = @Module_Inf o; 

my $string = " " ; 
my $width = 0; 

foreach $name (split ( /\s*\ , \s*/s , $Comma_Separated_String) ) 
{ 

$name =~ s/ A \s* ( . *? ) \s*$/$l/s; 
twarn "eabvisb name ($name)\n"; 

$name = &V2VHD_Equation ( $name , @Module_Info) ; 



#Convert Bit String into bits, i.e. "10110" => ■ 1 * , ' 0 ' , ' 1 ' , ' 1 ' , ' 0 1 
if (&Replace_Equivalences ($name , $Equivalence_List) 

/~(\" |V) ( [01XZ]+)\l$/i) 
{ 

foreach $bit (split ( // , $2) ) 
{ 

$string .= "$separator " if ($string) ; 
$string .= "V$bit\' "; 
$width+-f ; 

#warn " eaobvisb bit„string bit is $bit, width is $width\n" ; 

} 

> 

else 
{ 

my ($lef t, $right) ; 



($name, $left, $right) = &Vector_Range ( $name , $Width_List) ; 



if (Sleft eq " " ) {$left = &Width_Of { $name, $Width_List ) ; } 

if ($right eq 

{ 

$name = &Add_Intermediate_Signal ( " tmp_$name 

$name" , $lef t , @Module_Inf o) ; 

Sleft = eval ($left - 1) ; 
$right = 0; 

} 

$left = eval ($left) ; $right = eval (Sright) ; 

foreach $index (ScOrder ( $lef t , $right) ) 

{ 

$width++; 

$string .= "$ separator \n\t " if ($string) ; 
$ string . = " $name\ [$ index \ ] " ; 

#wam " eaobvisb ($ name ($ index) $ separator) added to string, width 
is $ width \n" ; 

} 

} 

} 

return ( $string, $width) ,- 

> 

############################################################################### 
# 

# Vector_Order 

# Inputs, $left, $right 
# 

# VectorjDrder (0,4) returns (0 TO 4) 

# Vector„Order (3,1) returns (3 DOWNTO 0) 

############################################################################### 
# 

sub VectorjDrder 
{ 

my ($lef t_index, $right_index) = @_; 
re turn " ( $ 1 e f t_index ) " 

if ( $right_index eq " " ) ; 
if ( ($lef t_index >= $right_index) || ( $right_index == 0)) 
{ 

return " ($left__index DOWNTO $right_index) " ; 

} 

else 
{ 

return " ($left_index TO $right_index) " ; 

} 

} 

############################################################################### 
# 

# Order 

# Inputs, $left, $ right 
# 

# Order (0,4) returns array (0,1,2,3,4) 

# Order (3,1) returns array (3,2,1) 

############################################################################### 
# 

sub Order 
{ 

my ($lef t, $right) = @_; 



my @Vector__Array; 

die " ERROR Order: LEFT VALUE ($left) NOT A NUMBER\il" 
unless ($left =~ s/"As* ( \d+) \s*$/$l/s) ; 

die " ERROR Order: RIGHT VALUE ($right) NOT A NUMBER \n" 
unless ($right =~ s/^Xs* (\d+) \s*$/$l/s) ; 

if ($right > $left) {@Vector„Array = ( $lef t . . $right ) ; } 
else{ @Vector_Array = reverse ( $right . . $lef t ) ; } 
return (@Vector_Array) ; 



############################################################ 

# Width_Of 
# 

# Returns the width of a variable, verilog number, or vhdl bit^stream. 

# eg. Width_Of <4'h2) = 4; Width_Of "01010" = 5; 

# Returns if the width is not known. 
# 

#^########################################################## 

sub Width_Of 

{ 

my ($var, $Width_List , $pParameter) = 

#KILL SPACES I KILL! KILL 1 
$var =~ s/ A \s*< ,*?)\s*$/$l/s; 

#A verilog number is nice enough to tell you its width 

#at the very beginning. Usually a pain, but in this case it is great 

if ($var =~ / A (\d+) \ 1 [bdoh] ( [\d+a-fxz] ) /i) 

{ 

#wam " WIDTH_OF found verilog number $var, returned width of $l\n" 
return ($1) ; 

} 

# Count the bits in a vhdl bit stream 
if ($var =~ /'MV'jV) { [ 01X2] +} \l/i) 
{ 

my $width = scalar (split (//,$2)); 

#warn " WIDTH_OF found vhdl number $var, returned width of $width\n 
return ($width) ; 

} 

my ($name, $lef t , $right) = &Vector — Range { $var, $Width__List , $pParameter 
#warn "Width_Of $var after Vector_Range, left, right -> $left, $right\n 
return if ($left eq " " ) ; #Not Known; 

return "$left" if ($right eq " " ) ; #Known, but not a vector, 
return (abs($left - $right) + 1); ivector width arithmetic 



############################################################ 

# Vector_Range 
# 

# Returns the name and (left and right value) of the vector range for a 

# verilog or vhdl vector. 

# if 

# reg [4:0] foo; 

# &Vector_Range (foo [3:2]) = (foo, 3, 2) 

# ScVector__Range (foo) = (foo, 4,0) 

# &Vector_Range (foo [2]) = (foo, 2, 2) 

############################################################ 

sub Vector^ Range 

{ 

my ($var, $Width_List, $pParameter) = @_; 



my $name ; 
my $left; 
my $ right; 

$var =~ s/*\s* ( .*?> \s*$/$l/s; 

#If our var is foo [3:2] return {£00,3,2} 

fWe're not sophisticated enough to deal with (>1) -dimensional 
#vectors. If you need a multi -dimensional vector width, 
#there is a keyboard in front of you, start typing. 

if ($var =~ /(\w+)\s*\[(.*?)\]/s) 

#warn " Width_Of brackets, inside brackets is $2\n" ; 
$name = $1; 

($left,$right) = split { /\s*\ : \s*/s , $2 ) ; 

$left = eval($left) ; 

$right = $left if ($right eq " 11 ) ; 

$right = eval ($right } ; 

return ( $name , $lef t , $right ) ; 

} 

#If our var is foo (3 DOWNTO 2) return (foo, 3, 2) 
if ($var =~ /(\w+)\s*\((.*?)\)/s) 

#wam '* Width_Of brackets, inside brackets is $2\n" ; 

$name = $1; 

my $ index = $2; 

($left,$right) = split ( /\s* (DOWN) ?TO\s*/s ,$ index) ; 

$left = eval($left) ; 

$right = $left if ($right eg ""); 

$right = eval (Sright) ; 

return ( $name, $lef t , $right) ; 

} 

#No indecies are specified, that means use the whole 
#variable. Fortunately, we have already saved all 
#variable widths in %$Width_List 

<$left,$right) = split ( /\ , / , $$Width_List{$var } ) ; 
$name = $var; 

return ($name, $lef t , $right) ; 

} 

##############t############# ############################################# 
# 

# Replace_Parameters 

# Replaces all text in $val with $$pParameter{ text } 

# Currently not being used 

sub Replace_Parameters 
{ 

my ($val, $pParameter) = @_; 

while ($val =~ s/ A (.*?)( \b [a-zA-Z\_l \w* )(.*}$ /$l/s) 
{ 

last if ($2 =~ / integer /i) ; 

my $param_substitution = $$pParameter{$2 } ; 

die "ERROR PARAMETER SUBSTITUTION: PARAMETER $2 NOT DEFINED\n" 

if ( $param_substitution eq " " ) ; 
$val $param_substitution. $3 ; 

} 

return (eval ($val) ) ; 

} 



############################################################################### 
# 

# Get_Port„Name_Direction_And_Type 

# Takes a vhdl port string and returns Name, Direction, Type and Vector Range 

# i.e. SIGNAL data_f rom__cpu : OUT 5TD_L0GIC_VECT0R 

# returns ( "data_from_cpu n , "OUT" , M STD_L0GIC_VECT0R{31 DOWNTO 0)") 
# 

sub Ge t_Po r t_Name_Dir ec t i on_And_Typ e 
{ 

my ($string) = 

my $possible_variables = ' SIGNAL | VARIABLE | SHARED \s+VARI ABLE * ; 

if ($string /*\s* ($possible_variables) \s+ ( \w+> \s* : \s* ( \w+) \s* ( . * ) $/is) 

{ 

my ( $name, $direction, $type) = ($2 ,$3 ,$4); 
return ( $name, $direct ion, $ type) ; 

} 

else 
{ 

die "ERROR Get_Port_Name_Direction_And__Type , IMPROPER STRING $string\n"; 

} 

} 

############################################################################### 
# 

# Declare_Signal 
# 

# takes, $name, $pSignal_Width as arguments, returns 

# SIGNAL $name : STD„LOGIC_VECTOR ($left DOWNTO $right) 

# or 

# SIGNAL $name : STD_LOGlC_VECTOR ($left TO $right) 

# depending on pSignal_Width 

sub Declare_Signal 
{ 

my ($name, $pSignal_Width) = @_; 

my ($left , $right) - split ( A , / , $$pSignal_Width{ $name} ) ; 
die ,, Declare_Signal / bad inputs ($name, $lef t , $right) \n" 

if (($name =- /\W/) |j ($left /\D/) || ($right =~ AD/)); 
my $Signal__Declaration; 
if ($left < $right) 
{ 

$Signal_Declaration = " SIGNAL $name : STD_LOGIC_VECTOR ($left TO 
$right) ; " ; 
} 

else 
t 

$Signal__Declaration = " SIGNAL $name : STD_LOGIC_VECTOR ($left DOWNTO 
$ right) ;"; 
} 

#warn " DECLARE_S I GNAL RETURININGG $Signal_Declaration\n"; 
return ( $Signal_Declaration) ; 

} 

############################################################################### 
# 

# Conver t_S i gna 1 s_To_Shar ed_Var i abl e 
# 

# Takes a string and a pointer to Signal_List. 

# Converts every word( \b( [a-zA-Z] \w*) \b) in the Signal_List from a SIGNAL 

# to a SHARED VARIABLE. Returns an array of all words changed. 

# This function is only needed to handle blocking statements . 

sub Convert_Signals_To_Shared_Variable 
{ 



my ($line, $Signal_List) = @„; 

die " ERROR Convert_Signals_To_Shared_Variable , Signal_List IS NULL\n (f 

if ( I $Signal_List) ; 
my @return_array; 

while (Sline =- s/\b( [a-zA-Z] \w* } \b// ) 
{ 

my $variable = $1; 

push (@return_array, $variable) ; 

my $tmp_Signal_List = $$Signal_List { $variable} ; 

die "ERROR VARIABLE CONVERSION: of ($variable) FAILiED 

($tmp_Signal_List) \n" 

unless ($tmp_Signal_List =~ s/ A ( \s* ) (SIGNAL | SHARED VARIABLE ) / $ 1 SHARED 
VARIABLE/ s) ; 

#warn " CSTSV, signal was $$Signal_List {$variable} now is 

$tmp_Signal__List\n" ; 

$$Signal__List{$variable} = $tmp_Signal_List ; 

} 



sub Process_Register_Assignment 
{ 

my { $line, @Module_Inf o) = @_; 
my ( $Width_L i s t , 
$Signal_List , 

$pWire_Assignments) = @Module_Inf o ; 
my $lhs; 
my $rhs; 
my $lhs_width; 
my $af ter_line ,- 

#Process $readmem(b |h) , $write, etc 

#warn "line is $line\n" ; 

if (Sline =~ s/ A ( \s*> (\$ . *?) \s*$/$2/s) 

{ 

return ( $1 . &Process_Dollar_Verilog_Statements C $line, @Module_Inf o) ) ; 

} 

#Search for delay patterns 

$line =- s/(.*)\#\s*\S*{.*)/$l $2/s; 

# " #" delay kind of broken due to differences between languages 

# representation of delays, so just forget about them for now 
if (0)#($line =~ s/ ( . *) \#\s* ( . *) /$l/s) 

{ 

my $wait__amount = $2; 

my ($tmp, $delay_amount , $rest_of__line) ; 

if ($wait_amount =~ 
{ 

($tmp, $wait_amount , $rest_of_line) = &Count_Parentheses ( $wait_amount ) ; 
$line .= $rest_of_line ; 

} 

else 
{ 

$wait„amount =~ s/ A (\S+) ( .*) $/$l/s; 
Sline .= $beginning_of_line . $2 ; 

} 

#If there is only a delay statement, e.g. (#32;) return "wait for 32 ns ; " 

if ($line =~ /*\s*\;/s) 

{ 

return { "WAIT FOR $wait„amount ns;"); 

} 

else 
{ 



$after_ line = "AFTER $wait_amount ns" 

} 



} 

#There are two kinds of verilog assignments that can be made 

# 1) blocking " =" assignment made immediately 

# 2) non-blocking "<=" assignment made after all other items in that 

# times tamp are equated 

if ($line =~ /*{.*?) (\<\=|\=) <.*)$/s) 
{ 

my ($lhs , $ opera tor , $rhs) = ($1,$2,$3); 
my $ tmp. pWire _As s i gnmen t s ; 

my $line = &V2VHD_Equation_Wrapper ("$lhs = 

$rhs" , $Width__List , $Signal_JList , \$tmp_pWire_Assignments) ; 

#warn 11 P_R„A: After Wrapper wire assignments are $$pWire_Assignments\n" ; 

if ($operator eq " \=") 
{ 

$line =~ s/ A (.*?)\<(\=.*?)$/$l:$2/s; 

Iwarn "found blocking statement ( $lhs$operator$rhs) lhs is ($lhs)\n"; 
############### 

# BLOCKING STATEMENTS are tricky. 

# Verilog has this concept of "blocking and non -blocking" statements. 

# VHDL has module scoped SIGNALS that can only be non-blocking and 

# process scoped VARIABLES that must be blocking. To convert 

# verilog blocking statements into an equivalent VHDL blocking 

statement , 

# we must first convert the lhs of the blocking assignments within 

our process 

# into VARIABLES. At the end of our process, we transform all our 

VARIABLE 

# names into temporary variable names and assign the original SIGNAL 

names 

# equal to the temporary variable names. Perhaps an example will 

keep my 

# confusing explanation from spinning your head any longer. 
# 

# always <£ (po sedge elk) 

# a = a + 1; 
# 

# will become: 

# PROCESS BEGIN 

# WAIT UNTIL elk = "1"; 

# number_JL__l_bits__wide := "1" ; 

--all machine generated equations 

# a_2_bits_wide := std_logic_vector ' ('0', variable_a ( 0 ) ) + 
— must preceed assignment and be 

# std__logic_vector ' { ' 0 ' , 

number„l__l_bits_wide (0) } ; — of type VARIABLE 

# variable_a : = a_2„bits_wide { 0 DOWNTO 0); 

# a <= variable_a; 

# END PROCESS 

# 

############### 
############### 

# First, we convert any machine generated wire assignments to 

variable 

# assignments within the line since they need to be evaluated before 

# the "effective immediate" (ly) variable assignment. 



# in the above example, number_l_l_bi t s_wi de and a_2_bits_wide are 

# "machine generated" . 

my $machine_generated__commands = " " ; 
#warn " tmp_WA ( $ tmp_pWire_As s ignment s ) \n " ; 

my {@blocking_commands) = split ( /\ ; / , $ tmp_^>Wire_Ass ignment s) ; 

foreach $block„command (@blocking_commands) 

{ 

$block_command =~ s/ A { . *?) \< ( \= . *?> $/$l : $2 ; /s; 
&Convert_Signals_To_Shared_Variable { $1 , $Signal_List ) ; 
$machine_generated_commands .= " $block_command" ; 

} 

$line = $machine__generated_commands . $line; 
############### 

# Now we'd like to translate all left hand side arguments in the 

process 

# into tmp names. Unfortunately, we only know what's in this line, 

not 

# what is in the entire process. So for each chip design, we put a 

non-vhdl 

# sentence that says "Please Convert $signal_name To A Variable" in 

$line . 

# We'll do the conversion later. Pretty hacky, I know. 

$lhs s/\ [ . *?\] //s; #do not convert memory indexes; 
while <$lhs =~ s/\b( [a-zA-Z] \w*) \b//) 
{ 

$line .= "Please Convert $1 To A Variable"; 

} 

} 

else { $ $pWi r e_As s i gnment s . = $ tmp_pWi r e_As s ignment s ; } 

if ( $af ter__line ne "") 
{ 

$line =~ s/\;\s*$//s; 

return (" $line $af ter_line; " ) ; 

} 

else 
{ 

return ("$line") ; 

} 

} 

else 
{ 

return " n ; 

} 

} 

sub Ge t_Exc lus ive_VHDL_Name 
I 

my ($name r $Iiist) ~ @„; 
$name =~ tr/A-Z/a-z/ ; 

#First make $name into a vhdl acceptable name 
#warn "eatme 2, $name\n" 
# i f ( $ GLOB AL_DEBUG ) ; 

#Say goodbye to everything that is not a word character in name, 
while ($name ~~ s/\W+//){;} 



#Convert spaces to underscores 
while ($name =- s/ \s+/ \„/s ) { ; } 



#But not too many underscores, vhdl will not let you have two underscores 
in your name or 

#any underscores at either end 
while ($name =- s/ (\_J {2 , } /\_/s) { ; } 

while ($name =~ s/ A \_+ ( . *? ) \„+$/$l/) { ; } 

#vhdl does not like names to begin with numbers 
$name =~ s/ * ( \d) /number_$l/ ; 
#warn "eatme\n" ; 
#warn "IN GETXNAME \n 11 
#if ($GLOBAL_DEBUG) ; 
while (S$List {$name} ne ) 
{ 

#warn "G_E_N name $name already taken. Trying tmp_$name\n" 
#i f { $GLOBAIi_DEBUG) ; 
$name = " tmp_$name" ; 

} 

#warn "G__E_N name $name not taken. \n" 

#if ($GLOBAL_DEBUG) ; 

#Keep Place holder at this name. 

$ $Li s t { $name } = " Taken 11 ; 

return ($name) ; 

} 

############################################################################### 
# 

# Convert_Integers_To__Std_Logic_Vector 
# 

# Convert__Integers_To_Std_riOgic_Vector takes left, operator, right as inputs. 

# If left /right are integers, it converts them to a bit vector. 

# If the widths of left or right is not known, it sets the unknown width ec[ual 
to the known width. 

# (Perhaps it should not do this?) 
# 

# It does not use the operator now, but it maybe useful later. 

sub Convert_Integers_To_Std_Logic„Vector 
{ 

my £$left, $operator, $right, $Width_JList , $Equivalence__List) = 
my $left__width = &Width__Of ( $lef t , $Width_List) ; 
my $right_width = &Width_Of {$ right , $Width_List) ; 

#Check that widths are equal if both are known. 

if ( ($left_width) ($right_width) ) 

{ 

if ($left_width i= $right_width) 
{ 

my $tmp_ left = &Replace_Equi valences { $lef t , $Equivalence„JCiist) ; 
my $tmp_right = &Replace„Equivalences ($ right , $Equivalence_Lfist ) ; 
#warn ( "WARNING EXPRESSION ($left $operator Sright) \n" 

#."WIDTH OF $tmp_left { $lef t_ width) 1= WIDTH OF $tmp_right 
($right_width) i\n") ; 
} 

} 

else #Warn if neither width is known. 
{ 

if ( l ($left_width | | $right„width) ) 
{ 

die ("CV2SLV VECTOR WIDTHS ( $lef t_width) ( $right_width) UNKNOWN FOR 
EXPRESSION ARITHMETIC OPERATION ($2) ($3) ($4)\n n ); 
} 



else #If only one width is known, convert the unknown width. 
{ 

if ( $lef t_width) #right width is unknown. 
{ 

if ($right =~ / A \s* (\d+) \s*$/s) #number => verilog decimal number 
with width $left_width 
{ 

#warn ("right width is unknown, left width is $lef t_width\n" . 
#"sending $lef t_width\ » d$l to VN2BS" ); 
$right = &W2BS ( " $lef t_width\ ' d$l" ) ; 

} 

> 

else tleft width is unknown. 
{ 

if ($left =- / A \s* ( \d+) \s*$/s) Inumber => verilog decimal number 
with width $right_width 
{ 

#warn ("left width is unknown, right width is $right_width\n ! ' . 
#"sending $right_width\ ' d$l to VN2BS" ); 
$left = &A/N2BS("$right - width\'d$l") ; 

} 

} 

} 

} 

#Now determine the proper width. 
#take max 

my $max__width = $right_width; 
$max_width = $left_width 

if ($left__width > $right_width) ; 

return ($max_width, $left, $right) ; 

} 

############################################################################### 
# 

# Replace_Equivalences 

# Replaces all tmp names in Equivalence List. Since some names 

# In Eguivalence_List refer to other names in the same Equivalent_List , 

# Replace__Equivalences is Recursive. See big comment before sub V2VHD_Equation 

# for an explanation of the bigger picture . 

sub Replace_Equivalences 
{ 

my ($string, $Equivalence_List ) = 
my $ new_s t r i ng ; 
my $replacemen ^valued- 
while ($string ne " " ) 
{ 

if ($string =- s/^ ( [\W\ " \ ' \d] +) / /s) { $new„string .= $l;next;} 

if ($string =~ s/ A (\w+)//s) 

{ 

my $word = $1; 

$replacement„value ~ $$Equivalence_List { $word} ; 

if ($replacement_value eq "") 

{ 

$new_string .= $word; 

} 

else 
{ 

my $ne w_rep lacemen t_va 1 ue 

&Replace_Equivalences ( $replacement_value , 

$Equivalence_List) ; 



############### 

#parentheses get replaced if there is additional replacement levels 
#inside the parentheses, e.g. verilog statement 

# (a+b) => (binary) => parentheses. 

# When replacing, 

# parentheses => (binary) (a+b) 
# 

# (a) => parentheses 

# When replacing 

# parentheses => a //no parentheses 

if ( ($word =- /parentheses/ i) 

($$Equivalence__List{$replacement_value} } ) 
{ 

$new_replacement_value = " \ ( $new_replacement_value\ ) " ; 

} 

$new_string ,= $new_replacement__value ; 

} 

} 

} 

return ( $new__string) ; 

} 

sub Ve s t i gua l_Rep 1 ac e_Equ i va 1 enc e s 
{ 

my ($string, $tmp_Eguivalence„List) = 

my %Equivalence„List = %$tmp_JEquivalence_List ; 

my $ value s_were_changed = 1; 
while ($values_were_changed) 
I 

$values_wer exchanged = 0; 

foreach $key (keys (%$Equival enc e_List ) ) 

{ 

my $value = $$Equivalence_List { $key} ; 

#Put parentheses around value if key was parenthesized 
#And it needs it 

if ( ($key =~ /Parentheses/) ( $$ Egu ival enc e_List { $value} ) ) 
{ $value = " \ ( $value\ ) " ; } 

while ($ string =- s/\b$key\b/ $value/ ) 
{ 

#warn "key is $key\n value is $value\n string is $string\n" ; 
$values__were__changed = 1; 
undef $$Eguivalence_List {$key} ; 

} 

} 

} 

#Now crush parentheses around single objects 

#while ($string =~ s/ \ ( ( [ \sa-zA-z\ " \ ' 3 [ \s\w\ » \ 1 ] * ) \ ) /$l/s) { ; } 

#warn "Replace__Equivalences , done, string is $string\n" ; 
return ($string) ; 

} 

############################################################################### 
# 

# ReadMem takes a verilog $readmem(b | h) (<f ilename> , <memory>) 

# instruction and then hardwires _memory_ to the values in __f ilename_. 

# This isn't as flexible as a true conversion of readmem would be (<filename> 

# could be parameter! z able and be different for multiple instances of the 

# same module. In the future , this should be replaced with a real vhdl 



# equivalent, but it is so much easier to parse filenames with perl than 
vhdl 



sub ReadMem 
5 { 

my ( $mem_radix , 
$ da t_f i 1 ename , 
$mem_name , 
@Module_Info) = @_; 

10 

my ($Width__L,ist, 
$Signal_List , 
$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o; 

15 

my $return_string; 

my ($left,$right,$up,$down) = split { /\s*\ , \s*/s , $$Width_List { $mem_name} ) ; 
my ($width) = &Width_0f ($mem__name , $Width_List ) ; 
open (DAT, "< $ da t „f il ename " ) or 
20 open ( DAT , " < ni o s_sy s t em_s im\ / $ da t_f i 1 ename " ) or 

warn " \nWarning, cannot open $ da t__fil ename ($!)\n n ; 



my $dat_contents ; 
25 while (<DAT>) 

{ 

if (s/ A (.*?)\/\/-*$/$l/) (;} 
$dat_contents .= $_ 

unless (/ A \s*$/s); 

30 } 

close (DAT) ; 

my @Address_Data__Pairs = split (A@/, $dat_contents) ; 
foreach $address_data (@Address_Data_Pairs) 
35 { 

my ($address,@data) = split ( /\s+/s, $address_data) ; 
#warn "address is $address. data is @data\n" ; 
my $integer_address = eval ( " Ox$address " ) ; 
foreach $datum (©data) 
40 { 



if ($mem_radix eq "b 1 ') 
{ 

$datum = "V^datumV 1 " ; 

45 } 

else 
{ 

$datum = &VN2BS ( " $width\ ' $mem_radix$datum" ) ; 

} 



50 



$retum_ string .= * $mem__name ( $integer_address) <= $datum; \n" ; 
$integer_address++ ; 



} 

55 return ($return_string) ; 

} 

############################################################################### 
# 

60 # Process_Dollar„Verilog_Statements 
# 

# Converts verilog $readiriemb, $readmemh and $write statements 

# to the appropriate vhdl equivalent 
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# 

sub Process_Dollar_Verilog_Statements 
{ 

my ($equation,@Module_Info) = @_; 

my ($Width__List, 
$ S i gnal_I/ i s t , 
$pWire_Assignments , 
) = @Module_Inf o ; 

my $return_string; 



if ($equation 
/-\s*\$readmem(b|h) \s*\ ( \s*\ " \s* { \S+) \s*\ " \s*\ , \s* ( \w+) \s*\) \s*\ ; \s*$/is) 
15 { 

my ( $mem_radix, $dat„f ilename , $mem_name) = ( $1 , $2 , $3 ) ; 
return ( &ReadMem ( $mem_radix , 

$ da t _f i 1 ename , 

$mem__name , 
20 @Module_Info 

) 

) ; 

} 

if ($equation =~ /"A$write\s*\ ( \s*\ "(.*?) \ " \s*\ , \s* (.*?) \s*\ ) \s*\ ; /is) 
25 { 

my ($quote, $values) = ($1,$2); 

my @values_array = split (/\s*\ , \s*/s, $values) ; 

my @string_array = ( n " ) ; #put null in first spot and index from 1 
30 $string_length 

my $string_length = 0; 

while ($quote) 

{ 

$string_length++ ; 
35 if ($quote =~ s/ A ( [\%\\] \w) //) 

{ 

die "ERROR \$$equation ONLY \%c IS CURRENLTY SUPPORTED AS DATA 

TYPE ! \n n 

unless ($1 =~ /\%c/i) ; 
40 push 

(@string_array, " character ' val (CONV_INTEGER ( " . shift (©value s_arr ay) ."))"); 
} 

else 
{ 

45 $quote =~ s/ A (.}//; 

push (@string_array, " \ 1 $1\ 1 " ) ; 

} 

} 

# make a string signal of width $string_l ength 
50 my $string_name = &Get_Exclusive_VHDL_Name { " string_name" , $Width_List ) ; 

$$Signal_List{$string_name} = " SIGNAL $string_name : STRING (1 TO 
$ s t r ing_l ength ) ; " ; 

$$Width_List{$string_name} = " 1 , $string_length" ; 

55 #warn " string_array is @string_array\n" ; 

foreach $index (1 $string_l ength) 
{ 

$return_string .= " $string_name ($ index) <= 

$string_array[ $ index] ; \n" ; 
60 } 

$return_string . = " write (output , $string_name) ;\n"; 
return ($return_st ring) ; 



} 
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15 



die "ERROR Process_Dollar_Verilog_Statements , STATEMENT ($equation) NOT 
UNDERSTOOD \n" ; 
} 

sub V2VHD_Equation_Jtfrapper 
{ 

my C $ equation , @Module„Inf o) = @_; 

my ($Width_List , 
$Signal_List , 
$pWi r e_As s ignment s , 
$Equivalence_List ) = @Module„Inf o ; 

my %E_List; 



my $pE_List = \%E__List; 
$pE_List = $Equivalence_List 
20 if ( $Equivalence_Iiist) ; 

my $string = &V2VHD_Equat i on (@_, $pE_List) ; 
$string = &Replace_Equivalences ($string, $pE__List) ; 

25 #Undef the trap names so that we can use them again next time 

#Do not undef if $Equivalence_List was non-null because 
#we've been recursively called, 
if (I $Equivalence_List ) 
{ 

30 foreach $key (keys (%pE_List ) ) 

{ 

#undef ($$Width_JList{$key}) ; 
$$Width_List{$key} = " " ; 

} 

35 } 

#kill std„logic_vector ' on lhs concatenations 
while ($string =~ s/ A \s*std„logic__vector\ 1 //s) { ; } 

tconvert assignment operator to <~ 
40 $string =~ s/\={l}\s*/\<\= /s; 

twarn " Final Answer: $string\n" ; 
return ($string) ; 

} 

45 ############################################################################### 
# 

# Replace 
# 

# Replace replaces a complicated expression with a simple exclusive name. 
50 # See V2VHD__Equation comment. 

# e.g. 

# ScReplace ("foo = a + b" , 4 , @Module_Inf o) ; 

# would get an exclusive name for foo, set 

# $Equivalence„List {&Get_Exclusive„Name (foo, $Width_List) } = a + b; set 
55 # $Width_List {<the exclusive name for foo>}= 4 

# and return the exclusive name for foo so that V2VHD_Equation can substitute 
it 

# into equations . 

60 sub Replace 
{ 

my {$ equation, 
Swidth, 



@Module_Info) = 

my ($Width_List , 
$Signal_List, 
$pWire„Assigmnents , 
$Equivalence_List) = @Module_Inf o; 

#die 11 ERROR Replace: width is ($width) in equation ($eciuation} \n" 
#unless $width; 

my ($replacement_name, @tmp_replacement_value) = split 

(/\s*\={l}\s*/s, $equation) ; 

my $replacement_value = join ( " = 11 , @tmp_replacement_value) ; 

$replacement_name = 
&Get_Exclusive_VHDL_Name ( " $replacement_name " , $Width_List) ; 

$$Equivalence_List{$replacement_name> = $replacement_value; 
$$Width„List{$replacement_name} = $width; 
return ( $replacement_name) ; 



############################################################################### 
# 

# Find_In_Order 
# 

# searches $equation for each term in a 11 | " separated regexp. 

# searches in order and returns the first exp that matches. 

# returns a \ escaped string so that $ equation can be 

# patterned matched. 

sub Find_In_Order 
{ 

my <$equation, $regexp) = @_; 
$regexp =~ s/ ( [ - | ] ) $/$l | /s ; 

my $tmp_regexp = $ regexp; 
my $exp; 

while ($tmp_regexp =~ s/ A ( - *? ) \ | //) 
{ 

Sexp = $1; 

ttwarn "FIO looking for ($exp)\n 11 ; 

if ($equation =- /($exp)/) 

{ 

$exp = $1; 

#warn "FIO found ($exp) IN EQUATION ( $equation) \n" ; 
last; 

} 

} 

die "ERROR Find_In_Order : ($regexp) NOT FOUND IN ($equation) \n" 

unless ($exp ne " " ) ; 
$exp =~ s/(\W)/\\$l/gs; 
return { $exp) ; 

} 

############################################################################### 
# 

# V2VHDJEquation 
# 

# Verilog and VHDL have similar operators, but of course they are 

# different because as Buddah says, "Life is Suffering" . 
# 

# Fortunately, since the operators do pretty much the same thing , we 

# dont have to evaluate too many verilog expressions . For most 

# operators, we just need to translate verilog arithmetic into vhdl 

# arithmetic. 



# 

# Verilog and vhdl handle numbers differently, so we need to convert 

# numbers from verilog (32,4'hF,0) into their corresponding vhdl 

# std_logic_vector bit strings " 10000" ," 1111 "," 00 " . We also need to 

# determine the bit width of the number. We do that based upon the 

# closest known width operating on the number, i.e. (foo[4:0] == 0) 

# means 0 probably has width of 5 . 
# 

# VHDL really like "types" and that gets us in a little trouble. A 

# naive translation of the verilog expression: 

# wire counter„ne_zero = ! (counter [3 : 0] == 0) 

# Would be: 

# SIGNAL counter_ne_zero: STD_LOGIC; 

# counter_ne_zero <= NOT (counter(3 DOWNTO 0) = "0000") 
# 

# Unfortunately, the result of (counter (3 DOWNTO 0) =0) is type 

# boolean, not std_logic. If there were an easy way to type change a 

# boolean to std_logic, it would be easy to say: 

# counter_ne_zero <= NOT (To_std_logic (counter (3 DOWNTO 0) - 
"0000" ) ) 

# 

# But I have not found an easy way to do so. To work around this, I 

# declare a tmp signal tmp_counter_ne_zero . (I make sure this signal 

# isnt already used by someone else first.) It gets assigned to using 

# the vhdl WHEN, ELSE statement: 

# SIGNAL tmp„counter_ne_zero: STD_LOGIC_VECTOR (0 DOWNTO 0) ; 

# tmp_counter_ne_zero <= "1" WHEN (counter (3 DOWNTO 0) = "0 000") ELSE 
i, 0 .. . 

# --Now we are back in happy std_logic_vector land: 

# counter_ne_zero <= NOT ( tmp_counter_ne_zero) ; 
# 

# All types are converted to STD_LOGIC_VECTOR inside the Entity (VHDL for 
module) 

# We convert types to/ from STD_LOGIC at the beginning and end of the entity. 

# e.g. 

# module foo (c) ; 

# output c; 

# //more verilog code here 

# endmodule 
# 

# turns into 

# ENTITY foo IS 

# PORT ( 

# SIGNAL a : IN STD_LOGIC; 

# SIGNAL b : INOUT STD_L0GIC ; 

# SIGNAL c : OUT STD_LOGIC; 

# ) ; 

# END foo; 

# ARCHITECTURE behavior OF foo IS 

# SIGNAL tmp_a : STD_LOGIC„VECTOR { 0 DOWNTO 0); 

# SIGNAL tmp_c : STD_LOGIC_VECTOR ( 0 DOWNTO 0); 

# — INOUT signals are kept as STD_LOGIC_VECTOR 

# — other signals here 

# BEGIN 

# --verilog code translates to vhdl here 

# c <= tmp„c(0) ; 

# tmp_a(0) <= a; 

# END behavior 
# 

# IMPORTANT IMPORTANT 

# INOUT STD_LOGIC_VECTOR (0 DOWNTO 0) signals are not converted to STD_L0GIC 

# INOUT signals are not so easy to convert to STD_L0GIC 

# sometimes the INOUT signal looks like an output 



# sometimes its an input. Eventually, I could declare two tmp_signals . 

# Convert the signal on the rhs of all equations to be the input version 

# signal and convert all signals on the Ihs to be the output signal . 

# Determine what signal is driving. Then say: 

# inout_signal = (Driving) ? tmp_output__inout : l'bz; 

# tmp_input__inout = inout_signal . 

# For now you'll just have to deal with a STD_LOGIC(0 DOWNTO 0) INOUT. 

# Everything instantiating the module will hook up to it correctly. 

# END IMPORTANT IMPORTANT 
# 

# V2VHD_Equation can recursively and iteratively call itself. 

# The main idea is that complicated expressions 

# can be turned into simpler expressions through replacing 

# expressions with exclusive words. (see subroutines Replace and 
Replace_Equi valences) 

# Converting an expression with V2VHD_Equation simplifies th 

# e.g. 

# verilog: c <= a + b + jc; 

# Gets turned into 

# 1) c <- a + b + reduction; //$Equivalence_List {reduction} = 
"(c(msb) or c (msb - 1) ... or c(lsb))" 

# //$Width_List {reduction} = 1; #as if 
reduction were a verilog signal. 

#2) c <- addition + reduction / /$Equivalence_List {addition} = "a + b"; 

# //$Width_List {reduction} 
max(width(a) , width (b) } + 1; 

#3) c <~ tmp_addition / /$Equivalence_Ijist {tmp_addition} = addition 

+ reduction; 

# //$Width__List {reduction} = 
max (width (addition) , width (reduction) ) + 1; 

# 

# V2VHD would then return c <= tmp_addition 

# V2VHD_Equation_Wrapper is the top level call to V2VHD_Equation . calls 
&Replace„Equivalences after 

# V2VHD„Equation . Replace_Equivalences will replace every 
key (%Equivalence_List) with $Equivalence_List { $key} . 

# Using c <= tmp_addition from the example before. Replace_Equivalences will 
do: 

#0) c <= tmp_addition 

#1) c <= addition + reduction; 

#2) c<=a+b+ reduction; 

#3) c <= a + b + (c(msb) or c (msb - 1) ... or c(lsb)); — voila, a valid vhdl 
equation 

sub V2VHD__Equation 
{ 

my ($ equation, 

@Module_Inf o) = @_ ; 

my { $Width_L i s t , 
$Signal_List, 
$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o ; 

my $width; 

my $left; 

my $right; 

my $ debug = "verilog" ; 



while ($equation =~ s/\s+//sg) { ; } ; 

#Convert all verilog numbers to equivalent word name. 



while ($equation =~ s/ {.*?) (\d+\ ' [bodh] [\da-fxz] +)(.*) /$l/si) 
{ 

my ($replace_this) = &VN2BS{$2); 
$width = &Width_Of ($2,$Width_List) ; 

$replacement_name = ScReplace ( "Verilog^Number 

$replace„this" , $width, @Module_Inf o) ; 

$equation .= " $replacement_name $3"; 
warn " verilog number equation now is $equation\n" 
if ($debug =~ /number/); 

} 

#Convert vector [max_index:min_index] to equivalent word name, 
while (Sequation =~ s/~ (. *?\b) (\w+) \s* (\ [{.*?) \] )(.*) /$l/s) 
I 

my $replace_this = $2;; 

{$replace_this,$left,$right) = &Vector_Range { " $2$3 " , $Width_List ) ; 
my $rest = $5; 
# Worry about memories 

my ($l,$r,$up,$down) = split { /\s*\ , \s* /s , $$Width_JList { $2 } ) ; 

if ($up ne " " ) 

{ 

#It 1 s a memory 

#warn "equation is $equation\n" ; 

warn " \nVERILOG TO VHDL CONVERSION: " . &date_time . " USING MEMORY 

$2\n" ; 

$replace_this .= " ( CONV_INTEGER{ unsigned ( $4) ) ) " ; 
<$left,$right) - ($l,$r); 

} 

else 
{ 

$right = $left if ($right eq w " ) ; #If only one value, 
#$replace_this .= &Vector_Order ( $lef t , $right) ; 

$replace_this .= " [$lef t : $right ] " ; #we ' 11 change vector order when we 

#replace_equivalences 

} 

#warn "in brackets, (&Module_Inf o) \n" ; 

$replacement_name = ^Replace ( "Verilog„Bracket 

$replace_this" , " $lef t , $right " , @Module_Inf o) ; 

$equation .= " $ replac ement_name $rest" ; 



#WRONG WRONG WRONG WRONG WRONG 
#THE ORDER BELOW IS WRONG 

# Now the order of operators we have (according to verilog 13 64 and Samir 
Palnitkar's book) 

# to handle are 

# 1) Parentheses, Replecation and Concatenation 

# 2) Unary (+,-,!,-) 

# 3) Multiply, Divide, Modulus (*,/,%) 

# 4) Add, Subtract, Shift ( + ,-), «, » 

# 5) Relational (<, <=, >, >=) 

# 6) Equality <==, !=) 

# 7) Binary Bitwise 

# 8) Logical {&&, | | ) 

# 7) Reduction | ) 

# 9) Conditional (?:) 
#10) Assignment ( = ) 

#WR0NG WRONG WRONG WRONG WRONG 

#THE ABOVE ORDER IS WRONG 

#AND IS A BUG IN THE 13 64 spec. 



#SEE THE FOLLOWING POST FROM ALT , COMP . LANG . VERI LOG 



#. . .Based on the information obtained from "private sources" (a member 
#of the 13 64 WG) I concluded that the TAble 4-4 is, indeed, 
#wrong, and, maybe, the table in Thomas and Moorby 2nd is not 
#right, either. 

#ALL unary operators have precedence higher than ANY binary operator, 
#while the precedence among unary operators is non-essential. 
#So, Table 4-4 gives erroneous precedence for ~& and ~| UNARY 
#operators placing them where such BINARY operators should have 
#been had they existed. It is still to be determined whether 
#binary A ~/ A has the same precedence as & (T&M) or lower (IEEE 
#Draf t) , and that can be easily accomplished with Verilog-XL 
#which I'm going to do shortly. 
# 

#Regards to all, 
#Sergei Sokolov 



my $unary_operators = 

my $reduction_operators = 

■\&{1} |\~\&£1} |\~A A {1> |\i {1} \\~\\ {1} ' ; 

my $all_unary__operators = join ( ' | 1 , $unary_operators , $reduction_operators) ; 

my $relational_equality_operators = 1 \<\= ( \< ( \>\= | \> | \= {2 } | \ I \- 1 ; 

my $arithmetic_operators = 1 \* | \/ | \+ ( \- 1 ; 

my $binary_bitwise = ' \&{1} \ j \ | {1} | \~\ A | \ A \~ ' ; 

my $shif t_operators = ' \<\< j \>\> 1 ; 

#It's a pain to differentiate between \Sc\& and \&, so change 

#logical operators to something easier to discern. The " marks 

tare the verilog escape character, so we know some verilog typer 

#won't accidentally type "AND" accidentally. 

while ($equation =- s/\&{2} A " AND\ " /) { ; } 

# Similar argument for | | 

while ($equation =- s/\ | {2 } / \ "OR\V } { ; } 

my $logical_operators = i "AND" | "OR" ' ; 

#1 also hate those === and !== operators which (for all synthesizable 
^ #code does just the same thing as == and != 
while (Seguation =~ sAt\-{2}A!\—/) {;} 
while ($egoiation =~ s/ W3 } A*W ) { ; } 

my $binary_operators__with_same__width_operands_and_shif t_operators = join 
$ari thmetic_operators , 

$binary_Jbitwise , 
$shif t_operators , 

$relational_equality__operators , 

$ logical_operators 
) ; 

my $operator_order = join ( 1 | • , $all_unary_operators , 

$binary_operators_with_same_width„operands_and__shift_operators, 
$logical_operators) ; 

# la) PARENTHESES 
{ 

m Y ($before_paren, $inside_paren, $af ter^aren) 

&Count_Parentheses ($ equation) ; 



while ($inside_jparen ne " " ) 
{ 

############### 

# if there is one or more operators inside the parentheses, then 
process it (them) . 

# Otherwise strip the parentheses and continue. 

# i.e. (counter - 1), process it. 

# (counter) , return counter 
if ($inside_paren =~ /$operator_order/ ) 

{ 

#warn "replace_this found ($inside_paren) in ($ equation ) \n" ; 
#Recurse equation (DAMN DAMN equation!) ; 

my $replace_this = &V2VHD_Equation ( $inside_jparen, @Module_Inf o) ; 
#warn "Parentheses converted {$ inside .paren) to ( $replace_this) , 
($$Width_List{$replace_this}) \n" ; 

die "ERROR V2VHD„Equat ion: replace_this returned ( $replace„this) \n" 

unless ( $replace_this =- s/^Xs* ( \w+) \s*$/$l/s) ; 
my $replacement_name = StReplace ( "Parentheses = $replace__this" , 

$$Width_List{$replace_this} , 
@Module__Inf o) ; 

$equation = " $bef ore_jparen $replacement_name $af ter_paren" ; 
#warn "equation now is $equation\n n ; 

} 

else 
{ 

#warn " parentheses, no operator found\n" ; 
#put parentheses around 

$equation = "Sbefore paren $inside__paren $af ter_j?aren" ; 

} 

($before_paren # Sinside paren, $af ter_paren) = 

&Count_Parentheses ($equation) ; 

#warn " parentheses equation now is $equation, width is $width\n" ; 

} 

} 

# lb) REPLECATION AND CONCATENATION 
{ 

#Replicate first 

#wam * replecation equation was $ equation \n" ; 
while ($equation =~ s/ A ( . *?) \{\s* (\d+) \s* (\{ . * ) /$l/s) 
{ 

my $bef ore_curly_brace = $1; 
my $ repea t_number = $2; 

my ($b,$m,$e) = &Count_Parentheses ($3 , • \s*\{ ' , ' \} \s* ' ) ; 
warn "replecation and concatenation bme is($b), ($m), ($e)\n" 

if ($ debug =~ /replecation/i) ; 
$m = ("$m\," x $repeat_number ) ; 
$m =~ s/\,\s*$//s; #lose last comma. 
$e =~ s/~\s*\}//s ; 

$equation = " $bef ore_curly_brace $b\ { $m\ } $e" ; 
#warn " replecation equation now is $equation\n" ; 

} 

#A11 other curly_braces ({,}) (including the replecation we handled 
above) are concatenation 

my ($bef ore_curly_brace, $inside„curly„brace, $af ter_curly_brace) = 

&Count_Parentheses ($equation, ' \{ ' , * \} • ) ; 

while ( $inside_curly_brace ne " " ) 

{ 

#warn "BPC { $inside_curly_brace) \n" ; 
#warn %$Width_List ; 

my $replacement_name = &Process_Concatenation 
( " \ {$inside„curly__brace\} " , @Module_Inf o) ; 



$equation = " $bef ore_curly_brace $ replac emen t_name 

$af ter_curly_brace" ; 

( $bef ore_curly_brace , $inside_curly_brace , $af ter_curly__brace) = 
&Count_Paren theses ($equation, ' \{ ' , 1 \} • ) ; 
} 

} 

# 2) UNARY OPERATORS 
{ 

############################################################ 

# In addition to the normal unary operators 

# Verilog has these weird but useful unary operators called reduction 
operators 

# a = |foo[3:0] => a = foo[3] | foo[2] | foo[l] | foo[0]; 

# It turns out that these operators are quite useful. 

# However it is difficult to distinguish between the unary reduction 
operator 

# and the binary "or" operator. a - c | foo or a = c + | f oo looks quite 
like a = |foo. 

# 

# Here is how we differentiate. If the first non spaced character before 
the possible 

# reduction character is a word (\w) then consider it a binary operator. 
If it is a 

# non word character , consider it a unary operator. This is good even 
for equations with 

# parentheses because we've already converted parentheses to words. 

# Consider: a = (c + b) | foo 

# Above, we've already converted {c + b) to tmp_paren theses so the 
equation we see is 

# a = tmp_parentheses | foo //binary or 
# 

while ( $ equation =~ / ( $all_unary_op era tors ) / } 
{ 

my $operator = &Find_In_Order ( $equation, $all_unary_operators ) ; 

last unless ($equation =~ 

s/ A ( . *? [ A \w\s] ) \s* ($all_unary_operators) \s* (\w+) (\s*.*) /$l/s | | 

$ equation =~ 
s/ A (\s*) ($all__unary_operators) \s* (\w+) (\s*. *) /$l/s) ; 
my $beginning = $1; 
$operator = $2; 
my $name = $3; 

$width = &Width_Of ($name, $Width_List) ; 
my $rest = $4; 
my $replace_this; 

if ($operator =~ / A $unary_operators$ / } 
{ 

if ($operator eq " \ • " ) 
{ 

if ($width == 1) {$replace_this = 11 (NOT $name) " ; } 
else{$replace_this = "\{$name \= WCO" x $width) . " \ » \ ) " ; } 
$width = 1; 

} 

else 
{ 

Soperator =- s/\~/NOT/; 
$replace_this = " ($operator $name) " ; 

} 

} 

else 
{ 

my $value„to_r educe = $name ; 



my $reduction__operator = $operator; 

$reduction_operator = "OR" if ( $reduction_operator =- /*\\ {!}$/); 
$reduction_pperator = "AND" if ($reduction_operator =- /^\Sc{l}$/ ) ; 
$reduction_operator = "NOR" if { $reduction_operator =- 
/ A \-{1}\| {1}$/) ; 

$reduction_operator = "NAND" if { $reduction_operator =~ 
/*W1}\&{1>$/) ; 

$reduction_operator = "XOR" if ( $reduction_operator =~ / A \ A {1}$/); 
$reduction_operator = "XNOR" if ( $reduction_operator =- 
/ A \ A {1}\~$/) ; 

$reduction„operator = "XNOR" if ( $reduction_operator =~ 
/ A \~\ A {1}$/) ; 

my { $value_to__reduce , $vec_lef t , $vec_r ight ) 

&Vec tor__Range ( $value_to„reduce , $Width_Lis t ) ; 
if ( $vec„right ne " " ) 
{ 

#We can just expand the bit vectors if width is left, right 
because reduction is simple i.e. |a 

( $replace_this , $tmp) = 
&Expand„Array_Of_Bit_Vectors_Into_Separated_JBits ( " $reduction__operator " , 

$value_to_r educe , 

@Module„Inf o) ; 

} 

else 
{ 

#else it's not so simple, so generate a signal = to rhs and 
then reduce the signal 

#warn "reduction operator $ r educt ion_op er ator , vtr $vtr, 

$ tmp_wi dt h \ n " ; 

#We need to first make an intermediate signal since there is an 

operator inside 

my { $new_signal_name) = &Add_In termed! at e„Signal 
{ " reduced_$reduction_operator = $value_to_r educe" , 

&Width_Of { $value__t o„r educe, $Width_JList ) , 

@Module_Inf o ) ; 
( $replace_this , $tmp) = 
&Expand_Array__Of_Bit_Vectors_ Into_Separated_Bits ( " $reduction_operator " , 

$new_ s ignal_name , 

©Modulejnfo) ; 

} 

#Turn indexed bits into bit array of size 1 

while ($replace_this =~ s/ \ [\s* ( \d+ ) \s*\ ] / \ [$1 : $1\ ] / s) { ; } 

§width = 1; 

$replace_this = " ($replace_this) " ; 

} 

my $replacement_name = ^Replace ("unary = $replace_this" , 

$width, 

@Module_lnfo) ; 
Sequation .= "$ replacement _name $rest"; 

} 

} 

# 3,4, BINARY OPERATORS 

# 5,6 RELATIONAL (<, <=, >, >=) AND EQUALITY (==,!=) 

# AND LOGICAL 



{ 

#wani " pre-relational equation is $equation\n" ; 

#die "bowswop is 

$binary_operators_with_same_width_operands_and_shif t_operators \n" ; 

while ($equation =~ 

/ ( $binary_operators_with„same_width_operands_and„shif t_operators) /s) 

{ 

my $ operator = 

ScFind__In_Order ( $equation , $binary_operators„with_same_width„operands_and__shif t_o 
perators) ; 

die "BINARY_OPERATOR ($operator) not found in ( $equation) \n" 

unless ($equation =» s/ A {.*?}( \w+) \s* ( $operator) \s* ( \w+) (.*)/ $l/s) ; 
my $lef t__operand = $2; 
$operator = $3; 

#warn "operator now is $operator\n" ; 
my $right_operand = $4; 
my $rest = $5; 
my $ replace_thi s ; 

if {&Is_real ($lef t_operand) && &Is_real ( $right__operand) ) 
C 

#warn " relational equation is real\n" ; 

#If both are real numbers, evaluate using perl's 

#binary operators. 

if ($operator eq " \ N AND\ " " ) 

{ 

if {($2 ==0) || ($4 == 0) ) {$equation .= "0";} 
else {$ equation .= "1";} 

} 

else 
{ 

if ($operator eq "VORV") 
( 

if {($2 != 0) || ($4 != 1) ) {$eo^iation .= n l" ;} 
else {$equation .= "0";} 

} 

else 
{ 

my SevaluatedExpression = eval ( " $lef t__operand $operator 

$right_operand" ) ; 

# Programming Perl p . 87 : 

# 'The equal and not-equal operators return 1 for true, and 

11 " for false 

# just as the relational operators do) . * 

# Translate all forms of "false" to 0: 

$evaluatedExpression = "0" if ( ! $evaluatedExpression) ; 
$equation . = $evaluatedExpression; 

} 

} 

$equation ,~ $rest; 
next ; 



#shif t_operators operate on integers, all other operators need their 
integers to be converted to bit_vectors. 

if ($operator =~ /"$shif t__op era tors $/ ) 
{ 

if (&Is_real ( $lef t_operand) ) 
{ 

$replacement_name = eval " $lef t_operand $operator 

$right_operand" ; 

# Translate all forms of "false" to 0: 



$replacement_name = "0" if ( ! $replacement_name) ; 

} 

else 
{ 

my ($name, $lef t , $right ) = 

&Vector_Range ($lef t_operand, $Width_List) ; 

$width = &Width_Of ($left_operand, $Width_List) ; 

die 11 ERROR V2VHD_EQUATION ($equation) HAS UNKNOWN width. UNABLE 



TO SHIFT \n" 



AMOUNT \n" 



if [$left eq " " ) ; 

die "ERROR V2VHD_EQUATION ($equation) HAS NON- INTEGER SHIFT 

unless ($right__operand =- s/ A \s* ( \d+) \s*$/$l/s) ; 

if ($right eq " " ) 
{ 

$name = SA.dd__Intermediate_Signal ("shift = $lef t__operand" , 

$ 1 e f t_ope r and_l e f t _index , 
©Module Info 



) ; 



$left— 
$ right 



0; 



} 



############### 

#c [3:0] » 1 = c [3:1] ; 

#c [0:3] » 1 = c [0:2] ; 

my ©array = &Order (Slef t , $right) ; 
my $ zeros; 

while ( {$right_operand — ) && ($width != 0) ) 
{ 

if ($operator eq " \<\<" ) { $zeros .= "0"; $width++; } 
else{ 

if {$operator eq " \>\>" ) {pop (©array) ; $width — } 

else {die "ERROR V2VHD_EQUATION, UNKNOWN SHIFT 

ASSIGNMENT ( $operator) \n" ; } 
} 

} 

my $expand_this_string; 

if (©array) 

( 

$lef t = $array [0] ; 

$right = $array[-l] ; tlast value in the array 
$expand_this_string = " $name\ [ $lef t\ : $right\ ] " ; 
if ($zeros ne " " ) 
{ 

$expand_this_string . = " , \ "$ zeros \ " " ; 

} 

#warn "sending $expand__this_string to EAOBVTSB\n" ; 
($replace_this , $width) = 
£cExpand_Array__Of _Bit_Vectors_Into_Separated_Bits ( " , " , 

$ expand_thi s„s t r ing , 

©Mo du 1 e_In f o 

$replace„this 

} 

else 



) ; 



"std_logic_vector ' { $replace_this) \n". 



{ 

$replacement_name = " 0"; 

} 



} 

my $replacement__name = SiReplace (" shift 

$replace_this" , $width, @Module_Inf o) ; 

$equation .= " $replacement_name $rest"; 
next ; 



if ($operator =~ /^logical^operatorsS/ ) 
{ 

#operator transforms 

#warn "found lo ($lef t„operand, $operator , $right_operand) \n" ; 
$operator = "AND" if {$operator eq " V AND\ " " ) ; 
Soperator = "OR" if ($operator eq " VORV"); 

$replace__this = 
" { 11 . &Process_If_Condition($left_operand,@Module_Info) . " ) $operator { " 

.&Process_If_Condition ($right_operand, @Module_Inf o) . " ) " ; 
$width = 1; 

my $replacement__name = &Add_Intermediate_Signal ("logical = 
WHEN ( $replace_thi s ) ELSE \ " 0 \ » " , 

$ width, 

@Module_Info) ; 

$equation .= " $replacement„name $rest" ; 
next ; 

} 

#warn "calling CV2SLV ($lef t_operand, $operator, $right_operand) \n" ; 

( $width, $lef t_operand, $right__operand) = 
&Convert_Integers_To_Std„IiOgic„Vector ( $lef t_operand, 

$operator, 

$right_operand, 

$Width__List, 

$Equivalence_List) ; 

if ($operator =~ /^$arithmetic_operators$/ ) 
{ 

# VHDL thinks c = a + b results in c_width = max (a„width, b_width) . 

# But that is clearly wrong. In reality, c_width = 
max ( a_wi dth , b_width ) + 1 . 

# So we use reconcile widths to give us signals (new_a,new_b) that 
have widths (a„width+l,b_width+l) ; 

# We use reconcile known widths to get us a signal of the correct 

width. 

my $new__width; 

if ($operator =~ /(\+|\-)/) 

{ 

$new__width = $width + 1; #Max_width from 
Convert_Integers„ To_Std_LfOgic_Vector above . 

$lef t_operand = &Reconcile_Known_Widths ( 

$lef t_operand, 
$lef t_operand, 
$new_width, 

&Width_0f ($left_operand, $Width__List) , 

@Module_Inf o 
) ; 



$right_operand = &Reconcile_Known_Widths ( 

$right_operand, 
$right_operand, 
$new_width, 



&Width_Of ($right_operand, $Width_List) 



@Module_Inf o 



10 } 



if ($operator =~ /\*/) 
{ 

$new_width = &Width„Of ( $lef t_operand, $Width__List) + 
15 &Width„Of ( $right_operand, $Width_List ) ; 
} 

if ($operator =~ /\//) 
{ 

$new„width = &Width_Of ($lef t_operand, $Width_List ) 
20 &Width_Of ( $right__operand, $Width_List } ; 
} 

#warn "worop is " . &Width__Of ($right_operand, $VJidth„List) . " , nw is 
$new_width\n" ; 

25 $width ~ $new__width; 

#warn "width is ($ width.) \n" ; 

#$replace_this = " $new_lef t_operand $operator $new_right_operand" ; 
$replace„this = 11 $lef t_operand $operator $right_operand" ; 
my $replacement_jname = ^Replace ( "arithmetic 

30 $replace__this" , $width, @Module_Inf o) ; 

$equation .= " $ replacement „name $rest" ; 
next; 

} 

35 #relational operator transforms 

if ($operator =- /^Srelational^equality^operatorsS/ } 
{ 

############################################################ 

# Convert boolean (in) equality . Since the output of a conditional 

40 is a boolean 

# and we only understands std_logic, we need to replace the 
conditional with 

# a wire named something like tmp__std_logic . 

# Then we set tmp_std_logic <= '1' when (condition) else '0 r ; 
45 # 

# N.B. In the future, since we convert everything to 
std__ logic_vector , we might 

# be able to convert the boolean to std_logic_vector 

50 my $tmp__lef t 

&Replace_Equi valences ( $lef t_operand, $Equivalence_List) ; 

my $tmp_right = 

&Replace_Equivalences ( $right_operand, $Equivalence__List) ; 

55 my $ tmp_output_name ; 

#warn "operator ($operator) is relational_operator\n" ; 
if ($operator =- s/ \s*\= {2 } \s* / \= /s) { $tmp_output„name = 

"$tmp_lef t\_eq__$tmp_right" ; } 

if ($operator =~ s | \s*\ ! 2}\s* | \/\= | s ) { $ tmp_output„name = 
60 " $tmp_lef t\_ne_$tmp_right" ; } 

if ($ operator =~ /\s*\<\s*/s) { $ tmp_output_name = 

"$tmp_left\_lt_$tmp_right" ; } 



if ($operator =~ /\s*\<\=\s*/s) { $ tmp_output_name = 

"Stmp left\ le $tmp_riglit" ; } 
$tmp_ S -. f -* ($ ^, erator = _ As *\>\s*/s) {$tmp_output_ n ame = 

"Stmo left\ gt $tmp__right " ; } ^ ^ 

$ tmp_ N -? f ^ {$ ^ perator _ As *\>\ = \s*/s) {$tmp_output„name = 

"$tmp_left\_ge_$tmp_right" ; } 

if ( $ tmp_output_name ) 

{ my $boolean = - $lef t_operand $operator $right_operand" ; 

$tmp_output„name - & Add_In termed! a t e„Si gnal (" $tmp„out put _name = 

V'l\" WHEN \{$boolean\) ELSE \"0V", 

@Module_Inf o) ; 

$equation . = " $ tmp_output_name$rest " ; 
twam "ton, ($equation) \n M ; 

} 

next ; 

} 

$operator - "XOR" if ($operator =~ 
$operator = "AND" if ($operator =- / /v \&$/) 
$operator = "OR" if ($operator =~ / A \|$/) 
$operator = "XNOR" if ($operator =~ ; 
$operator = "XNOR" if ($operator =~ 

my $replacement_name = ScReplace ( "binary„operator = $lef t_operand 
$operator $right_operand" , 

$width, 

@Module_Info) ; 
$equation .= " $replacement_name$rest " ; 

} 

} 

™ IT T^Jation = ~ s /(\s*)(\w,)\sn ? \sM\w + )\sn:(\sM/»$l$3 WHEN 
\(".ScProcess_If„ConditionC$2 / @Module„Info) .«\) ELSE $4"/sge) 
{#warn "found conditional ( $2 ) \n" 
;} 

# ASSIGNMENT , 

# The following is copied very closely from the 
Sbinary operators_with_same_width_operands case above 

# Assignment gets a little bit nasty because unlike verilog, VHDL requires 
that the left and right sides of 

# assignments be the same width. So we need to chop off or add bxts to the 
right hand side of the assignment. 

# We do that in ScReconcile_Widths . 
{ 

my $tmp_equation = $ equation; 

if ($equation =~ s/* (.*?)< \w+) \s* (\=U) ) \sM \w+) (.*) /$1$2 $3/s) 
{ 

my $lef t_operand = $2; 

my $operator = $3; 

my $right__operand = $4; 

my $rest = $5; . x 

($width, $lef t„operand, $right„operand) 

^Convert Integers To_Std_Logic_Vector ( $lef t_operand, 

~~ ~~ $operator , 



$right„operand, 



$Width_List, 

$Equivalence__List) ; 

#warn " lef t_operand, operator, right_operand, rest, width, 
replace_this IS $lef t_operand, $operator, $right_operand, $rest, $width, 
$replace_this\n" ; 

$right_operand = &Reconcile_Widths ( $lef t_operand, 

$right__operand , 
@Module_Info 
) ; 

#warn " ro is $right„operand\n" ; 
#operator transforms 

#$replace_this = '^operator $right_operand" ; 

$equation . = " $right_operand$rest 11 ; #replace_this$rest " ; 

#warn " assignment equation now is $equation\n" ; 

} 

#We also need to match up lhs with values following ELSE statements 
#1 put a " v mark before all processed ELSE words to keep us from an 
infinite loop. 

#Again, we need to Reconcile_Widths , 

while ($ecjuation =~ 

s/ A < .*?) (\w+) (\s*\ = {l) .*?ELSE(\s+| [*V\w] ) ) <\w+) ( .*) /$l/s> 
C 

my $lef t_operand = $2; 
my $in„between = $3; 
my $right__operand = $5; 
my Srest = $6; 

($width, $lef t_operand, $right_operand) 
&Convert„Integers — To_Std__Logic__Vector { $lef t_operand, 

$ r ight__operand , 

$Width_List, 

$Equivalence_List) ; 

#warn " Conditional Assignment: lef t_operand, in_Jbetween, 

right_operand, rest, width, replace„this IS $lef t_operand, $ in__between , 
$right_operand, $rest, $width, $replace_this\n" ; 

#Do the same width reconciliation deal as above, (if needed) 
$right_operand = &Reconcile_Widths { $lef t_operand, 

$ r ight_operand , 

@Module_Info 

) ; 

#in„between transforms 

$replace_this = " $lef t — operand $in_between \ v \ " $right_operand" ; 
$equation .= " $replace_this$rest !r ; 

#warn " ELSE assignment equation now is $equation\n" ; 

} 

#crush v marks 

while ($eguation s/W/g){;} 

} 

$equation =~ s/"As* ( . *? ) \s*$ /$l/s ; 
return ($equat ion) ; 

} 



############################################################################### 
# 

# Reconcile_Widths and Reconcile_Known_Widths 
# 

# A big difference between verilog and vhdl is that verilog is more lenient 
when it 

# comes to width assignments . 

# eg. foo[7:0] = ook[3:0] => foo[7:4] = {0,0,0}; foo[3:0] = ook[3:0] 

# eg. foo[3:0] = ook[7:0] => foo[3:0] = ook[3:0]; 
# 

# Not so for vhdl. It requires lef t_side_width = right_side_width . Thus this 
function. 

# Reconcile_Widths, takes as input a left and right operands. It forces the 

# right operand to the same width as the left operand. 
# 

# If the left operand width is smaller than the right operand width 

# Reconcile_Widths creates a signal_of„right_side„width <= right_side; 

# then sets left_side <= { signal_of_right_side_width) ( ( lef t_side_width -1) 
DOWNTO 0) . 

# 

# If the left operand width is bigger than the right operand width, 

# Reconcile_Widths creates a signal_of_right__side_width <= right_side, 

# It sets left_side <= std_logic ' ( ' 0 ' x ( $lef t_side - $right_side) , 
signal_of_right_side_width) ; 

# 

# eg. foo[7:0] = ook[3:0] becomes foo(7 DOWNTO 0) <= &V2VHD_Equation (foo[7:03 
= {4'd0,ook[3:0] }) 

# 

# Reconcile_Widths wraps around Reconcile_Known__Widths 

# Reconcile_Known__Widths can also be used when one is comparing the right_side 
to a left__side 

# that is not in %$Width__List . e.g. when instantiating a Module. 

#########################################################^#^# ################## 
# 



sub Reconcile_Widths 
( 

my ($lef t_operand, 
0 $right_operand, 

@Module_Info) = @_; 



my { $ Wi dth_L i s t , 
$Signal_List , 
45 $pWire„Assignments , 

$Equivalence_List) = @Module_Inf o ; 

my ($left_width) = &Width_Of { $lef t__operand, $Width_List ) ; 
my ($right_width) = &Width_Of { $right_operand, $Width_Iiist ) ; 

die "ERROR ReconcileJWidths: WIDTH OF ( $lef t_operand (" 
ScReplace_Equivalences($left_operand, $Equivalence_List ) . " ) ) NOT KNOWN! \n" if 
($left_width eq " " ) ; 

die "ERROR Reconcile_Widths: WIDTH OF ($right_operand ( " 
&Replace„Equivalences { $right_operand, $Equivalence_List ) . " ) ) NOT KNOWN I \n" if 
($right_width eq " " ) ; 

return (&Reconcile_Known_Widths ( $lef t_operand, 

$ r ight„operand , 
60 $left_width, 

$right_width, 
@Module_Inf o 
) 



} 



sub Reconcile_Known_Widths 
5 { 

my ($lef t_operand, 
$right__operand, 
$left_width, 
$right_width, 
10 @Module_Info) = @_; 

my ( $ Width_L i s t , 
$Signal_List , 
$pWire_Assignments , 
15 $Equivalence_List) = @Module_Inf o; 

#warn ( rf RNW, $lef t„operand, 
# $right_operand , 
#$left_width, 
20 #$right_width\n" ) ; 

#VJe may not know the left or right operand on pass X, 

#die "Reconcile_Widths, left_width not known" if ($left_width eq " " } ; 
#die "Reconcile_Widths, right_width not known" if ( $right_width eq ""); 
25 return ( $right_operand) if ($left_width eq " " ) ; 

return ($right_operand) if ( $right_width eq " " ) ; 

my $tmp_signal; 

if ($left_width == $right__width) 
30 { 

#warn " $lef t_operand has same width as $right_operand, returning\n" ; 
return { $right__ operand) ; 

} 

else 
35 { 

$tmp_signal = &Add__Intermediate_Signal 

( " $lef t_operand\_$right„width\_bits_wide = $right_operand" , 

$right__width, 
@Module_Info) ; 

40 } 

if ( $left„width < $right_width) 
{ 

#warn " RW: lw < rw.\n"; 
45 $right_operand = " $tmp_signal { ($left_width - 1) DOWNTO 0)"; 

} 

if ( $left_width > $right_width) 
{ 

50 my $width_dif f erence = $left_width - $right_width; 

my $filler = u \'0\', " x $width„diff erence; 

my ($EAOBV, $ junk) = 

&Expand„Array_Of_Bit_Vectors__Into_Separated_Bits ( " , " , $tmp__signal , @Module_Inf o) ; 
$right_operand = " std_logic_vector\ 1 ( $f iller$EAOBV) " ; 

55 } 

return ( $right_operand) ; 

} 

############################################################################### 
60 # 

# Add_Intermediate_Signal takes a vhdl string signal "a" or "a - b" and 
returns 

# the correct signal name to use. If signal is of the form "a = b" it replaces 



# equivalences of b and adds a <= b to wire_assignments 

sub Add_Intermediate_Signal 
{ 

my ($ signal, 
$width, 

@Module_Info) = @_; 

my ( 

$Width„List, 
$ Signal_Li s t , 
$pWire_Assignments , 
$Equivalence_List) = @Module_Inf o ; 

my ($signal_lhs, $signal_rhs) = split ( / \s*\= { 1} \s* /s , $signal , 2 } ; 
#my $signal_rhs = join ( " \ = " , @signal_rhs) ; 

$signal„rhs = &Replace_Equivalences ( $signal_rhs , $Equivalence_List } 
if ($Equivalence_List && $signal_rhs) ; 

die "ERROR Add_Intermediate_Signal : ILLEGAL WIDTH ($width) IN SIGNAL 
ASSIGNMENT ($signal) \n" 

unless {($width =~ s/ A \s* (\d+) \s*$/$l/ ) && ($width > 0) ) ; 

#just return signal_rhs if only one value is on the rhs . 

#eg, foo = bar, just return bar 

if {$signal_rhs =~ s/ A \s* (\w+) \s*$/$l/s) 

{ 

#Orion, do width checking here 
return ($signal_rhs) ; 

} 

#rename signal_lhs 

$ signal^ Ihs = &Get_Exclusive_VHDL_Name ( $ signal_lhs , $Width__Lis t ) ; 

if ($signal_rhs ne "") 

{ 

$$pWire_Assignments .= " $signal_lhs <= $signal_rhs ; \n" ; 

} 

$$Signal„List{$signal__lhs} = "SIGNAL $signal_lhs : 

STD_LOGIC_VECTOR ( " . ( $width - 1 ) . " DOWNTO 0 ) ; " ; 

$$Width_List{$signal_lhs} = C $width-l ) . " , 0 » ; 
return ($signal_lhs) ; 



############################################################################### 
# 

# Is_real returns 1 if the value passed to it is a real number, i.e integer >= 
0 

############################################################################### 
# 

sub Is_real 
C 

my $ value = shift (@_) ; 

return (1) if ($value =~ / A \s*\d+\s*$/s) ; 
return (0) ; 

} 

############################################################################### 
# 

# County Parentheses 
# 

# so i have a string always @(blow(me) (leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 



# beginning and last parentheses. I call Count_Parentheses and it 

# returns 3 values, the beginning string: "always @" , the parenthesized string 

# "blow(me) (leonardo | synplicity) " and the last string "blerg (boof ) " . 
# 

# If I want to search on something other than parentheses, say begin, end, I can 

# place their values in $begin_match and $end_match. 

############################################################################### 
# 

sub Count_Parentheses 
{ 

my ($ string, $begin_match, $end__match) = @_; 
my $begin_string; 
my $paren_string; 
my $end_string; 

my $begin_match_de fault = 1 \ s*\ (\s* 1 ; 
my $end__match„default = ' \s*\)\s*'; 

$begin__match = $begin__match_def ault unless ( $begin__match) ; 
$end_jnatch = $ end_match__.de fault unless ($end_match) ; 

warn " CP string is $string, \n" 

. " $begin__match, \n $end_match\n" 
if (0); 

#if ( $begin_match ne $begin_match_def ault) ; 

return ( " » , " » , " $ string" ) 

unless ($string =- / A ( . *?) $begin_match ( . * ) $/s) ; 

#warn 11 found first bit $1, \n 

rest is $2\n in string $string\n" 

# i f { $ GLOB ALJWAKNING ) ; 

# . " $begin__match, \n $end_match\n" 
#if ( $begin_match ne $begin__match_de fault) ; 

$begin_string = $1; 

my $paren__count = 1; 
$end__string = $2; 

while ($end_string =~ s/ A ( . *? ) { $begin_match j $end_match) ( . *) $/$3/s) 
{ 

my $match; 
$ match = $2; 
$paren„string .= $1; 

if ($match =~ /$begin__match/) 
{ 

$paren_count++ ; 

} 

else 
{ 

$paren_count = $paren_count - 1; 

} 

last if ( $paren_count == 0) ; 
#else 

$paren_string . = $match; 

} 

#die "mismatched $begin_match, $end_match in string 

$begin_string$paren„string$end„string" if ( $paren_count != 0) ; 
return ( $begin_string, $paren„string, $end__string) ; 

} 



sub Handle_Next_If_Else_Line 
{ 

my ($if_body, @Module_Inf o ) = (@_J ; 

5 my ( 

$Width__List, 
$Signal_List , 
$pWire_Assignments , 
$Equivalence_JList ) = @Module_Inf o ; 

10 

my $rest__of__module; 



my $ spacing; 

############################################################ 
15 # following a verilog " if (condition) " , " always ©(condition), else, 

statement, there are three things that 

# can follow the statements. 

# 1) an if statement 
#2) a begin - end block 

20 # 3) a one line statement ending with a semi -co Ion; 

# 1) an if statement 

if <$if_body =~ / /v (\s*)\bif\s*(\(,*)/s) 
C 

25 my ( $tmp, $if_conditions, $tmp_if_body) = &Coun t_Parenth.es es ( $2 ) ; 

#warn "if statement is { $if__conditions) \n" ; 

$if_body = ,! $1IF " . &Process_If _Condition ( $if_conditions , @Module_Inf o) . " 
THEN 11 ; 

( $ tmp_i f „body ,$res t_o f _modul e ) 
3 0 &Handl e_Next_I f _E1 s e_L ine ( $ tmp_i f _body , @Module„Inf o ) ; 
$ i f _body . = $ tmp_i f _body ; 

#If an else statement follows the block 
#Process it. 

35 if ($rest_of_module =~ / A C\s*) else ( . *) /s) 

{ 

$if_body .= n $lELSE"; 

($tmp_if_body, $rest_of_rrtodule) = 
&Handle_Next_If_Else_Line ( $2 , @Module„Inf o) ; 
40 $if_body .= $tmp__if_body; 

} 

$if_body .= " \n$ spacing" . "END IF;"; 
return ( $if_Jbody / $rest_of_module) ; 

} 

45 

# 2) a begin - end block 

if ($if_body =~ / A \s*\bbegin\b/s) 

{ 

#warn "hniel, begin end line, ib is $if„body\n" 
50 #if <$HNIEI_DEBUG) ; 

my ( $tmp / $tmp__body, $rest„of _module) 

&Count_Parentheses ($if_body, 1 \bbegin\b ' , * \bend\b 1 ) ; 

#if we are in a begin_end block, then process each command. If there is 
55 an if statement 

#lurking, then call this function again. 



#my ©commands = split ( /\ ; /s , $tmp_if_body) ; 
my $line; 
60 $if_body = " " ; 

while (!($tmp_body =~ /~\s*$/s) ) 
{ 

( Stmp , $ tmp_body) = &Handle_Next_If_Else_Line ( $tmp_body , 



@Module_Info) ; 

$ i f _body . = $ tmp ; 

#warn "begin_end, ib ( $if_body) \n — tmp__body ( $tmp_body) \n--\n" 
# i f ( $HNI EL.JDEBUG ) ; 

} 

twarn "hniel, ib now is ( $if_body) \n" 
#i f ( $HNIEL_DEBUG) ; 

return ( $ i f _ body , $ re s t„o f _modul e ) ; 

} 

#3) a one line statement ending with a semi-colon; 

if {$if_body =~ / A (\s*) (.*?;) ( .*) /s) 

{ 

#warn "hniel, oneline ($2)\n" 
#if ($HNIEL„DEBUG) ; 

$if_body = $1 . &Process_Register__Assignment ($2 , @Module_Inf o) ; 
twarn n becomes ( $if_body) \n" 

# i f ( $HNIEL_DEBUG ) ; 

$rest_of_module = $3; 

return ( $if_body , $rest_of_module) ; 

} 

} 

############################################################################### 
# 

# Process_If_Condition: converts verilog if conditions 

# to VHDL IF conditions. 

# V2VHD__Equation 

############################################################################### 
# 

sub Process^ If_Condition 
{ 

my ($ condition, @Module_Inf o) = (@_J ; 
my ( 

$Width_List, 

$Signal_tjist , 

$pWire_Assignments , 

$Equivalence_List) ~ @Module__Inf o ; 

#warn "PIC, $condition\n" ; 
my %E_List; 

if { $Equivalence__List eq " " ) 
{ 

$Equivalence__List = \%E_List; 
$Module_Inf o [ 3 ] = $Equivalence_List ; 

} 

#relational_equality__operators, and transforms copied from V2VHD_Equation; 
my $vhdl_relational„equality_operators = ' \<\= | \< | \>\- | \> | \={1} | \/\= ' ; 

# If there is no relational_equality_operators in the equation, it's 

# implied that the equation != 0. i.e. 

# if (foo) //same thing as if {foo != 0); 

# if (!foo) // same thing as if ( i f oo 1= 0) ; 

my $result = &V2VHD_Equation ( $condition, @Module_Inf o) ; 

my $result_width = &Width_Of ( $result , $Width_List ) ; 

#die "ERROR Process_If_Condition, WIDTH FOR ($result) NOT KNOWN in 
($condition) l\n" 

#unless ($result_width) ; 

my Srhs = 0 x $result_width; 

$result = £cReplace„Equivalences ($result, $Equivalence_List) ; 
my $return_string = "Sresult"; 



if ($result I~ /$vhdl_relational_equality_pperators/ ) 
{ 

if {$result =- /"\&*\ n [01] +\ " \s*$/ ) 
{ 

if ($result =~ /!/) 
{ 

$return_string = "true" ; 

} 

else 
{ 

$return_string = "false"; 

} 

} 

else 
{ 

$return_string = " ($result) \/\= \"$rhs\""; 

} 

} 

#warn "PIC, returns $return_string\n" if $start_special j 
return ($return„string) ; 



} 



############################################################################### 
# 

# Get_Attribute_Types : Returns all attributes defined by VHDL code. 

# Currently, I have just pasted in the attribute definitions from exemplar. vhd 

# into a "HERE" string; 

############################################################################### 
# 

sub Get_Attribute_Types 
{ 

my ( $pAttribute_List) = @_; 
my $vhdl_string = q[ 

— Attribute declarations 



attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 
attribute 



required_time 

ar r iva l_t ime 

output_load 

max_load 

clock_cycle 

clock_of f set 

pulse_width 

input_drive 

nobuf f 

pin__number 

preserve_signal 

noopt 



time 
time 
real 
real 
time 
time 
time 
time 
boolean 
string ; 
boolean 
boolean 



-- New attributes in 2.1 release 

-- Specify pin_numbers for bits of a 1-dimensional array 
type exemplar_string_array is array (natural range <>, 
natural range <>) of character ; 

attribute arrays in_number : exemplar_string„array ; 



— Buffer„sig attribute to force a (clock) buffer on a signal 
attribute buffer_sig : string ; 



— PAD attribute to force a particular PAD cell on a 10 pin 



Does not work for Xilinx, Orca and Altera, 
attribute pad : string ; 

— Type needed to indicate speed requirements for module 

generators 

type modgen_select is (smallest, small, fast, fastest) ; 
-- Use this attribute to set speed on signals /variables 
attribute modgen_sel : modgen_s elect ; 

— New attributes in 2 . 2 release 

Attributes for encoding of enumerated types . 
type encodings tyle is (BINARY, ONEHOT, TWOHOT, GRAY, RANDOM) 

} 

attribute TYP E_ENC OD ING_S T YL E : encoding_style ; 

Example of using type„encoding„style for an enumerated 

type state_t is (PLAY, WAIT_FOR_MOVE , END_OF_GAME) ; 

attribute TYPE_ENCODING_STYLE of state_t:type is 



attribute TYPE_ENCODING : exemplar_string_array ; 

— Example of using TYPE_ENCODING for an enumerated type : 
type state„t is (PLAY, WAIT__FOR_MOVE , END_OF„GAME) ; 

attribute TYPE_ENCODING of state_t:type is 

("Oil" ,"110 11 ,"101") ; 

] ; 

# Crush comments 

while ($vhdl_string =~ s/ A ( . *? ) \-\- . *$/$l/m) { ; } 

my ©commands = split ( /\s*\ ; \s*/s , $vhdl_string) ; 

foreach $command (©commands) 

{ 

if ($command =- /"\s*attribute\s+ ( \w+) \s+\ : \s* (\w+) /s) 
{ 

$$pAttribute_List{$l} = $2; 
#warn "Type $1 is $2\n"; 

} 

} 

} 

############################################################################### 
# 

# V2VHD converts from a synthesizable verilog file to a synthesizable vhdl file 
# 

# Still to be done 

# 1) Make multiple behaviour modules for each definition 

# 5) Save comments around modules and always blocks 

# 6) Convert $display statements 

# 7) Make a special altera„verilog library that overloads verilog operators 

# That will make for a much cleaner compiler. 
# 

############################################################################### 
# 

sub V2VHD 
{ 

my ($Verilog_String, 
$complete_f ilename, 
$pass, 



type : 
ONEHOT ; 



$Module__rndexed_Port_Width_Pointer, 
$Module_Indexed_Port_Names_Point er , 
$Modu 1 e_Indexed_Parame t er_Li s t_Po in t er , 
$Component_List_JPointer) = 

my %Entity_And_Architecture; 
my %Module„Instantiation_List ; 
my @Module_Array; 

#Put the whole shebang including "included files in $line. 

$ completed ilename =~ tr|\\|\/j; 

my @tmp__path = split ( / \J I , $complete_f ilename) ; 

my $ filename = pop {@tmp__path) ; 

my $path = join ( " \/ u , @tmp_path) ; 

#warn "path, filename $path, $f ilename\n" ; 

my $line = $Verilog__String; 

$line . = &read„f ile { ' fhOOO 1 , $f ilename, $path) ; 

my $all_entity_declarations; 
my $all_architecture_blocks; 
my %Def Param„l/ist ; 

my $vhdl_module = " -~$complete__f ilename\n\n" ; 
############### 

# Just like leonardo spectrum, we need to know components . 

# unfortunately, we forgot to include ifdef SIMULATION around the 

# component declaration. So we hack up a search using commented 

# information and stick the module back in $line after line has 

# been cleaned up . 
my $tmp = $line; 

my ©components = ( ) ; 
while ($tmp =~ 

s | \/\/\s+Black\-box\s+declaration\s+for\s+simple\s+module\s+ ( \w+) \ 
(module\s+\l . *?) 
\ / \ * \ s + synthe s i s \ s+ syn_black_box\ s + \ * \ / 
( . * ? \bendmodule ) 
I isx) 

{ 

push (©components, $2 . $3 ) ; 

} 

#Find and process comments 
$line = &Kill_Comments ( $line) ; 
#$line = &Process_Comments ($line) ; 

#Find definitions and process ifdefs 

Sline = ScProcess_Verilog_pirectives ( $line) ; 

#stick those components back in. 
$line .= join ( n ©components) ; 
my %attribute_type,- 

&Get_Attribute_Types ( \%attribute_type) ; 
#Process each module 

while ($line 
s/ A ( • *?) \bmodule\s+(\w+) . *?\; ( . *?) \bendmodule\b { . *) $/$l$4/s) 
{ 

my $module__name; 
$module__name = $2; 

#warn "module $module_name, pass $pass\n" ; 

if ($pass == 2) 

{ 



push (@Module_Array, $module__name) ; 

} 



undef %Parameter__List ; 
my %Parameter__ List ; 
my @parameter_order = ( ) ; 
my $module_commands = $3 ; 
my $Process_Statements; 
my $Wir ^Assignments = " " ; 
my %Declared__Components ; 

my $ ins t ant iation_st ring; 
my $attribute_string; 

my %attribute_already__declared; 

#Clean up module_name 

$module„name =~ s/As* ( . *? ) \s*$/$l/s ; 

#warn "module name is $module_name\n" ; 

warn "VERILOG TO VHDL CONVERSION: " . Scdate_time . " PROCESSING MODULE 
$module_name\n" ; 

############################################################ 

# We need to know all defparams before we instantiate a module 

# So we look for defparams separately and store them in 

# %Def Param_List which is indexed by instance name. 

# When it comes time to instantiate a module, we will have all 

# the information we need, 

while ( $module_commands =- s/ A { . *? ) \bdefparam\s+ ( . *? ) \ ; { . * ) /$l$3/s) 
t 

#defparam instance_jname .parameter = value, 

# instance__nameX.parameterY = valueZ ; 

#print "found defparam $2\n"; 

foreach $defparam (split ( As*\ , \s*/s , $2 ) } 

{ 

if ($defparam =~ /"\s* ( \w+ } \ . ( \w+ ) \s*\=\s* ( \S+) / ) 
{ 

$DefParam_List{$l} .= "An" if { $Def Param_List { $1} } ; 
$DefParam_List{$l} .= " $2 => $3" ; 
#warn "adding $2 => $3 to dplist $l\n" ; 

> 

else 
{ 

die "ERROR: defparam statement $defparam not understood I " ; 

} 

} 

} 

############################################################ 

# We need to find all exemplar attributes separately of the 

# commands that are split by semi -colon. 

# So we look for exemplar attributes separately and store them 

# When it comes time to instantiate a module, we will have 

# the attribute information that we need. 

# warn "before exemplar check, $module_commands\n \n" ; 

# NO EXEMPLAR ATTRIBUTES ARE RESPECTED, MODULES WITH NO CONTENTS WILL 

# BE CONVERTED TO BLACK BOXES 

while (0) # ($module_commands =~ s/^(.*?)\-\- 

\s*exemplar\s+attribute\s+ { . *?) \s*$/$l/mi) 
{ 

my $attribute — inf o = $2; 

my ($name, $attribute, $attribute_value) = split (/\s+/,$2); 



$attribute =~ tr/A-Z/a-z/; 

my $att_type = $attribute__type {$at tribute } ; 

fwarn "attribute found: name, attribute , attribute_value = 
$name, $attribute , $attribute_value, $att_type\n" ; 
if <$att_type) 
{ 

$attribute__string .= " --attribute $attribute : $att_type; \n" 

unless {$attribute_already_declared{ $at tribute}) ; 
$attribute__already_declared { $attribute} ++ ; 

$attribute„string .= " — attribute $attribute of $name : ENTITY 

is $attribute_value; \n" ; 
} 

} 

#warn "after exemplar check, $module_commands\n \n"; 

#All other commands are separated by " ; M and are processed inline with 
each command. 

############################################################ 

# Port_JList only contains information for module ports 

# Signal_List only contains information for wires and registers 
# 

# Port_Width, Port_Type contains info for all ports, wires and registers 

# They should probably be renamed All^Nodes^Width/Type or something 
# 

# PortJType is indexed by verilog (input , output, inout, reg, wire) its 
result is 

# a " , " separated list of all ports of that type 
# 

# Port„Width is indexed by the port name. Its result is 11 left , right" 

where 

# left is the first dimension of the array, right is the last dimension. 

# eg. for wire [7:3] foo; $Port__Width{ " f oo" > = "7,3"; 
# 

# Port_List is indexed by the module port_name. 

# Its value is SIGNAL $port_name : ( IN | OUT | INOUT ) STD_LOGIC („VECTOR? ) 
(left DOWNTO right) 

# 

# Signal_List is indexed by the register/wire name 

# Its value is $Signal_List {$port} = " SIGNAL $port : STD_LOGIC (^VECTOR? ) 
(left DOWNTO right)" 

undef %Signal_List ; 
my %Signal_JList ; 

undef %Type_List; 
my %Type__List ; 

my %Memory_Type ; 

undef %Port_List; 
undef %Port_Width; 
undef %Port_Type; 

my %Port_List; 

my %Port_Width; 

my %Port_Type; 

if (0)#($pass 2) 

{ 

my $Port_Width_Po inter - 

$ $Module_Indexed„Port„WidthJPointer { $module__name} ; 

die "ERROR MODULE { $module_name) HAS NOT BEEN PREVIOUSLY SCANNED \n" 



10 



if ($Port_Width_Pointer eq " " ) ; 

foreach $key (sort (keys (% { $Port_Width_Po inter} ) ) ) 
{ 

#warn "module_name { $module__name) key ($key)\n"; 
$Port_Width{$key} = "Taken\n" ; 

} 

} 

$Module_Indexed_Port„Names__Pointer , 
$Module_Indexed_Parame t er_Li s t_Po inter , 



my @Module_Info = ( \%Port_Width, \%Signal_List , \ $Wire„Assignments) ; 

my $ counter ~ 0; 

my $number_of _coitimands = 25; 

while ($module_commands =~ s/ A ( . *?) \ ; ( . * ) /$2/s) 
15 { 

#Counter prints " . " after $number_o f ^.commands 
$ count er++ ; 
print STDERR " . " 

if (($counter % $number„of ^commands ) == 0); 

20 

my $this__command = $1; 
my $next__commands = $2; 
my $rest„of_module = n $l\;$2"; 
#warn "rom is $rest__of_module \n"; 
25 #warn "tc, $this_command\n" ; 

#Search for parameters and determine their type, 

#Types are "NATURAL" if they only contain numbers, else Type is 

" STRING " 

if ($this„command =~ /"(.*?) \bparameter\s+ (.*?) \s*$/s) 
30 { 

my $parameter_equation; 
$parameter_equation = $2 ; 

my ( $param_lhs , @param_rhs ) = spl i t 

(/\s*\=\s*/, $parameter_ equation) ; 
35 my ( $pararn_rhs ) = join ( " \=" , @param_rhs) ; 

my ($parameter_type) = 11 STRING" ; 
$parameter„type = "NATURAL" 

if ($param_rhs =~ s/ A \s* (\d+) \s*/$l/s) ; 
Iwam " $param_lhs , $param_rhs , pt is $parameter_type\n" ; 
40 #was $Parameter_String . - " $param__lhs : $parameter_type : = 

$param_rhs\n" ; 

$Parameter_List {$param__lhs} = " $parameter_type := $param_rhs"; 
#warn "found paramter " . $Parameter_List {$param_lhs} . "\n" ; 

} 

45 

############### 

# Get Signal Definitions 

if ($this_command 
/(.*?) \b { input | output | inout | reg | wire | integer) \b ( . * ) / s ) 
50 { 

my $direction = $2; 
my $port_list = $3 
my $left_index = 11 
my $right_index = " " ; 
55 my $width; 

############### 

# (Signal Widths Width > 1) => std_logic_vector 
if ($port_list =~ s/~\s*\[([ A \:]+)\: ( [ A \ ] 3 +) \ ] \s* ( . * ) / $3 / ) 

60 { 

$left_index = eval($l); 
$right_index = eval($2); 



$type 

»STD_LOGIC_VECTOR" . &Vector_Order ( $lef t_index, $right_index) ; 

$width = u $left„index, $right_index" ; 

} 

5 else #Width is one. 

{ 

if ($direction =~ / A inout$/) 
{ 

#all inouts of width one should be considered 
10 #std_logic_vector . 

$type = " STD_LOGIC_VECTOR (0 DOWNTO 0 ) " ; 
$width - "0,0"; 

} 

else 

15 { 

if ($direction =~ /~integer$/i) 
t 

#Convert integers to 32 bit STD_LOGIC_VECTORS 
$width = "31,0"; 

20 $type - »STD_LOGIC„VECTOR(31 DOWNTO 0) " ; 

} 

else 
{ 

############### 
25 # everything else is STD_LOGIC . 

# (wires and registers which will 

# be converted back to STD_LOGIC_VECTOR in the if ($dir) 

condition below. ) 

# Perhaps this could be cleaned up later 
30 $type = "STD_LOGIC"; 

$width = "0,0"; 



35 



} 



############### 

# Wires can be declared and assigned to in the same statement 

# e.g. wire a = b + c; 

# So we strip away everything after the first " = " assignment 
40 # And put the results in $Wire_Assignments 

my $rhs; 

if ($direction eq "wire") 
{ 

my @rhs = <) ; 

45 ($port_list,erhs) = split (/\s*\={l) \s*/s, $port_list) ; 

$rhs = join ( , Grhs) ; #Put $rhs back together again 

} 

############### 
50 # Handle memories e.g. 

# reg [7:0] mem_array [512 - 1 : 0] ; 

if ($port_list =~ s/ A (.*?)\[(.*?)\:(-*?)\]\s*S/$l/s) 
{ 

my $up„index = eval($2); 
55 my $down_index = eval($3); 

$width . = " , $up_index, $down„index" ; 

my $array_order = &Vector_Order ($up_index, $down_index) ; 
my $mem_type = " memo ry_type_$ array _order" ; 
while ( $mem„type =~ s/\s/\_/){;} 
60 my $ memo ry„ t yp e 

&Get_Exclusive_VHDL_Name($mem_type, \%Port_Width) ; 

$Type„List { $ memo ry_ type } = "TYPE $ memo ry„ type IS ARRAY 
$array„order of $type; " ; 



$type = $memory_type; 



############### 

# Get Port Names and transform names to Port/Signal__List 
$port — list =- s/^\s* { . *?) \s*$/$l/s; #Strip spaces at either end 
foreach $port ( split {/ \s*\ , \s*/s , $port_list) } 
{ 

die "ILLEGAL PORT NAME $port, $l\n" if (Sport =~ /(\W)/); 
$Port_Type{ Sdirection} .= "Sport, " ; 
$Port_Width{ $port} = $width; 

############### 

# If direction is a port, put it in port_JList 

if { (Sdirection eq '■input") | | 
($direction eq "output") || 
(Sdirection eg "inout") 
) 

{ 

my %dir_xform; 

$dir_xform{ "input" } = "IN"; • 
$dir_xf orm{ " output " } = " OUT" ; 
$dir_xf orm{ " inout" } = " INOUT" ; 
$dir_xf orm{ " reg" } = " " ; 
$dir_xf orm{ "wire" } = " " ; 

my $dir = $dir_xf orm{ Sdirection} ; 

$Port_List{$port} = "SIGNAL Sport : $dir $type" ; 

} 

############### 

# If direction is an internal signal or (an output which must 

have a tmp 

# signal associated with it) or (an input port of STD_LOGIC) 

# declare it in %Signal_List 

if ( (Sdirection eq "wire") |j 
(Sdirection eq "reg") (| 
(Sdirection eq "integer") || 
(Sdirection eq "output") |j 

( (Sdirection eq "input") && (Stype eq " STD_LOGIC " ) ) 
) 

{ 

# Convert all STD_LOGIC to STD__LOGIC_VECTOR ( 0 DOWTO 0) 
my $ tmp__type = Stype; 

$tmp_type =~ s/ A STD_LOGIC$/STD__LOGIC_VECTOR ( 0 DOWNTO 0)/i; 
############### 

# Do not put a wire /register in signal list if it has already 

# been declared in port list. 

$Signal„List{ Sport} = "SIGNAL Sport : $tmp_type; 11 
unless $Port_List {Sport} ; 

#wire foo = some value; // Put (foo = some value) in wire 

assignments 

if ( (Sdirection eq "wire") ($rhs ne "") ) 
{ 

my $wire_assignment = &V2VHD_Equation_Wrapper ("Sport = 

$rhs " , @Module_Inf o) ; 

$Wire_Assignments .= " $wire„assignment ; \n" ; 



} 

if ( $direction eq "input" || $direction eq "output") 
{ 

5 ############################################################ 

# VHDL will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output named 

$port . 

10 # later we assign the output $port <- tmp_$port and 



change all 



# assignments in the module to use 

# tmp_$port instead of port . 



15 my $tmp_port = 

£cGet„Exclusive_VHDIi_Name ( " tmp_$port tt , \%Port_Width) ; 

#keep $port as the key so we can wire up tmp_$port and 

$port later 

$Signal„List{$port} = "SIGNAL $tmp_port : $tmp_type; " ; 
20 #warn "added ($Signal_List {$port} ) in addition to 

portlist ($Port_List{ Sport} ) \n" ; 
} 

} 

> 

25 } 

#next if ($pass ~ 1) ; 

#cannot do next until we've determined that the entity is a black box 

if {$this_command =- / A { \s* ) \bassign\b ( . *? ) \= ( . * ) $/s } 
30 { 

my $wire_assignment = " " . &V2VHD_Equation_Wrapper {"$2 = 

$3 " , @Module„Inf o) . « \ ; \n" ; 

$Wire_Assignments .= $wire_assignment ; 

} 

35 

#get module instantiation 

if ($this_command =- /(.*?) (\w+) \s+ (\w+) \s*\ ((.*) \) \s*$/s) 
{ 

my $module__being__instantiated = $2; 
40 my $instance_name = $3; 

my $Connections = $4; 

############### 

# hack a register into syn_dpram 
45 if ($module_being_instantiated / A syn_dpram_ { \d+) x ( \d+) \_ruwr$/i) 

{ 

#warn "warning, found syn_dpram\n" ; 
my $WrAddress = $Cormections ; 
my SWrClock = $Connections ; 

50 

die "Wr Address not found for LPM_ROM $instance_name ,! 

unless £$Wr Address =-* 
s/* . *?\ . \s*WrAddress\s*\ {?\s* (\w+) . *$/$l/s) ; 

die "WrClock not found for IiPM_R0M $instance__name" 
55 unless ($WrClock 

b/* . *?\ .\s*WrClock\s*\ (?\s* (\w+) .*$/$l/s) ; 

my $Delayed_Address = &Add_Intermediate_Signal 

( " dl_$Wr Address " , 
60 &Width__Of ( $WrAddress, \%Port_Width) , 

@Module_Info) ; 
$Connections =~ s/ \b$WrAddress\b/ $Delayed__Address/ ; 



$Process_Statements .= " — GENMEM WARNING I ! ! SUPER HACK MADE FOR 

VERSION 1.0 SIMULATION WARNING! ! L WARNING I ! ! \n" ; 

$Process_Statements .= " — GENMEM of 

5 Smodule being_instantiated\.vhd DOES NOT CORRECTLY LATCH WrAddress\n" ; 

$Process_Statements .= "--SO WE HACK IN A LATCH HERE AND WIRE 
Smodule be ing_ins tantiated\ .Wr Address to $Delayed_Address\n" ; 

$Process„Statements .= "PROCESS\n BEGINXn WAIT UNTIL 

$WrClock = \"1\" ;\n $Delayed_Address \<\= $WrAddress ; \n M ; 
10 $Process_Statements .= " END PROCESS ; \n " ; 

die "using memory \n" ; 

} 

if ($module__being_instantiated =~ /^LCELL$/i) 
15 { 

$Connections =~ s/\s+//gs; 

my <$lhs,$rhs) = split ( / \ , /s , $ Connect ions) ; 
$Wire„Assignments .= "~ LCELL $lhs = $rhs\n" ; 

$Wire_Assignments .= " " . &V2VHD„Equation_Wrapper ("$lhs = 
20 $rhs " , @Module_Inf o ) . " \ ; \n" ; 

} 

else 

{ #warn "VERILOG TO VHDL CONVERSION: " . &date_time . » : 
25 INSTANTIATING $instance_name IN MODULE $module_name \n" ; 

#If module_being_instantiated is a black box, declare it as 

a component , 

telse instantiate it normally 

30 #fpga express likes everything to be a component. All 

other files accept ENTITY work and only use component as a black box. 

#forcing if (1) makes fpga express 

#happy. component_list_pointer makes everyone else happy 

35 if ($ $Component_List„Po inter {$module_bemg_mstantiateci> ) 

$Declared_Components { $module_being_instant iated} ; 
$ instant iation_string .= " $instance_name : 

$module_being_instantiated\n" ; 

40 } 

else 

{ 

if ($pass == 2) 
{ 

45 $Module_Instantiation__List { $module_name} 

"$module_being_instantiated, " 

unless ($Module„Instantiation_List{$module_name} 
=- / \b$module_being_instantiated\ , / ) ; 

} 
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$instantiation_string .= " $instance__name : ENTITY 
work. $module_being_instantiated\ (behavior\) \n" ; 

} 



55 if { $Def Param_List { $ instance_name } ) 

{ 

$instantiation_string .= " GENERIC MAP 

\(\n" . $DefParam_List{$instance_name} . " \)\n" ; 

#warn " PARAMETERS in 

60 $instance_name\n" . $Def Param_List { $instance_name} . " \n" ; 

} 



############################################################ 



# I initially thought it would be really easy to just hook 
up the ports. 9 5% of the time it is total cake. 

# But 5% of the time is a royal pain. 
# 

# Here are the major differences between verilog and VHDL 

port instantiation. 

# 

# 1) Verilog does not care that you leave a port 
unconnected. VHDL does. 

# 2) Verilog does not care that the widths of the ports and 
the widths of the connected signal 

# do not match. VHDL does. 

# 3) Verilog considers a bit vector of width 0 and a single 
bit to be interchangable . 

# VHDL considers STD_LOGIC different than 
STD_LOGIC_VECTOR ( 0 DOWNTO 0) . 

# 

# Problem 1 is easy to solve: Keep a list of module ports 
and instantiated connections 

# Each Port that does not have an associated connection 
gets wired to "open" . 

# 

# Problem 2 is solved in the following manner: 

# If a port is an input, e.g. " . input_signal ({~a , 

{4{b}}}) 

# use the results from our 
V2VHD__Equation_Wrapper (input_signal = {{~a , {4{b}}}...). V2VHD_Equation 

# is sophisticated enough to deal with all verilog 
operators and can also reconcile widths . 

# 

# For each output connection, e.g. " . output_signal ({~a , 

{4{b}}}) 

# We make a tmp_output_signal which has the same width as 
the output port. Then we use V2VHD__Equation 

# again, &V2VHD_Equation_Wrapper ( " ( { ~a , { 4 {b} } } ) 
tmp__output — signal" . . . ) . 

# 

# Problem 3 is also solved by having a tmp signal act as the 

go-between . 

# 

# This makes for very ugly vhdl code. When I have time, 
I'll fix it so that the 

# only time we generate a tmp signal is for the nasty 5% of 

the time. 



my $Module_Port_Names_Po inter - 

$ $Module_Indexed_Port_Names_J?o inter {$module_being_instanti at ed} ; 

die " ERROR IN INSTANTIATING ( $module__being_J_nstantiated) . 

UNKNOWN MODULEXn" 

if ( ( $Module_Port_Names_Pointer eq " " ) && ($pass == 

2) ) ; 

my $Module_Port_Width_Po inter 

$ $ Mo dule__Indexed_Port_WidthJ?o inter { $module„being_instantiated} ; 

#my $Module_Parameter_Po inter = 
$$Module__Indexed_Parameter_List_Pointer{$module_being_instantiated} ; 

my %Connection_List ; 

foreach $connection (split (/\s*\ , \s*/s, $Connections) ) 
{ 

#last if ($pass == 1) ; 



if ($connection =- /\As*(\w+) (.*) /s) 
{ 

my $Module_Port_Name ; 
$Module_Port_Name - $1; 
#my $Connection_rhs = $2; 

my { $ tmp , $Connect i on_rhs , $ tmp2 ) = 

&Count_Parentheses ( $2 ) ; 

die "ERROR INSTANTIATION OF $ins tance_name IN MODULE 
$module_name NOT UNDERSTOOD {$ connection) $l\n" 

if ($Connection_rhs eq 11 " ) ; 

$Connection_rhs =~ s/ A \s* ( . *? ) \s*$/$l/ ; 

$Connection_List { $Module_Port_Name } = $Connec t ion_rhs ; 

#warn " INSTANTIATION { $module_being_instantiated) 
adding $Connection_rhs , to 

$Module_Port__Name ( " . $Connection__List {$Module_Port_Name} . " \n n ; 

die "ERROR INSTANTIATION OF MODULE 

$module_being__instantiated NAMED $instance__name \n" 

IN MODULE $module_name REFERS TO AN UNKNOWN 

PORT $Module_Port__Name\n" 

unless 

($$Module„Port_Width_Pointer{$Module__Port_Name) || ($pass == 1) ) ; 

} 

else 
{ 

die "ERROR INSTANTIATION OF $instance_name IN MODULE 
$module_name NOT UNDERSTOOD ($connection) $l\n" ; 

#$module_j?ort__list .= " $connection,\n" ; 

} 

} 

my $module_port__list ; 

my $pw_array = join (" \n " , keys (%Port_Width) ) ; 

#loop over ports of module being instantiated 

foreach $port (sort (keys (%$Module_Port_Names_Po inter) ) ) 

{ 

my $what_port_connects_to = $Connection_List {$port } ; 

if ($what_j?ort_connects_to eq " " ) 

{ 

Smodule port list .= " $port => open, \n" ; 

next ; 

} 

my $port_width = &Width_Of ( $port , 

$Module_ Port_Width_Pointer) ; 

my ( $ tmp_name , 
$direction, 
$port__type) 

&Get_Port_Name_Direct ion_And„Type ( $$Module__Fort_Names__Pointer { $port } ) ; 

my %E__List; 

my $port_name = 

&V2VHD_Eguation ($what_port_connects_to / @Module_Inf o, \%E_List) ; 

$port_name =« s/*\s* ( . *?) \s*$/$l/s; 

my $connection_jwidth = 

&Width_Of ($port„name, \%Port_Width) ; 



&& ($pass != 1) ) 



if { $connection_width eq " " && (Sdirection =~ /^OUT$/) 
{ 



warn "WARNING: INSTANTIATION OF $instance_name IN 
MODULE $module_name HAS A PORT NAMED \n"; 

warn " ($what_port_connects_to) THAT HAS NOT 

BEEN DEFINED. ASSUMING A SIGNAL OF WIDTHXn" ; 

warn » ( $port_width) EQUIVALENT TO WIDTH OF 

MODULE ($module_being_instantiated) PORT\n" ; 

warn " { $port_name) \n" ; 

$connection_width = $port_width; 

&Add„Intermediate_Signal { $what_port_connects_to , $connection_width, @-Module_Inf o) 

} 

if ($E_List {$what_j?ort_connects_to} ) 
{ 

$port_width = 
&Width_Of ($what_port„connects_to, \%Port_Width) ,* 

} 

#If the port width. does not match or if 
$what__port_connects_to contains some funky operators 

#do the safe thing and make a tmp„wire. 

if ( ($connection_width != $port_width) || 

{ $what _port_connects_to =~ / \W/ ) ) 

{ 

if ($direction /^INOUT$/i) 
{ 

foreach $a (keys (%Port_Width) ) 
{ 

print "cw $a, $Port_Width{$a} \n" ; 

} 

foreach $foo (keys (%$Module_Port„Width_Po inter) ) 
{ 

print "here is module $foo, 

$$Module_Port_Width_Pointer{$foo}\n" ; 

> 

die ("ERROR MODULE $module_name , INSTANTIATION 
$instance„name INOUT PORT, \n n 

. n $what_port_connects_to (width $connection_width) 
MUST HAVE THE SAME WIDTH AS $port (width $port_width) \n" ) ; 

} 

if ($direction =~ /^IN$/i) 
{ 

$what port connects to = "To_$instance_name\_$port" ; 

$what_port„connects_to = 
&Get_Exclusive_VHDL_Name ($what _port„connects_to, \%Port_Width) ; 

#warn "instance„name is Sinstance^ame, port is $port , 
mpwn is " . $ $Module_Port__Width„Po inter {$port } . " \n" ; 

$ Port_Width { $what_j?ort_connect s„to } = 

$$Module__Port_Width_Pointer{$port} ; 

$Signal_List { $what_port_connects_to} = &Declare_Signal 
($what_port__connects„to, \%Port_Width) ; 

$Wire_Assignments ,= " " . &V2VHD„Equation_„Wrapper 

( " $what_i)ort_connects„to = " . $Connection__List { $port} , 

@Module_Inf o) . " \ ; \n" 

if ($pass == 2) ; 

} 

if ($direction =- /^OUT$/i) 



{ 

$what_port__connects_to = "From_$instance_name\_$port" ; 

$what_j>ort_connects_to = 
ScGet„Exclusive_VHDL_Name ($what_port_connects_to / \%Port_ Width) ; 

$Port_Width{$what._port_connects„to} = 

$$Module_PortJWidth_Pointer{$port} ; 

$Signal_Iiist {$what_port_connects_to} ~ &Declare__Signal 
($what_port_connects_to, \%Port_Width) ; 

$Wire_Assignments . = " " . &V2VHD_Eguation_Wrapper 

( $Coimection_List{ Sport }. " = $what_port_ connects_to" , 



if ($pass == 2) ; 



@Module_Inf o) . " \ ; \n" 

} 

} 

$what__port_connects_jto .= "(0)" if ($port_type =~ 

/ A STD_LOGIC$/i) ; 

$module_jport_list .= " $port => 

$what_port_connects_to, \n" ; 

} 

#Lose the last comma 
$module_port__list =~ s/\,\s*$//s; 



$instantiation_string .= " PORT MAP \(\n"; 
$instantiation_string .= " $module_port__list \)\;\n\n"; 

} 

} 

############################################################ 

# In verilog, you often declare a bunch of wire and assign statements 

# right before you do an always or initial block. It's nice to do it 

this way 

# so that wires that determine the outcome of the always statement 

# are near the actual always statement. 
# 

# We do the same thing in our initial and always blocks . 

# We put all previously assigned wires 

# before the PROCESS statement. And clear out $Wire__Assignments so 

# that the assignments only show up in one place. 
# 

# find initial always statements . 
# 

# assume that a statement always @(posedge a or posedge b) 

# always has "a" as the clock and 11 b" as the asynchronous event. 

# we can get fancier later. 

if ($rest_of__module =~ /*\s*\b (always j initial) \b\s* (.*) $/s } 
{ 

#update heartbeat 
print STDERR " . " ; 
$counter = $number_of ^commands ; 



iwarn "in always statement\n" ; 
my $always_or_initial = $1; 
my $always_statement = $2; 

Iwarn "found always statement, $always__statement\n ,f 
my $clk; 

my $clk_level = " 0 " ; 
my $edge; 

my $asynchronous„event ; 

my $asynchronous_level = " 0 " ; 

my $asynchronous_edge; 
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my $wait__statement ; 
my $tmp; 

my $ always_cond.it ion; 
my $always„innards = $2; 
my $ tmp__a lway s _c ond i t i on ; 

$ Processes tatements .= $Wire„Assignments ; 
$Wire_Assignments = " " ; 



#Search for always @(foo) 

if ($always_statement =~ /*\@(.*)$/s) 

{ 

#warn "found \@ remaining $l\n"; 
15 ($tmp, $always_condition, $always__innards) 

&Count_Paren theses ( $1 > ; 



#convert always condition 

$tmp_always_condition = $always_condition; 



#get clock and clocks edge 

if ($always__condition =~ s/ Cpos | neg) edge\s+ { \S+ ) { . * ) /$3 /s ) 
{ 

$clk = $2; 
25 $edge = $1; 

$clk_level = "1" if ($edge eq "pos") ; 

#$wait_statement = "UNTIL $clk = \ ' " . (Sedge eq "pos" ) . " \ ' " ; 
$wait_statement = "UNTIL $clk = \»" .{$edge eq "pos" ) - " \ " "; 

30 #warn "always condition is ($always_condition) \n" ; 

} 

else 
{ 

if ( $always_ or_initial /always/i) 

35 { 

#No clock statement, but possibly a conditional always 
#e.g. always @(a or b or c) 

while ( $always_condition =~ s/ \s*\bor\b/\ , / i) { ; } 
$wait„statement = "ON $always_condition" ; 
40 twarn "wait_statement is $wait_statement\n" ; 

} 

} 

} 

45 my $rest_of_module_innards; 

( $always_innards , $rest_of _module__innards ) 
&Handle__Next_If _Else_Line { $always_innards , 



@Module_Inf o) ; 



my % Var i ab 1 e_Conve r s i on„L i s t ; 

while ($always_innards =- s /Please Convert (\w+) To A Variable/ /s) 
{ 

#warn "found conversion of ($l)\n"; 
55 $Variable_Conversion_List {$1}++ ; 

> 

foreach $VCL (keys (%Variable__Conversion_List ) ) 
{ 

60 twarn "VCL is ($VCL) , width of 

" .&Width_Of ($VCL, \%Port_Width) . M \n n ; 

#my $tmp_name ~ ScAdd„Intermediate_Signal ( "VARIABLE__$VCL" , 
#&Width_Of ($VCL,\%Port_Width) , 



#@Module_Info) ; 



#add intermediate signal, but don't use function since 
# its possible the signal is a memory 
my $tmp_name = 

5cGet„Exclusive_VHDL_Name { ,, VARIABI/E__$VCL" , \%Port_Width) ; 

my $tmp_signal_list = $Signal_List { $VCL} ; 
$tmp_signal„list =~ s/\b$VCL\b/$tmp_name/g; 
$Signal„List { $ tmp^name } = $tmp_signal_list ; 
$Port__Width{$tmp_name} = $Port_Width{ $VCL} ; 
#warn "vcl $VCL, tmp„name $ tmp_name , width 

#$Port_Width{$tmp_name} , signal $Signal_List { $tmp__name} \n" ; 

ScConvert„Signals_To_Shared_Variable($tmp_name, \%Signal_List) ; 

while ($always_innards =~ s/ \b$VCL\b/ $ tmp_name / s i ) { ; } 
$always_innards = " $tmp_name := $VCL; \n$always„innards\n 

$VCL <= $ tmp_name ; " ; 
} 

############################################################ 

# &Handle_Next_If_Else_Line has converted everything inside the 
always statement to always_innards and the rest 

# of the module is in $rest_of_module_j_nnards ; So set our top 
level module_commands - $rest_ of_module_innards 

# and continue parsing from there. 
$module_commands - $rest„of_module_innards ; 

#get asynchronous signal and edge if it exists 

if ($always_condition =- /\s+or\s+ (pos |neg) edge\s+ ( \S+) /s) 

{ 

$asynchronous„edge = $1; 
$asynchronous„event = $2; 

$asynchronous_level = "1" if ( $asynchronous_edge eq "pos"}; 

#my $f irst_if_then„statement = "IF $asynchronous_event = 
\ ' $asynchronous_level\ ' THEN" ; 

my $f irst_if__then_statement = "IF $asynchronous_event = 
\ " $asynchronous„level \ '» THEN" ; 

my $death„string = "ERROR ALWAYS CONDITION 
$tmp_always_condition HAS ASYNCHRONOUS SIGNAL ( $asynchronous__event ) \n" 

. "BUT DOES NOT HAVE THE SIGNAL IN THE FIRST IF STATEMENT . \n" 
. " INSIDE ALWAYS BLOCK IS ( $always_innards ) . \n" ; 

#Process first if condition 

#make sure asynchronous edge was involved in first if 

computation. 

die ( " $death_string" ) unless ( $always_innards 
s/* (\s*) IF ( . *?)THEN( .*) $/$l$first_if_then_statement$3/s) ; 
my $fic = $2; 

die { " $death_string" } unless ($fic =- / $ asynchronous„even t / s ) ; 

die ( " $ de a th__ string" ) unless 

( $always„innards =~ 
s/($first_if_then_statement.*?)ELSE(.*)$/$lELSIF $clk\'EVENT AND $clk 
\"$clk_level\ M THEN$2/s) ; 

$Process_Statements . = n PROCESS ($ elk , $asynchronous_e vent ) \n 

BEGIN" ; 

$ Processes tatements . = " 



else 
{ 

$Process_Statements .= "PROCESS\n BEGIN\n" ; 
$Process_Statements .= " WAIT $wait_statement ; \n" 

if ($wait_statement) ; 
#$Process_Statements .= " $always_innards \n END PROCESS; \n" ; 

} 

$Process_Statemeiits .= $always_innards ; 
$ Processes tat ements . - " \n WAIT; " 

if ($always_or_initial =~ /initial/) ; 
$Process — Statements .= " \nEND PROCESS; \n\n" ; 
} #Done with always ©innards . 

> 

#If we've printed status " . " , print a new line 
print STDERR "\n" 

if ($counter >- $number_o f .commands } ; 

############################################################ 

# Put it all together. 
# 

# Check to see if anything needs to be put inside the architecture block. 

# If nothing does, assume its a black box and instantiate a "component" 
with no opt 

# attributes and the exact same Parameters and Ports as the entity hooked 
up to the 

# component . 

# P.S. I hate black boxes, 
if 

{ ($Process_Statements . $Wire_Assignments . $ instant iation_s tr ing . $attribute_string 
) eq ) 
{ 

my $Component_String = 

&Declare_Entity { $module_name, \%Port_List , \%Parameter_List ) ; 

while <$Component_String s /ENTITY/ COMPONENT/ ){; } 

while ($Component_String =~ s/END\s+$module_name\s*\ ; /END 

COMPONENT\ ;/){;} 

my $tmp_cs = $Component_String; 

$Component_String .= " — attribute noopt : boolean; \n" ; 
$Component„String .= 11 attribute noopt of $module_jname : component is 

true; \n n ; 

$Component_String .= * --Hard instantiation of $module_name 
megafunction in VHDL with user defined parameters \n\n\n" ; 

$$Component_List_Pointer{$module_name} = $Component_String; 

} 

#else #It is not a black box, declare it as a normal module 
if 

( ( $Process_Statements . $Wire_Assignments . $instantiation — string . $attribute„string 
) ne " " ) 
{ 

############################################################ 

# Unlike Verilog, VHDL requires that all entities be defined before 

another 

# architecture block instantiates said entity. (Sounds like a legal 
verdict doesn't it?) 

# So, we put our port and parameter information into 
$entity_declaration r then put all 

# $entity_declaration at the top of our file. 

my $entity__declaration = 

&Declare__Entity ( $module_name, \%Port_List , \%Parameter_List) ; 



#Everything below goes in the architecture block. 



put a commented out entity declaration in there too so 
tit will be easier for a coder to figure out what is going on 
#Put it all in a string called $architecture_block 



my $architecture_block = "ARCHITECTURE behavior OF $module_name 

IS\n" ; 

my (@Component_Array) = sort (keys ( %Declared_Component s ) ) ; 

$architecture„block .= "attribute noopt: boolean; \n" if 

@Component_Array ; 

foreach $key (@Component_Array) 
{ 

$ architect ure_block .= ( $ $Component_L is t_Po inter {$ key} ) ; 

} 

foreach $type (sort (keys (%Type_List) ) ) 
{ 

$architecture_block .= " " . $Type_List {$type} . " \n" ; 

} 

while ($Wire_Assignments =- s/\V/g){;} #crush tick escape character 
should already be done, but it does not hurt anything 
#warn "wa is $Wire„Assignments\n" ; 

############################################################ 

# VHDL will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output 

# and assign the output $port <= tmp_$port . All 

# other assignments in the module are changed to use 

# tmp_$port instead of port . 
# 

# Also, VHDL considers std_logic to be different than 
std_logic_vector (0 downto 0). Verilog does not. 

# We solve this above by assuming everything is a std_logic„vector { 0 
downto 0). Here we'll take 

# a port (std_logic) and instantly convert it to tmp_port 
(std_logic_vector (0 downto 0}) and set 

# tmp_port{0) <= port; if port is input and port <= tmp_port(0) if 
port is output . 

# Extra tricky, though is that fpga express does not like ' event on 
std_logic„vectors . 

# we'll need to convert 'event signals back to std_logic 

foreach $port_declaration (sort (keys (%Port_List) ) ) 
{ 

my ($port_name, $port_direction, $port_type) = 

&Get_Port__lsrame_Direction_And_Type ( $Port_List { $port_declaration} ) ; 

my $port_type_is_std„logic = 0; 
$port_type_JLs_std_logic - 1 

if ($port„type =~ s/^STD_LOGIC$/STD_LOGIC_VECTOR{ 0 DOWNTO 

0)/i) ; 

my $tmp_signal_list = $Signal_List { $port_declaration} ; 
if ( $tmp_signal_list =~ 

/ ^ \ s * ( SIGNAL | VARIABLE | SHARED \ s+VARI ABLE ) \s* (\w+) / is 
#($port_direction =~ / A 0UT$/i) | | 
# ($port_type_is_std_logic) 

) 

{ 

my $ tmp_port__naine - $2; 



#warn "port_name is $port_name tmp_port_name is $1, 

$tmp_port_name\n" ; 

#add new name to signal list if any Process r Wire , or 
instantiation signal uses it. 

my $port__name_used = 0 ; 
#Orion, maybe could use /g option here if we knew the special 
variable for how many 

#times /g matched or we could next if we were here for pass 1 

while ( $Process_Statements 

s/ \b$port_name\b/$ tmp_port_name/ s ) { $port_name_used++ ,- } 

my $event_Process„Statements ; 

#Remember, elk is first in an asynchronous reset statement, 
if { $port_name__used) 



{ 



while ($Process_Statements =~ 
s/\b{PR0CES3\s*\ (\s*) 



#$1 = PROCESS 
# $2 =« , 
# $3 = reset 
# $4 = 
# $5 = » = 
# $7 = rest 

/$l$port_name$2$3$port„name$4$port_name$5\ ' $6\ ' $7/six) 



\{ 

reset \) " 
statement 
'event and 

$tmp_port_name(\s+\=\s+) \" ( [01] ) \" 
" $6 = new elk logic level 

( \ s+ . * ? \bEND\ s+PROCESS ) 

to end process 



$tmp_port_name(\s*\, \s*\w+\s*\) ) 
( .*?\b) 

$tmp_port__name (\ ' EVENT \s+AND\s+> 



$port_name_used = $port_name_used - 2 ; 
die "Incorrect \ ' event substitution^ " 
if ( $port„name_used < 0} ; 



} 



while ($Process_Statements =~ 

s/ (\bPROCESS\s+BEGIN\s+WAIT\s+UNTIL\s+) $tmp_jport_name(\s+\ = \s+) \" ( [01] } \" / 

$l$port_name$2\ 1 $3\ ' /six) 
{ $port_name_used = $port_name_used - 1;} 

> 

while { $Wire_As si gnment s =~ 

s/\b$port_name\b/$tmp_port„name/s) {$port_name_used++ ; } 

while ($instantiation_string 
s/ (\=\>.*?\b) $port_name\b/$l$tmp_port„name/ ) { $port„name_used++ ; } 

if ($port_name_used) 
{ 

my $ tmp_wi r e_a s s i gnment ; 

$tmp_port__name .= " (0) 11 if ( $port_type_is„std_logic) ; 

if ($port_di recti on =- / A 0UT$/ ) { $tmp_wire_ass ignment = 
$port_name <= $tmp_port_name; \n" ; } 

if ($port_direction =~ /~IN$/) { $tmp„wi repass ignment = " 
$ tmp_port_name < = $po r t_name ; \ n " ; } 

#die "DID NOT FIND ($port_name) IN ARCHITECTURE BLOCK 
($code__in_architecture_block) \n" 

#unless ($code_in_architecture_block =- 

s/ ( ,*\; [~\; \=] *\b$port_name\b[ A \; \ = ] * [*\ ; ] *\ ? ) { . * ) /$l$tmp_wire_ass ignment $2/ s) ; 

$Wire_Ass ignment s $tmp_wire_as si gnment ; 

} 

else 
{ 



undef { $Signal_List { $port__name} } ; 



} 



} 



############### 

# How because FPGA express hates std_logic_vector 1 event and wait 
statements, we need to generate 

# a std_logic signal to be used in all other ' event and wait 

statements 

my %std_logic_xf orm; 

if (0) #No, I refuse to support FPGA express 
{ 

while ($Process_Statements 

s/\b(PROCESS\s*\ (\s*) 
(\w+) (\s*\,\s*\w+\s*\) ) 



# $1 - PROCESS \{ 

# $2 = elk, $3 = " 



, reset\) " 
statement 

logic level 
end process 



(.*?\b) 

\2 ( \ 'EVENT\s+A^JD\s+) 
\2(\s+\=\s+)\" {[01])\" 



# $4 = reset 

# $ 5 = 1 event and 

# $6 = " = " $7 = new elk 



(\s+.*?\bEND\s+PROCESS) 

/$1$2$3$4($2 (0) ) $5$2 (0) $6\ '$7\ ' $8/six) 



# $8 = rest to 



{;} 

#my $ s t d_l og i c_name 

($2(0) ) " ;#&Get_Exclusive„VHDL_Name(std_logic_$2 A%Port_Width) ; 
#$std_logic_xform{$l} = $2; 



#$l$std_logic_name$3$4$std_logic_name$5$std_logic_name$6\ ' $7\ ' $8/sixee) 



while ($Process_Statements 
s/ (\bPROCESS\s+BEGIN\s+WAIT\s+UNTIL\s+) $tmp jort_name ( \ s+\=\s+ ) \ " ( [01] ) \V 

$l$port_name$2\ 1 $3\ ' /six) 

{;} 

} 

foreach $signal (sort (keys (%Signal_List )) ) 
{ 

$architecture_block .= " " . $Signal_List{$signal> . " \n" ; 

} 

#if architecture is of cpu_register_ram, hack in a 
#substitute. this is only for nios 1.1 kits 
if ( $module_name =~ /cpu_register_ram$/i) 
{ 

my $new_signal = $Port_List {wraddress} ; 
$new__signal 

s/\bwraddress\b\s*\ : \s*in\s+/last_wraddress \: /i; 

my @type__array = (sort keys %Type__List ) ; 
die "ERROR Expecting only one memory in $module__name" 
if (scalar (@type„array) > 1) ; 

my $memory_signal_name; 

foreach $sig (sort keys %Signal_List ) 

{ 

if ($Signal_List{$sig) =- / \ : \s*$type_array [ 0 ] \s*\ ; \s*$/ ) 
C 

$memory_s ignal_name = $ s ig ; 
last ; 

} 



10 } 



} 

die "ERROR could not find memory in $module_name\n" 

un less ( $memo ry_s i gna l_name ) ; 
$Process_Statements = &Replace_Cpu_Register„Ram 

($ memo ry_si gna l_name) ; 

$architecture_block . = " $new_signal ; \n" ; 
$Wire_Assignments = " " ; 



############### 

# there may some initial statements of variables that 

# are written by another process. Solution: suck up 

15 # initial processes and ensure that values aren't being 

# assigned to in other processes. If they are, put the 

# initial assignments in the other processes 

my @initial_statements = ( ) ; 
20 while ($Process_Statements =~ 

s/ A ( . *) process 

\s+begin\s+ 
( .*?) \s* 
\bwait\s*\;\s* 
25 end\s+process\s*\; 

(.*) 

/$l/six) 

{ 

my ($initial_assignments, 
30 $rest) = ($2, $3) ; 

foreach $assignment {split ( / \s*\ ; \s*/s , 

$initial_assignments) ) 

{ 

35 my ($lhs, 

$ as s ign__opera t or , 
$rhs) = 

$assignment =- / A \s* ( . *? ) \s* ( [\<\ : ] \=0 \s* ( . * ) /s 

40 next unless ($lhs) ; 

#do not support concatenations for now. 

#also assume that indexes are not split across 

#process statements. 

45 

die "too many lhs arguments in $lhs of assignment", 
n $assignment\n" 

if ($lhs =~ A, /) ; 

50 # now we have a single lhs argument, search around 

# for the appropriate always statement. The 

# statement could be in the previously modified 

# $Process_Statements or in $rest. So search in 

# each of them. 

55 

if ($lhs =~ /\</) 
{ 

my @tmp; 

($lhs,@tmp) = &Count_Parentheses ( $lhs) ; 

60 } 

foreach $string ( \$Process_Statements , \$rest ) 
{ 

if ($$string =~ 



s/ ( . *\bprocess\s+ 
begin\s+ . *?\b) 



(\s*loop\s+.*? 
(\bthen\s+ | \belse\s+ | \ ; \s* ) 
($lhs\b[ A \;]*( [\<\:]\=> .*?\;) 
) 

/ 

■$1" . 

" $assignment\ ; " . 

"\n$2" 

/sixe 

) 

{ 

die "mismatched assignment operators\n" , 
"initial statement was $assignment\n" , 
"always assign was $4\n" 

if ($assign_operator ne $5) ; 
last; 

} 

else #check for no loop: 
{ 

if C$$string =~ 
s/ ( . *\bprocess\s+ 
begin\s-t-) 
( . *? 

(\bthen\s+ | \belse\s+ | \ ; \s*) 
($lhs\b[ A \;]*{ [\<\:]\=) -*?\;) 
. *? 

) \s* (\bend\s+process\s*\; ) 

/ 

"$1" . 

" \n$assignment\ ; u . 
" \nLOOP\n" . 
"$2" . 

"\nEND LOOP\;\n" . 

"$6" 
/siex 
) 
{ 

die "mismatched assignment operators \n 
"initial statement was $assignment\n" , 
"always loop was $4\n" 

if ( $assign_operator ne $5) ; 
last ; 

} 

} 

if ($string == \$rest) 
{ 

push (@initial_statements , "$ assignment ; ") 

} 

} 

} 

$Process„Statements .= $rest; 

f (@initial_statements) 

$Process_Statements .= " PROCESS \nBEGIN\n" ; 

foreach $is ( @initial_statements ) 

{ 

$Process_Statements .= "Sis\n" ; 

} 

$Process__Statements .= "WAIT; \nEND PROCESS ; \n" ; 



} 



$architecture_block ,= "BEGIN\n\n" ; 

$architecture„block 

$ Processes tatements . $Wire_Assignments . $ instant iation_string . $attribute_string; 
$archi tec ture_b lock ,= "END behavior ; \n\n\n n ; 

#last thing convert [a:b] to (a downto b) 
$architecture_block = &V2VHD_Index ( $architecture_jDlock) ; 



$ Ent i ty_And_Archi t ec ture { $module_name } = 
&Get_Library_Declaration ( $architecture_block) . $entity_declaration . $architecture 
_block; 

#$all_architecture„blocks .= $architecture_jblock; 
#warn "defined $module_name\n" ; 

} 

############################################################ 
#Now we are finished with the contents of the module. 

#Save away valuable information for later regardless of if its a black 
box or not 

$ $Module__Indexed_Port_Width_Po inter { $module_name} = \%Port_Width; 
$$Module„Indexed_Port_Names_Pointer{$module_name} = \%Port_List ; 
$$Module_Indexed__Parameter_List {$module_naitie} = \%Parameter_List ; 

} 

############################################################ 

# Now all is done, except that we need to order the modules 

# VHDL is particular about the order in which things are declared. 

# Everything must be declared before it is instantiated. Fortunately, I 

# have a list of what is instantiated called %Module_Instantiation_List ; 

my $return__string; 

foreach $entity (&Order_Entities ( \%Module_Instantiation_List , 

@Modul e_Ar ray ) 

) 

{ 

$return„string .= $En tity_And_Archi tec ture {$ ent i ty } ; 

} 

return ($return__ string) ; 

} 

############################################################################### 
# 

# Order_Entities is a recursive function that takes a hash and an array of 
keys . 

# It returns an array of entities in order of dependance. The first entity 
returned 

# will not instantiate any other entities. The second entity returned will 
only instantiate 

# the first entity if it instantiates any entities. Likewise for the 
third. . . last 

# entites. The last module returned will be the top level in the heirarchy. 
# 

# The value of the hash is a comma separated string of entities that are 
instantiated 

# within the hash. 

# i.e. 



# $$pInstantiation_Hash{a} = "first module instantiated in a, second module 
instantiated in a, 

# last module instantiated in a" 
# 

# ©keys is an array of all entity names that should be ordered. 

############################################################################### 
# 

sub Order_Entities 
{ 

my ($pInstantiation_Hash, @keys) = @_; 
my @return__array; 

my $already_declared = "module already declared" ; 

#There is no way that we can confuse "module already declared" with a 
verilog module name 

#module is a key word and no spaces are allowed in module names . 

foreach $key (©keys) 
{ 

if ($$pInstantiation_Hash{$key> eq $already_declared) 
{ 

#warn " $key already declared\n" ; 
next ; 

} 

if ($$pInstantiation_Hash{$key> ne " " ) 
{ 

my Svalue = $$pInstantiation_Hash{$key} ; 
$value =~ s/\,\s*$/7; 
push ((?return_array f 

&0r derJEn t i t i e s ( $p Ins t ant i a t i on_Ha sh , 

split (/ \s*\ As*/ s, Svalue) 

) 

) 

} 

#now everything on which $key is dependant has been declared 
#so its safe to declare it, 
push (@return_array, $key) ; 

$$p!nstantiation_Hash{$key} = $already_declared; 

} 

return (@return_array) ; 

} 

sub V2VHD_Index 
{ 

my ($ string) = 

#If a variable has two vector indecies, the second one takes precedence, 
while (Sstring =~ s/ (\ [ [~\] ] *\] \s*) (\ C . *?\] ) /$2/s> { ; } 
while ($string =~ s | (.*) \ [(.*?) \] (.*) | $1 1 s ) 

{ 

my $rest = $3; 
#warn "found $2\n" ; 
$GLOBAL_DEBUG = 1; 

$string .= &Vector_Order ( split ( /\s*\ : \s*/s , $2 } ) ; 
$GLOBAL_DEBUG = 0; 
$string .= $rest; 

} 

return ($string) ; 

} 

############################################################################### 
# 

# Declare Entity 



# 

# Takes a module_name, \%Port_List , \%Parameter_List and 

# returns a string that contains a vhdl ready entity declaration 
# 

sub Declare_Entity 
{ 

my { $module_name , $pPort__List , $pParameterJOist) = ; 

my $entity_declaration .= "ENTITY $module__name IS\n" ; 

my @Parameter_Array = sort (keys (%$pParameter_List )) ; 

if ( @ Par ame t e r_Ar r ay ) 

{ 

$entity__declaration . = " GENERIC \{\n" ; 
foreach $parameter (@Parameter_Array) 
{ 

my $ Par ame ter_St ring = " $ parameter 

: " . $$pParameter_List { $parameter} . " ; \n" ; 

$entity_declaration .= $Parameter_String; 

> 

$entity_declaration =~ s/\ ; \n$/\n/s; #Get rid of last semi-colon. 
$ en t i ty„dec 1 ara t ion . = " \ ) ; \ n " ; 

} 



my @Port_Array = sort (keys (%$pPort_List) } ; 

if (@Port_Array) 

{ 

$entity_declaration . = " PORT \(\n" ; 

foreach $port (@Port_Array) 

{ 

$tmp = $Port_List{$port} . " \n" ; 

#$entity_declaration $tmp; #$Port_List { $port} . " \n" ; 
$entity_declaration .= " " . $$pPort_List {$port} . " \ ; \n" ; 

} 

$entity_declaration =~ s/(.*)\;/$l/s; 
$entity_declaration .= " ) ; \n" ; 

} 

$entity__declaration .= "END $module_name; \n\n" ; 
return { $entity_declaration) ; 

} 
# 

# Get_Library__Declaration 
# 

# Very simple for now, may get more complicated later 

sub Get_Library_Declaration 
{ 

my { $architecture_block} = @_; 

my $library_declaration - 
"LIBRARY ieee;\n" 

. "use ieee. std_logic„ 1164 .all; \n" 
. "use ieee . std_logic_arith. all ; \n" 

. "use ieee . std_logic_unsigned. all ; \n" ; 

$library_declaration .= "\nlibrary std;\nuse std . textio . all ; \n" 
if ($architecture_block =- /\bwrite\ ( / ) ; 

return ( $library_declaration) ; 



sub V2VHD_Files 
{ 

my ( $Verilog_String, $Destination„Directory, @f iles) = @„; 

my (@Files„To_Syn the size) ; 

my (@Do_Not_Synthesize_These) ; 

#warn "vs = $Verilog„ String, dd is $Destination_Directory , files 
@files\n" ; 

my $COPYRIGHT„NOTICE= 
" — Copyright (C) 1991-2000 Altera Corporation 

--Any megaf unction design, and related net list (encrypted or decrypted) , 
--support information, device programming or simulation file, and any other 
--associated documentation or information provided by Altera or a partner 
— under Altera' s Megaf unction Partnership Program may be used only to 
--program PLD devices (but not masked PLD devices) from Altera. Any other 
— use of such megaf unction design, net list, support information, device 
--programming or simulation file, or any other related documentation or 
— information is prohibited for any other purpose, including, but not 
— limited to modification, reverse engineering, de-compiling, or use with 
--any other silicon devices, unless such use is explicitly licensed under 
— a separate agreement with Altera or a megaf unction partner. Title to 
— the intellectual property, including patents, copyrights, trademarks, 
— trade secrets, or maskworks, embodied in any such megafunction design, 
— net list, support information, device programming or simulation file, or 
— any other related documentation or information provided by Altera or a 
--megafunction partner, remains with Altera, the megafunction partner, or 
— their respective licensors. No other licenses, including any licenses 
— needed under any third party's intellectual property, are provided herein, 
n . 

my %Modu 1 e_Indexe d_P o r t_Name s ; 

my %Module_Indexed_Port_Width; 

my %Module_Indexed_JParameter_Values ; 

my %Component_List ; 

my %Additional_Files; 

#warn "mipn pointer is " . \%Module_Indexed_Port_Names . " \n" ; 
my $Top_Wrapper_Name - "Top_Level_$Top_Level_Module_Name u ; 

$Destination_Directory =~ tr | \\ | \/ ] ; 
$Destination_Directory =- s/ A \s* ( . *?) \s*$/$l/ ; 
$Destination_JDirectory =~ s/ A ( . *) \/$/$l/ ; 

foreach $pass (1,2) 
{ 

warn "VERILOG TO VHDL CONVERSION: " . &date_time . " PASS $pass\n" ; 

foreach $file (©files) 

{ 

Sfile =~ tr|\\|\/| ; 
my $vhdl_file = Sfile; 

$vhdl_file =~ s/ A .*\/( .*?) $/$l/s; # Crush path, so that files in 
#warn "vhdl file is $vhdl„f ile\n" ; 

# different directories end up in the same place. 
$vhdl_file =~ s/^ (.*?) \. (.*) $/$!/; #Crush all after first » 

my $extension - $2; 

my $vhdl_innards ; 

if ($ extension =~ /^vhd/i) 

{ 

warn "VERILOG TO VHDL CONVERSION: " . &date_time . 
" leaving vhdl file ($file) alone. \n"; 

} 

else 



$vhdl_file = "$Destination_Directory\/$vhdl_f ile\ .vhd" ; 
warn "VERILOG TO VHDL CONVERSION: " . &date_time . " SCANNING $file 
\n" ; # TO $vhdljile . \n" ; 

5 

$vhdl_innards = &V2VHD ( $Verilog_Strmg, 

$f ile, 
$pass , 

\%Module_Indexed_Port_Width, 
\%Module_Indexed_Port_Names , 
\%Module_Indexed_.Parameter__Values , 
\%Component_List ) ; 

} 

15 if ($pass == 2) 

{ # If there is nothing in vhdl_innards copy the verilog file 
directly. It will get used later in guartus . t 

# otherwise, make a vhdl file. No need to copy the verilog file if 
20 the output directory 

# is 

if ( $vhdl_innards =~ /~\s*$/s) 
{ 

if (0) #($Destination__Directory ne " . " ) ) 

25 { open (SRC FILE, ■< $file") || die " FILE ERROR! CAN NOT OPEN 

$f ile $ I\n" ; 

my $Dest_File = " $Destination_Directory\/$f ile" ; 

open (DESTFILE , ■> $Dest_File") \\ die " FILE ERRORS CAN NOT 

30 OPEN $Dest___File $l\n" ; 

while (<SRCFILE>) 

{ 

print DESTFILE $_; 

} 

35 close (SRCFILE) ; 

close (DESTFILE) ; 

print "COPIED $file TO $Destination_Directory\n" ; 

} 

} 

40 else 

{ open (DESTFILE, "> $vhdl_file") || die "FILE ERROR! CAN NOT 

OPEN $vhdl_file $!\n" ; 

print DESTFILE " $COPYRIGHT_JNOTICE" ; 
45 print DESTFILE " $vhdl_innards " ; 

close (DESTFILE) ; 

warn "VERILOG TO VHDL CONVERSION: " . &date_time . " CONVERTED 
$file TO \n" .(" "x60) . " $vhdl_f ile\n" ; 

push (@Files_To_Syn the size, $vhdl_f ile) ; 

50 } 

} 

} 

> 

return (@Files„To_Synthesize) ; 

55 } 

sub Convert_Simulation_Files 

my Sfile = shift or die "no file specified for simulation\n" ; 
60 my $test_bench = &HDL_Remove_Comments (&HDL_Read_File ($f ile) ) ; 



my @all_sim_f iles ; 



my $verilog_test_ equipment ; 



while ($test_bench =~ s/* (.*?) \ x include\s*\ "(.*?) \ " <.*) /$l$3/sg) 
{ 

my $include_f ile = $2; 

#test_equipment . v has constructs that this lame converter does 
#not understand. Solution, make and translate from a bogus 
# t e s t_equ ipment . bbx 

if ($include„file =~ /^test_equipment\ . v/ ) 
{ 

&Make„_Verilog_Test_BBX ( ) ; 

$include_f ile = " test_equipment .bbx" ; 

} 

next if ($include_f ile / A modelsim__def ine\ . v. */ } ; 
push (@all_sim_f iles, $include_f ile) ; 

} 

push (@all_sim_f iles, $f ile) ; 

my @output_files = &V2VHD_Files ( » s define SIMULATION" , " . " , @all_sim„f iles) ; 
&Make_VHDL„Test_Equipment ; 

$" = n \n n ; 

print "Here is a list of all 1993 vhdl files generated by this script :\n 
@output_f iles\n" ; 

#print "vcom -93 -explicit @output_f iles\n" ; 

} 

sub Check_For__Altera_Copyright 
{ 

my $VERILOG_COPYRIGHT_NOTICE= 

qq[/ /Copyright (C) 1991-2001 Altera Corporation 

//Any megafunction design, and related net list (encrypted or decrypted), 
//support information, device programming or simulation file, and any other 
//associated documentation or information provided by Altera or a partner 
//under Altera 1 s Megafunction Partnership Program may be used only to 
//program PLD devices (but not masked PUD devices) from Altera. Any other 
//use of such megafunction design, net list, support information, device 
//programming or simulation file, or any other related documentation or 
//information is prohibited for any other purpose, including, but not 
//limited to modification, reverse engineering, de-compiling, or use with 
//any other silicon devices, unless such use is explicitly licensed under 
//a separate agreement with Altera or a megafunction partner. Title to 
//the intellectual property, including patents, copyrights, trademarks, 
//trade secrets, or maskworks, embodied in any such megafunction design, 
//net list, support information, device programming or simulation file, or 
//any other related documentation or information provided by Altera or a 
//megafunction partner, remains with Altera, the megafunction partner, or 
//their respective licensors. No other licenses, including any licenses 
//needed under any third party's intellectual property, are provided herein. 
//Copying or modifying any file, or portion thereof, to which this notice 
//is attached violates this copyright.]; 

my @Altera_Files; 
foreach $file (@_) 
{ 

my $fs = HDL_Read_File ($f ile) ; 
push (@Altera_Files , $file) 
;# if ($fs =~ /$VERILOG_COPYRIGHT_NOTICE/) ; 

} 



return (@Altera„Files) ; 

} 

sub HDL_Read_File 
{ 

my $file = shift or die "no file specif ied\n" ; 

open (FILE,"< $file" ) or die "cannot open file ($file) ($i)\n" ; 
my $retum_string; 
while (<FILE>) 
{ 

$return_string , = $_; 

} 

close (FILE) ; 

return { $return_string) ; 

} 

sub HDL_Remove_Comments 
{ 

my $string = shift or die "no string specif ied\n" ; 
my $ language = shift | | "verilog" ; 

if ($language /verilog/i) 
{ 

$string =~ s | \/\* . *?\*\/ | | gs; 
$string =~ s j \/\ / . *$ | | gm; 
return ($string) ; 

} 

if ($ language /vhdl/i) 
{ 

$string =- s | \-\- . *$ | | gm; 
return ($string) ; 

} 

die "HRC, language ($language) not under s t ood\n" ; 



sub Make_Verilog_Test_BBX 
{ 

my $ string; 

#f irst read in verilog test equipment and save it 
taway for later. 

open (FILE, "< test_equipment . v" ) or 

die "cannot open test_equipment .v ($!)\n" ; 
while (<FILE>) 
{ 

$ string .= $_; 

} 

close (FILE) ; 

open (FILE, "> test_equipment ,bbx" } or 

die "cannot open test_equipment . v ($!)\n" ; 

print FILE «END_OF_TEST__EQUIPMENT_V; 
//////////////////////////////////////////////////////////////// 
// MODULE; Clk_Gen 
// 

// Test Equipment. 
// 

// Generates a 50%-duty-cycle continuous clock. Its one parameter 

// sets the period. 

// 

1 1 1 1 1 If 1 1 1 1 f / 1 1 1 f f 1 1 // 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 f 1 1 1 ! 1 1 1 1 f 
module Clk_Gen (elk) ; 
output elk; 

//put something in to keep from being declared a black box 



wire f oo = 1 ; 
endmodule // Clk_Gen 



! I f / 1 1 1 1 1 1 f / 1 1 ! If i I ! 1 1 ! / H f 1 1 M 1 1 / U I f I f f 1 1 1 f 1 1 i ! ! I f 1 1 U 1 1 if I ! i i 

// MODULE: Reset_Gen 

// 

/ / Test Equipment . 
// 

// Generates a reset pulse (logic negative) 

// 100 clock-periods long at the beginning of the 

// simulation. 

// 

iiiinitintnifniiiiffifiiiiiiiiifnnfinHitininiiiiiiftii 

module Reset_Gen (reset_n) ; 
output reset_n; 

//put something in to keep from being declared a black box 
wire foo = 1; 

endmodule // Reset_Gen 
END__OF_TESTJEQUI PMENT_V 
close { FILE) ; 

return ($string) ; 

} 

sub Make_VHDL_Test_Equipment 
{ 

my $file = " test_equipment . vhd" ; 

open (FILEOUT, ">$f ile" ) or die "cannot open file ($£ile) ($!)\n"; 
print FILEOUT «END_OF_TEST_EQUIPMENT; 

— Copyright (C) 1991-2000 Altera Corporation 

Any megafunction design, and related net list (encrypted or decrypted) , 

— support information, device programming or simulation file, and any other 

— associated documentation or information provided by Altera or a partner 

— under Altera* s Megafunction Partnership Program may be used only to 

— program PLD devices (but not masked PLD devices) from Altera. Any other 

— use of such megafunction design, net list, support information, device 

— programming or simulation file, or any other related documentation or 

— information is prohibited for any other purpose, including, but not 

— limited to modification, reverse engineering, de-compiling, or use with 

— any other silicon devices, unless such use is explicitly licensed under 

— a separate agreement with Altera or a megafunction partner. Title to 

— the intellectual property, including patents, copyrights, trademarks, 

— trade secrets, or maskworks, embodied in any such megafunction design, 

— net list, support information, device programming or simulation file, or 

— any other related documentation or information provided by Altera or a 

— megafunction partner, remains with Altera, the megafunction partner, or 

— their respective licensors. No other licenses, including any licenses 

— needed under any third party's intellectual property, are provided herein, 

LIBRARY ieee; 

use ieee. std_logic_1164. all; 
use ieee . std_logic_arith. all ; 
use ieee . std__logic_unsigned. all ; 

ENTITY Clk_Gen IS 
PORT ( 

SIGNAL elk : OUT STD_L0GIC 

) ; 

END Clk_Gen; 



LIBRARY ieee; 

use ieee . std__logic_ll 64 . all ; 
use ieee . std_logic_ari th, all; 
use ieee . std_logic__unsigned. all; 

5 

ENTITY Reset_Gen IS 
PORT { 

SIGNAL reset„n : OUT STD_LOGIC 

) ; 

10 END Reset_Gen; 
LIBRARY ieee; 

use ieee . std_logic_1164 . all; 
use ieee . std__logic_arith. all; 
15 use ieee . std_JLogic_unsigned. all ; 

ARCHITECTURE behavior OF Clk_Gen IS 

SIGNAL tmp_clk : STD_LOGIC_YECTOR ( 0 DOWNTO 0) ; 
BEGIN 

20 

process (tmp__clk) 
begin process 
if tmp_clk = "0" then 

tmp_clk <~ "1" after 15 ns, "0" after 3 0 ns; 

25 else 

tmp_clk <= "0" after 15 ns; 
end if; 
end process; 
elk <= tmp_clk{0); 
30 END behavior ; 

ARCHITECTURE behavior OF Reset_Gen IS 

SIGNAL tmp„reset„n : STD_LOGIC_VECTOR ( 0 DOWNTO 0) 
BEGIN 



35 



50 



PROCESS 
BEGIN 



tmp__ reset_n <= "0" ; 
40 wait for 3000 ns; 

tmp_reset_n <= "1" ; 
WAIT; 
END PROCESS; 

reset_n <= tmp_jreset_n (0) ; 
45 END behavior; 

END_OF_TEST_EQUIPMENT 



close (FILEOUT) ; 

} 



sub Replace_Cpu_Register_Ram 
{ 

my $memory_signal_name = shift or die " RCRR, no sig given"; 
return «END_OF__REGISTER_RAM; 
55 PROCESS (elk, rdaddress) 
BEGIN 

q <= $memory„signal_name\ (CONV_INTEGER (unsigned (rdaddr ess) ) \) ; 
if rising_edge (elk) then 

las t_wr address <= wraddress; 
60 IF wren /= * 0 1 THEN 

$meraory_signal_name\ (CONV_INTEGER (unsigned ( las t_wr address ) ) \ ) < 

data ; 

IF ( las t_wr address = rdaddress) THEN 



q <= data; 
END IF; 
end if; 
END IF; 
5 END PROCESS; 

END_OF_REGISTER_RAM 



} 



Crush_names .pm 



################################################################ 

# Crush_Names_That_Are_Bigger_Than_Max_Width__Characters 

# 

# One of the great benefits of using a higher programming language 

# is the ability to assign descriptive variable names, such that a 

# human of modest programming ability may peruse the code and 

# comprehend its workings . 
# 

# There seem to be certain programmers in this world who do not 

# believe that description can be expressed beyond a certain number 

# of characters. Some unnamed synthesis tools, for instance, lob off 

# all characters beyond the 32nd, or modify these character- 

# heavy names in their own way, or simply implode in a screaming 

# error message of death. 
# 

# Unfortunately, we are a long-fingered bunch who love to hear the 

# sounds of our own typing. We have many Verilog/VHDL wires, regs and 
20 # filenames that regularly exceed smaller limitations. 

# Furthermore, many names use other objects' names as prefixes and 

# suffixes, pushing the character-count even higher. 
# 

# This long-named subroutine, ironically, "crushes names that 
25 # are bigger than a maximum width of characters" to accomodate 

# such character-width- limited programs. 
# 

# All-in-all, I do not begrudge the character- truncating programs 

# for their efforts. After all, they (usually) produce working 
30 # synthesized output-files... with one exception. Often, these 

# programs will rename a module without renaming the filename where 

# this module resides . . . which is one of the attributes we rely 

# upon for Quartus to find black boxes in the synthesized code. 

# Thus, we crush not only names in the code, but filenames as well. 
35 # 

# This subroutine must then not only modify the contents of files, 

# but regenerate the list of files with named-crushed filenames and 

# modify the hash that translates the original-name to the crushed-name 
# 

40 ################################################################ 
sub C ru sh__Hame s JTha tjx e_B i gge r_Than_Max_Wi dth_Char ac t er s 

{ 

my { $pConverted_Filenames , 

$pConversion_Hash, 
45 $max__width, 

<2File_List) = @_; 
my $max__width_minus__l = $max__width - 1; 
my $max_width_jolus_l = $max_width + 1; 

50 my @new_File_List; 

my $line; 

#my %Reverse_Hash = reverse %$pConversion_Hash; 

foreach $filename (@File_List ) 
55 { 

$filename =~ tr|\\|\/|; 
my $new_f ilename; 

# test to see if we've already converted this file 
60 $new_filename=$$pConverted„Filenames{$f ilename} ; 

if ( $new_f ilename ne " " ) { 

push (@new_File_List, $new_f ilename) ; 

next; 



} 



############### 

# A filename bigger than $max_width characters often refers to a module 

# that is bigger than $max_width characters. 

# Rename the filename to a $max_width character filename. 
$new_f ilename = $ filename; 

if ($new_f ilename =~ s/ ( \w{ $max_width, }) (\ . ? [*\/] *) $/ 

&Make_Max_Width_Char__Name < $pConversion_Hash, $max_width, $1) . 
$2/sgoex) 

{ 

if ($f ilename ne $new_f ilename) 
{ 

rename $ filename, $new_f ilename or 

die "ERROR Crush_Names_. , . : could not rename file <$f ilename) 
to ( $new_f ilename ) ( $ I ) \n" ; 

if { 1 (-T $new_f ilename) ) 
{ 

rename $f ilename . $suf fix, $new_f ilename .$ suffix or 

die " ERROR Crush_Names_. . . : could not rename file 
($filename$suffix) to ( $new„f ilename $ suffix) ($!)\n" ; 
} 

} 

} 

# Whether we rename the file the file or not, we then need to 

# add filename into others; 

push (@new_File_List , $new_f ilename) ; 

$ $pConver t ed_F i 1 ename s { $ f i lename } = $new_f i 1 ename ; 

$new_f ilename_f or__reading = $new_f ilename ; 
$do_AF=0; 

if (!(-T $new_f ilename) ) { 

$new„f ilename_for_reading .= $suffix; 
$do_AF=l; 

} 

open (FILE, "< $new_f ilename_f or__reading" ) |j 

die " ERROR Crush_Names_. . . : CANNOT OPEN FILENAME FOR 
READING ($new„filename__for_reading) ( $ ! ) \n" ; 
my $output_string = " " ; 
while ($line = <FILE>) 
{ 

$output_string .= &Crush_Line ( $line, $max_width, $pConversion_Hash) ; 

} 

close (FILE) ; 

if ($do_AF) { 

open ( ALTERA__FILEHANDLE , "> $new_f ilename" ) || 

die " ERROR Crush_Names_. . . : CANNOT OPEN FILENAME FOR 
WRITING ($new_f ilename) ($ ! ) \n" ; 

print ALTERA_FILEHANDLE $output_string ; 
Close (ALTERA_FILEHANDLE) ; 
} else { 

open (FILE, "> $new_f ilename" ) || 

die " ERROR Crush_Names_. . . : CANNOT OPEN FILENAME FOR 
WRITING ($new_f ilename) ($ ! ) \n" ; 

print FILE $output_string; 
close (FILE) ; 

} 

} # end of foreach 
return (@new_File_List ) ; 



} 



############################################################################### 
# 

sub Crush_Line 
{ 

my ( $line, $max_width, $pConversion_Hash) = @_; 
my $max_width,_minus_l = $max_width - 1; 

if ($line =- s/ ( [a-zA- 

Z\_] \w{$max_width_minus_l, } ) / &Make_Max_Width_Char_Name ( $pConversion_Hash, $max_w 
idth, $1) /sgoe) 

{ 

#print "Crush_Names. . , : line was ($old_line) now {$line)\n" ; 

} 

return ($line) ; 

} 

################################################################## 

sub Make_MaxJ7idth_CharJSTame 

{ 

my ( $pConversion_Hash, $max_width, $word) = @_; 
my %Reverse„Hash = reverse %$pConversion„Hash; 

# first, check to see if word has appeared before 
my $new__word = $$pConversion_Hash{$word} ; 
if ( $new_word eq " " ) 

{ 

$new_word = $word; 

# word has not been found before, and we need to make a new hash entry 
my $max_width_minus„l = $max_width - 1; 

my $max__width_plus„l ' ~ $max_width + 1 ; 

die "ERROR Make_Max_Width_CharJSTame : WORD ($new_word) not under stood\n" 
unless ( $new_word =~ s/ A ( [a-zA- 

Z\_] \w{0, $max_width_minus_l } ) (\w*J /$!/); 

# (also, crushes it down to $max_width charactes) 

#If word ends with \_ vhdl hates you 

#so fool while loop by assigning value to reverse hash 

if ($new_word =~ /\_$/) 

{ 

$Reverse_Hash{$new„word} = "vhdl placeholder"; 

} 

while ( $Reverse_Hash{ $new_word} ) 
{ 

#strip off the number at the end of the 32 char word 

#and increment it . 

if ($new_word =- (\w*? } ( \d+) $/ ) 

{ 

my $base = $1; 

my $index = $2 + 1; 

while ( ($base . $ index) =~ / <\w{$max_width_plus_l, }) /o) 
{ 

chop ($base) ; 

> 

$new_word = $base . $ index; 

#print " word is numbered ($new_word) \n" ; 

} 

else 
{ 

$new_word =~ s / * { \w { $max__width__minus„l }) . * $ / $ 1 / o ; 
$new__word . = "1"; 



#print " word was unnumbered ( $new_word) \n" ; 

} 

} 

# check to make sure we 1 re not outta hashes 

die "ERROR Make_Max„Width_Char_Name : WORD ($new_word) not understood. 
Out of hashes. \n" 

unless ( $new_word =~ / A [a-zA-Z_] { 1} \w{ 0 , $max_width_minus__l } $ / ) ; 
$$pConversion„Hash{$word} = $new_word; 

} 

return ($new_word) ; 

} 

sub Make_MIF_Files_Max_Friendly 
{ 

my ( $pConverted_Filenames , 
$pConversion__Hash, 
$max_width, 
@File_List) = @_; 

my @converted_f ile_JList = 

&Crush_Names_That_Are_Bigger_Than_Max_Width_Characters { @_) ; 

foreach $file (@converted_f ile_list) 
{ 

open (MIFFILE, n < $file" ) or 

die "Cannot open mi f file ($file) ($!)\n n ; 
my $f ile_content; 

while (<MIFFILE>) { $f ile_content .= $_; } 
close (MIFFILE) ; 

$f ile_content =~ s|\/\*|\%|g; #max+2 likes % instead of /* */ 
$file_content sj\*\/|\%|g; #max+2 likes % instead of /* */ 

$f ile_content =~ s | \-\- . *$ | |mg; #single comments mp2 hates them 
$file_content =- s j \bUNS\b j DEC | g; tchange type UNS to DEC 

open (MIFOUT, "> $file" } or 

die "Cannot open mi f file ($file) ($!)\n"; 
print MIFOUT $f ile_content ; 
close (MIFOUT) ; 

} 

return {@converted_f ile_list ) ; 

} 

1; # Modules must say "1" — mustn't they? 



default_generator_program.pl 

################################################################ 

# default_generator_pr ogram.pl 
# 

# Suppose a user has a plain-old Verilog (or VHDL) module — no 

# Vpp, parameterization, or generation about it. 
# 

# Suppose they want to include this design into an Avalon system 

# module. They are perfectly willing to fill out a "class. ptf" file 

# which describes their ports and sundry System-parameters 

# (e.g. Hold_Time) . But they don't want to write a whole generator 

# program — they just want to use their "thing". 
# 

# If the component's class. ptf file gives "" (or "—default—") as 

# the ,, generator_program M , then the SOPC-Builder calls THIS VERY 

# PROGRAM (default_generator_program.pl) -as if- it was the user's 

# generator program. This saves the Authors of simple 

# SOPC-components the drudgery of writing their own "generator_program. " 
# 

# And what wonderful things do we do on the author's behalf? 
# 

# 1) Generate a renaming -wrapper . 

# 2) Copy implementation-files into project-directory. 

# 3) Arrange for some files to be synthesized (if appropriate or asked) 
# 

# **** Making a Renaming Wrapper 
# 

# The user will have defined a module named, for example, 

# jthingwizard (who knows — they -might- name it that!). 

# But, in the SOPC-Builder table, they want to add 

# one of those "jthingwizard" things named "my_inst." 

# So we create a new module named "my_inst" (with 

# exactly the same ports as "jthingwizard'') which contains 

# one instance of "jthingwizard" and nothing else. 

# The almost-pointless (but totally recjuired) "my_inst" 

# module is the -renaming wrapper-. 
# 

# When we build the renaming -wrapper , we can either instantiate the 

# user's module directly, or we can instantiate it as a black-box. 

# This all depends on whether they want us to synthesize it or not. 

# often they will, but sometimes they won't. If you don't explicitly 

# say so, this program will try to make an intelligent guess about 

# black-boxing based on the types of files found in the class-directory. 

# If you have nothing but a schematic, for example, then clearly you 

# want a black-box. 
# 

# It is only possible to build a renaming wrapper if: 

# a) The users' "class. ptf" file describes -all- ports. 

# b) The top-level module name is known. 
# 

# (a) is entirely up to you. If you don't describe each-and- every 

# port in your " class .ptf " -file, then this function simply will not 

# work. 
# 

# We try to help you with (b) by making an educated guess. It you 

# don't specifically say what your top-level module is, we just 

# assume it's the same as the class-name (what else would it be, 

# after all?) . 
# 

# 

# **** copying Implementation Files 



# Every component must be implemented -somehow-- We start off with 

# the default asssumption that the top-module of this component is 

# named the same as the component directory ( " j thingwizard" in the 

# above example) and is implemented in an HDL, BDF, or EDF-file of 

# the same name. Unless told otherwise, we search for such a file in 

# the components' directory, and then copy it blindly into the 

# project directory for the system-under-construction . In fact, 

# by default, we copy -all- desgin files from the component-directory into 

# the project-directory, whether you need them or not (if you didn't 

# need them, after all, what were they doing in the component directory?) . 
# 

# Alternatively, the user can supply a list of files-to-be copied 

# and, separately, files-to-be-synthesized. 
# 

# **** Altering default behavior. 
# 

# Suppose the top-level module -isn't- the same as the 

# component -directory name, or -isn't- implemented in a file 

# of the same name. Or, suppose you -don't- want us to try 

# synthesizing your file, but you want it to be a black-box instead. 

# well, then. You'd have to override the behavior or this program 

# somehow. (You could, of course, write your own generator program, 

# but we ' 11 see how far we can get you before we ask you to bail 

# out) . 
# 

# Your "class .ptf 11 file can contain a section named 

# DEFAULT__GENERATOR, in which you can supply directions to this 

# program. Here is an example DEFAULT_GENERATOR function 

# demonstrating all the available parameters : 
# 

# DEFAULT_GENERATOR 

# { 

# top_module_name = "my_tippie_toppie" ; 

# black_box_f iles = "summit. edf, blickman. bsf " ; 

# synthesis„f iles = "toppo.v, submodl.v, libx.vhd"; 

# black_box = "0" ; 

# ) 

# 

# Seems pretty clear to me what all these things are, so I'll spare 

# you the pain of suffering through an English description. 
# 

# All the filenames are given relative to the class-directory 

# {or as absolute full pathnames, your choice) . 
# 

################################################################ 
use wiz_utils; 

################################################################ 

# List_Ports — From_PTF 
# 

# Given a ptfRef which contains a " MODULE " section 

# we should be able to do a good-old VPP "&List_Ports_For " call. 
# 

# This function does exactly that . 
# 

################################################################ 

sub List_Ports__From__PTF 

{ 

my ($db_Module) = (S_) ; 

my $module_name = &get_data { $db_JY[odule} ; 

my $db_Wiring = &PTF_Get_Required_Child__By„Path { $db_Module , "PORT_WIRING 



my @port_description_list = (); 



my $num_children = &get_child__count ($db_Wiring) ; 

for (my $child_index=0; $child_index < $num_children; $child„index-f-+ } { 
my $db_Port = &get_child ( $db_Wiring, $child_index) ; 
next unless &get_name { $db_Port) eq "PORT"; 

my $Port = &PTF_Build_Hash_From_Section ($db_Port) ; 

my @attribute_list = ("name=" . &get_data ($db_Port) ) ; 
foreach $attr (keys {%$ Port ) ) { 

push (@attribute_list, "$attr = $$Port {$attr} - ) ; 

} 

push (@port_description_list, join " | " , @attribute_list) ; 

} 

&List_Ports__For ( $module__name, @port__description_list ) ; 

} 

################################################################ 

# Def ault_Generator 
# 

# Implements the default generator as a callable function. 
# 

################################################################ 

sub Default__Generator 

{ 

my ($arg, $user_de fined, $db_Jtfodule, $db_PTF„File) = 
&Process„Wizard_Script_Arguments ( 11 " , @_J ; 

^Progress ("Default Generator Program for: $$arg{name} . " ) ; 

# Open-up "class. ptf" and extract DEFAULTJ3ENERAT0R , PORTJtflRING 
my $db_Class„File = 

&PTF_New_Reciuired_Ptf_From_File ( " $$arg{class_directory} / class .ptf 11 , 
"No 'class. ptf* file found for module $$arg{name} " ) ; 

my $class_name = &PTF_Get_Required__Data_By_Path ($db_Module, "class"); 

my $gen„args = &PTF_Build_Hash__From_j3ection ( $db_Class_File, 

" CLASS /DEFAULT_GENERATOR" , 
"0"}; # OK if section missing. 



if ($$gen_args {black_box} eq; "") { 

# Try to guess whether they want their design synthesized, or 

# included as a black-box (since they didn't say) . 
# 

# BAD Heuristic: 

# If there are any HDL-files at all, then we'll try to synthesize 

# them, 

# 

# if {scalar <@synth_full_paths) ==0) { 

# &Progress { "Default Generator: treating $$arg{name} as a black-box"); 

# $$gen_„args{black_box} - 1; 

# } else { 

# &Progress ( "Default Generator: { $$arg{name> ) adding files for synthesis") 

# $$gen_args {black_box} = 0; 

# ) 

# GOOD Heuristic: 

# Only synthesize if they explicitly set black__box = 0. 
# 

$$gen__args {black_box} = 1; 



############### 

#time to update the system port_wiring. 
5 &delete_child($db_Module, " PORT_WIRING " ) ; 

my $dbj?orts - &get„ child_by_path($db — Class_File, 

" CLAS S / MODULE_DEFAULT S / PORT_WIRING 11 ) ; 
Scadd_child($db__Module, " " , $db_j?orts) ; 
################ 

10 # First, go through the files in the directory. This will give us 

# a clue about whether to treat the users' design as a black-box 

# or as a synthesizable thing, 
# 

opendir (CLASSDIR, " $$arg{class_directory} 11 ) ; 

15 

my @bb_base_f iles = split (/\s*\,\s*/, $$gen__args{black__box_f iles} ) ; 
if (scalar (@bb_base_f iles) ==0) { 
foreach $file (readdir (CLASSDIR) ) { 

next unless $file =- /\ . ( tdf | edf |bsf | vqm|mif ) $/ ; 
20 push (@bb_base_f iles, "$file"); 

} 

> 

my @synth__base_f iles = split (/\s*\,\s*/, $$gen_args {synthesis_f iles} ) ; 
25 if ((scalar (@synth__base__f iles) == 0) && 

( I$$gen_args{black_box} ) ){ 

rewinddir (CLASSDIR) ; 
foreach $file (readdir (CLASSDIR) ) { 
next unless $file =~ A . (v | vhd) $/ ; 
30 push (@synth_base_f iles, " $file" ); 

} 

} 

closedir (CLASSDIR) ; 

35 

# Make all files relative to the class_directory (unless, of course, 

# the path is already absolute) . 
# 

my @bb„_full .paths = ( ) ; 
40 my @synth_f ull_j?aths = ( ) ; 

my @synth_proj_f iles = (); fas they appear after copying into project. 

foreach $bb_file (@bb_base_f iles) { 

$bb_file - "$$arg{class_directory}/$bb_f ile" 
45 if !&Is_Absolute_Path ($bb_file) ; 

push (@bb_full__paths, $bb_file) ; 

} 

foreach $synth_file (@synth_base_f iles ) { 
50 $synth_file = " $$arg{class_directory} /$synth„f ile" 

if !&Is_Absolute__Path ( $synth_f ile) ; 
push (@synth_full_paths, $synth_file) ; 

push (@synth_proj_f iles , 
55 n $$arg{system_directory}/" . &Get_Base_Fname ( $synth_f ile) ) ; 

} 

if (scalar (@synth_full_paths) + scalar (@bb_full_paths) == 0) { 

print STDERR "WARNING: Default Generator Program (run for $$arg{name} ) \n" 
60 print STDERR " No design-files found. Probably not good.\n"; 

} 



# Copy the files: 



foreach $srcfile ( (@bb_full_jpaths, @synth_full_paths) ) { 
&Perlcopy ($srcfile, 11 $$arg{system_di rectory} / 11 ) ; 

> 



5 

$$gen_args {top__module_name} = $class_name 
if $$gen_args { top_module_name} eq " 11 ; 

################ 
10 # Build the renaming wrapper 

# 

my $wrapper_name = &get_data ( $db_Module) ; 

my $wrapper_f ile = 11 $$arg{ system_directory} / $wrapper_name . v" ; 
my $instance_name = n the_$$gen_args {top_module_name} " ; 

15 

# Make Vpp port -lists for both the wrapper and the wrappee 

# (they happen to have exactly the same ports) . 
# 

&List_JPorts_From_PTF ($db_Module) ; 
20 my $port_descriptions = ScDescribe„Ports_For ( $wrapper_name) ; 

&List_JPorts_For { $$gen„args { top_module__name} , $port_descriptions ) ; 

my $port_defs = &Def ine_Ports_For ( $wrapper__name , 1) ; 
my $port_decs = &Declare_Ports„For ( $wrapper_name , 1) ; 

25 

# A bunch of here-strings containing chunks of the wrapper-file*. 
# 

my $ t op__c ommen t = < < EOMC ; 
// 

30 // Renaming wrapper 

// built by 1 default_generator_program.pl 1 . 
// Wraps 'simple 1 component class $class__name, 
// implemented by the top-level module 
/ / $ $gen_args { t op_module_name } . 

35 

EOMC 

my $black__box_declaration=«EOMl ; 
// synopsys trans la te_off 
40 % ifdef LEONARDOS PECTRUM 
// synopsys translate_on 

// Black-box declaration for simple module $$gen__args { top_module_name} 
module $$gen_args { top_module__name} ( 
$port_decs 
45 )/* synthesis syn_black__box */; 
$port_def s 
endmodule 

// synopsys translate_of f 
v endif 

50 // synopsys translate__on 
E0M1 

my $wrapper_declaration=«E0M2 ; 

55 module $wrapper_name ( 
$port_decs 

) ; 

$port__def s 
E0M2 

60 

open {ALTERA_FILEHANDLE, "> $wrapper_f ile" ) or die 

"Default_Generator : couldn't open wrapper file $wrapper_f ile : $ ! " ; 
my $old„out = select { ALTERA_F ILEHAHDLE ) ; 



print ALTERA_F ILEHANDLE $GLOBAL„COPYRIGHT_NOTICE ; 
print ALTERA_FILEHAHDLE $top__comment ; 

print ALTERA_FILEHANDLE $black_box_declaration if ( $$gen_args {black_box} ) ; 
5 print ALTERZ^_FILEHANDLE $wrapper_declaration; 

print ALTERA_FILEHANDLE fclnstantiate^And^Connect^Statement 
{ $ $ gen_args { top__module_name } , $ ins tance_name ) ; 

10 print ALTERA_F ILEHANDLE " // exemplar attribute $instance_name NOOPT TRUE\n" 

if ($$gen_args{black_box) ) ; 
print ALTERA_FILEHANDIiE "endmoduleXn 11 ; 

close (ALTERA_FILEHANDLE) ; 
15 select ($old„out) ; 

push (@synth_proj_f iles, $wrapper__f ile) ; 

# Add to synthesis HDL-file list: 
20 &Add_Synthesis_Files_To_PTF ( $db__Module, @synth_pro j„f iles) ; 

&write_ptf_f ile ( $db_PTF_File) or die 

"Couldn't write PTF File when generating $$arg{name} " ; 

} 

25 

################################################################ 
################################################################ 
### 

### Execution starts here. 

30 ### 

################################################################ 
################################################################ 

&Default„Generator (@ARGV) ; 

35 



40 



mk__bs f . pm 



#Copyright (C) 1991-2001 Altera Corporation 

#Any mega function design, and related net list (encrypted or decrypted) , 
# support information, device programming or simulation file, and any other 
#associated documentation or information provided by Altera or a partner 
#under Altera ' s Megafunction Partnership Program may be used only to 
#program PLD devices (but not masked PLD devices) from Altera. Any other 
#use of such megafunction design, net list, support information, device 
#programming or simulation file, or any other related documentation or 
# information is prohibited for any other purpose, including, but not 
#limited to modification, reverse engineering, de-compiling, or use with 
#any other silicon devices, unless such use is explicitly licensed under 
#a separate agreement with Altera or a megafunction partner. Title to 
#the intellectual property, including patents, copyrights, trademarks, 
#trade secrets, or maskworks, embodied in any such megafunction design, 
#net list, support information, device programming or simulation file, or 
#any other related documentation or information provided by Altera or a 
#megaf unction partner, remains with Altera, the megafunction partner, or 
#their respective licensors. Wo other licenses, including any licenses 
tneeded under any third party's intellectual property, are provided herein. 
#Copying or modifying any file, or portion thereof, to which this notice 
#is attached violates this copyright. 

# Constants for computing dimensions of things . 

# distance between inner and outer rectangles, x and y 
my $outerEdgeMargin = 16; 

# Margin between top or bottom signal and inner rectangle, 
my $innerEdgeMargin = 16; 

# x distance between longest left and longest right signal, 
my $def aultFontSize = 8; 

my $titleFontSize = 10; 

my $ quantum = $def aultFontSize; 

my $midMargin = 4 * $ quantum; 

# Vertical space occupied by a signal . 
my $signalVerticalSize = 16; 

my SdefaultFont = "Arial" ; 

# Inter-module separator. When the symbol is rendered, the magic 

# string " []" (unlikely to be a signal name) will become a dashed line, 
my $secretDashedLineMarker = "[]"; 

my $globalPrintString; 

sub myErr or Print 
{ 

# print STDERR @_; 
warn @_; 

} 

sub myPrint 
{ 

# print 

$globalPrintString .= join 

} 

sub charWidth 
{ 

return charDim( "width" , @_) ; 



} 



sub charDimArial 
{ 

my ($axis, $char, $size) = 

if ($size 1= 8 $size != 10) 
{ 

myErrorPrint "Unsupported font size $size r using $def aultFontSize . \n" 
$size = $def aultFontSize; 

} 

# Size data was taken from Quartus, at zoom level 144%. 
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1 1 ' 


=> 112/ 40 . U , 


' u ' 


=> zz4/ 40 . 0 , 


i v i 


=> ±84 / <LU . U , 


'W T 


=> 304/40.0, 


'x r 


=> 192/40.0, 


ty« 


=> 192/40.0, 


'z' 


=> 192/40.0, 


•A' 


304/40.0, 


1 B 1 


=> 304/40.0, 


'C 


=> 336/40.0, 


■D' 


=> 336/40.0, 


• E ' 


=> 304/40.0, 


1 F ' 


=> 276/40.0, 


' G ' 


=> 336/40.0, 




=> 304/40.0,, 


•I* 


=> 84/40.0, 


1 J 1 


=> 224/40.0, 


1 K' 


=> 304/40.0, 


1 L 1 


=:> 248/40.0, 


1 M ' 


=> 360/40.0, 


'KM 


=> 304/40.0, 



'O' => 336/40.0, 

'P' => 304/40.0, 

'Q 1 => 336/40.0, 

1 R' => 304/40.0, 

«S l => 304/40.0, 

'T' => 248/40.0, 

*U' => 304/40.0, 

'V => 304/40.0, 

'W => 416/40.0, 



'X* 


=> 


304/40. 


.0, 


. y , 


=> 


248/40 , 




'Z f 


= > 


248/40. 


.0, 


' 0 1 


=> 


248/40 


.0, 


'1' 


=> 


248/40 


.0, 


f 2* 


=> 


248/40 


.0, 


'3 r 


=> 


248/40 


.0, 


.4. 


=> 


248/40 


.0, 


•5' 


= > 


248/40 


.0, 


' 6 1 


-> 


248/40 




'7 ' 


=> 


248/40 


.0, 


• 8 ' 


=> 


248/40 


.0, 


.9. 


=> 


248/40 


.0, 


1 t 


=> 


248/40 


.0, 


1 1 


=> 


248/40 


.0, 


• f 


=> 


112/40 


.0, 


•] ■ 


=> 


112/40 


.0, 


1 1 


=> 


112/40 


.0, 



) ; 

return ($size / 8) * $size8ToDim{ $char} if (exists { $size8ToDim{ $char} ) ) 

myErrorPrint "Unsupported character' Font: Arial; char: ' $char'; 
$size\n" ; 

return 248/40.0; 

} 

sub charDim 
{ 

my ($axis, $char, $font, $size) = @_; 
my %sizeToDimCourierNew = { 

8 => 6.7, 

9 => 7.06, 

10 => 8.11, 

11 => 9.09, 

12 => 10.2, 
14 => 11.1, 
16 => 13.3, 
18 => 14.3, 

) ; 

# For now, I assume Courier New. 

if ($font eq "Arial") 
{ 

return charDimArial ( $axis , $char, $size) 

} 

if ($font ne $def aultFont) 
{ 

myErrorPrint "Unsupported font ' $font', using $def aultFont . \n" ; 
$font = $ default Font; 

} 

if ( ! exists ( $sizeToDimCourierNew{$size} ) ) 
{ 

myErrorPrint "Unsupported font size $size, using $def aultFontSize , \n 
$size = $def aultFontSize; 

} 

if ($axis eq "width") 
{ 

return $sizeToDimCourierNew{ $size} ; 



} 

if ($axis eq "height") 
{ 

5 return $sizeToDimCourierNew{ $size} ; 

} 

myErrorPrint "Unsupported axis ' $axis ' \n" ; 

10 return $sizeToDimCourierNew{$def aultFontSize} 

} 

sub stringWidth 
{ 

15 my ($string, $font, $size) = 

my $i; 

my $len = 0; 

for $i (0 .. length ($string) - 1) 
20 { 

$len += charWidth(substr ($ string, $i, 1), $font, $size) ; 

} 

return $len; 

25 } 

sub getMaxSignalNameWidth 
{ 

my ©signals = 
30 my $ signal; 

my $max = -1 ; 

fo reach $ signal (©signals) 
{ 

35 if (Ssignal =- / 

(\S+) # signal name, perhaps with a bus size element. 

\s*\|\s* # pipe, maybe with whitespace 

\d+ # Bus width 

\s*\(\s* # pipe, maybe with whitespace 

40 \w+ # signal type 

/sx) 

{ 

my SsignalName = $1; 

my $len = stringWidth { $signalName, $def aultFont , $def aultFontSize) 
45 if ($max < $len) 

{ 

$max = $len; 

} 

} 

50 } 

return $max; 

} 

55 sub max 
{ 

my ($a, $b) = @_; 

return $a if ($a > $b) ; 
60 return $b; 

} 

sub roundUp 



{ 

my ($num / $ quantum) = @_; 

my $diff = $num / $ quantum - int($num / $ quantum) ; 

5 

if (0 ScLiff) 
{ 

return $num; 

} 

10 

$num - (int($num / $quantum) +1) * $quantum; 
return $num; 

} 

15 sub translate 
{ 

my ($tX, $tY, $xMin, $yMin, $xMax, $yMax) = @_; 

return ($xMin + $tX, $yMin + $tY, $xMax + $tX, $yMax + $tY) ; 

20 } 

sub computeD intensions 
{ 

my ($ title, $instanceName, $lef tSignalRef , $ rights ignalRef) = @_; 

25 

- my @leftSignals = @$lef tSignalRef ; 
my @rightSignals = @$rightSignalRef ; 

# 

30 # Collect some numbers . 

# 

# A symbol is some rectangles/ lines and strings. Spatial values of and 
between 

35 # the rectangles and lines are determined by the number and length of the 

strings . 

# Strings: 

# title 

# ins t anc eName 
40 # le£tSignals[] 

# rightSignals [ 3 
signals 

# I have two concentric rectangles . 

45 # The width depends on the lengths of the signal names; the height depends on 

# the number of signals. 

# The inner rectangle's width is determined by the largest left and right 

# signal names. But, if the title or the instance name are absurdly large, 
50 # they can override. 

my $ signal; 

my $leftMaxLen = getMaxSignalNameWidth (@1 eft Signals) ; 
my $rightMaxLen = getMaxSignalNameWidth ( ©rights ignals) ; 

55 my $innerXMax = $leftMaxLen + $rightMaxLen + $midMargin; 

$innerXMax = max ( $ innerXMax , $quantum + stringWidth($ title, $def aultFont , 
10) ) ; 

$innerXMax = max ($ innerXMax, $quantum + stringWidth ( $instanceName , 
$def aultFont, 10) ) ; 

60 

# The inner rectangle 1 s height depends on the number of signals . 

my $innerYMax = (0 + @lef tSignals) * $signalVerticalSize + $ inner EdgeMar gin; 



associated value 
titleLen 
ins tanceNameLen 
lef tMaxLen 
rightMaxLen 



comment 

title, upper left 
1 inst ' , lower left 
all input signals 

all output /inout 



$innerXMax = roundup ($ innerXMax , $ quantum) ; 
$innerYMax = roundup ($innerYMax, $ quantum) ; 



my ©innerRect = (0, 0, $ innerXMax, $innerYMax) ; 
5 ©innerRect = translate ( $iimerEdgeMargin, $innerEdgeMargin, @innerRect) ; 

my $outerXMax = $ innerXMax + 2 * $outerEdgeMargin; 
my $outerYMax = $innerYMax + 2 * $outerEdgeMargin; 

10 return (@innerRect, 0, 0, $outerXMax, $outerYMax) ,* 

} 

sub rect2String 
{ 

15 my (3-rect = @_; 

return sprintf{"%d %d %d %d" , Greet) ; 

} 

20 

sub emit Port 
{ 

# A port spec in a bsf file looks like this: 

# (port 

25 object declaration 

# (pt 0 32) - the 
port's attachment point 

# (input) - the 
port type 

30 # (text "elk" (rect 0 0 12 13) (font "Courier New" (font__size 8))) - the 

text for the port (this one's invisible) 

# (text "elk" (rect 24 25 36 36) (font "Courier New" (font_size 8))) - the 
text for the port again, but this one shows up 

# (line (pt 0 32) (pt 16 32 ) (line_width 1)) - a 
35 line between inner and outer rectangles 

# ) 

my ($x, $y, $side, $signalSpec) = @_; 



40 my ($signalName, $busWidth, $signalType) 

roy ($ptlString, $pt2 String) ; 



45 



50 



55 



if ($side eq "left") 
$ptlString = "$x $y" ; 

$pt2String = sprintf("%d %d" , $x + SouterEdgeMargin, $y) ; 
lse 

$ptlString = sprintf("%d %d" , $x - $outerEdgeMargin, $y) ; 
Spt2String = "$x $y" ; 



f (SsignalSpec and $signalSpec ne $secretDashedLineMarker) 



$ signal Spec =- / 

(\S+) # signal name, perhaps with a bus size element. 

\s*\|\s* # pipe, maybe with whitespace 

(\d+) # bus width 

60 \s*\|\s* # pipe, maybe with whitespace 
(input | inout | output) # signal type 
$/sx; 



$ s ignalName = $ 1 ; 
$busWidth = $2; 
$signalType = $3; 



# BSF files call 1 inout 1 signals 'bidir' . 

if ($signal r Type eq "inout") 

{ 

$signalType = "bidir"; 

} 

my $lineWidth = ($busWidth == 1) ? 1 : 3; 

my ©recti = (0,, 0, stringWidth ( $s ignalName , $def aultFont , 
$def aultFontSize) , $signalVerticalSize) ; 
my $rectlString = rect2 String { ©recti) ; 

my ©rect2; 

if ($side eq "left 11 ) 
{ 

@rect2 = translate ($x + $outerEdgeMargin + 0.25 * $innerEdgeMargin, $y - 
7, ©recti) ; 
> 

else 
{ 

©rect2 = 

translate ($x - ($outerEdgeMargin + 0.65 * $ inner EdgeMargin ) 
stringWidth ( $signalName, $def aultFont , $def aultFontSize) , 
$y - 7, ©recti) ; 

} 

my $rect2String = rect2 String (©rect2 ) ; 

# I've added a single space after signal names, to try to discourage 

# Quartus from truncating the last bits. I hope this doesn't break 
anything . 

myPrint «E0T; 
(port 

(pt $x $y) 
($signalType) 

(text "$signalName " (rect $rectlString) (font 11 $def aultFont " (font^size 
$def aultFontSize) ) ) 

(text " $signalName " (rect $rect2String) (font "$ default Font ,r (font_size 
$def aultFontSize) ) ) 

(line (pt $ptlString) (pt $pt2String) (line_width $lineWidth) ) 
) 

EOT 

} 

} 

sub drawBSF 
{ 

my {$ title, $instanceName, 

$lef tSignalRef , $ right SignalRef , 

$innerXMin, $innerYMin, $innerXMax, $innerYMax, 

$outerXMin, $outerYMin, $outerXMax, $outerYMax) = ©_; 

my ©leftSignals = ©$lef tSignalRef ; 
my ©rightSignals = @$rightSignalRef ; 

my ©innerRect = ($innerXMin, $innerYMin, $innerXMax, $innerYMax) ; 
my ©outerRect = ($outerXMin, $outerYMin, $outerXMax, $outerYMax) ; 

my ©titleRect = (0, 0, $quantum + stringWidth {$ title, $def aultFont , 
$titleFontSize) , 



$signalVerticalSize) ; 
@titleRect = translate ($ quantum / 2, 0, @titleRect) ; 
my $titleRectString = rect2String (@titleRect) ; 

my (iinstRect = {0, 0, $quantum + stringWidth ( $instanceName , $def aultFont , 
$defaultFontSize) , 

$signalVerticalSize) ; 

QinstRect = translate ($ quantum / 2, $outerYMax - 2 * $quantum, IinstRect); 

my $instanceRectString = rect2 String (SinstRect ) ; 

my $innerRectString = rect2String (@innerRect) ; 
my $outerRect String = rect2String (@outerRect ) ; 

my Print «EOT; 
(header "symbol" (version "1.1")) 
(symbol 

{rect $outerRectString) 

(text "$title" (rect StitleRectString) (font " $def aultFont " (font_size 
$titleFontSize) ) ) 

(text " $instanceIS^ame ,, {rect $instanceRectString) (font 11 $ default Font ") ) 
EOT 

# Emit all the ports, 
my $signalSpec; 
my $i; 

roy $y = $outerEdgeMargin + $ inner EdgeMar gin; 

my $x = 0; 

my @dashedLineYs ; 

foreach $signalSpec (@lef tSignals ) 
{ 

emitPort($x, $y, "left", $signalSpec) ; 

# Add this y value to the list of dashed lines to be drawn later. 

if ($signalSpec eq $secretDashedLineMarker) 

{ 

push SdashedLineYs , $y; 

} 

$y += $signalVerticalSize; 

} 

$y = $outerEdgeMargin + $ inner EdgeMar gin; 
$x = $outerRect [2] ; 

foreach SsignalSpec (@rightSignals) 
{ 

emitPort($x, $y, "right", $ signal Spec ) ; 
$y += $signalVerticalSize; 

} 

myPrint «E0T; 
(drawing 
EOT 

foreach $y (@dashedLineYs) 
{ 

my $endX = $ inner Rect [2] - 1; 



myPrint qq{ (line (pt $innerRect [ 0 ] $y) (pt $endX $y) (color 0 0 
0) (dotted) (line___width 1) } \n} ; 
} 

5 myPrint «EOT; 

(rectangle (rect $ inner Rect String) (line_width 1) ) ) 
) 

EOT 
} 

10 

sub Genera te_BSF 
{ 

my $title = shift ; 

my $instanceName = "inst"; 

15 

# Clear the global output string. 
$globalPrintString = " " ; 

# Split signals into left and right, and sort within modules. 
20 my (©input Strings) = ©_; 

my ©listOfModules; 
my $moduleSignalList; 
my ©signals; 

25 for $moduleSignalList ( ©inputs trings ) 

{ 

# Eliminate loathesome white space. 
SmoduleSignalList =- s/\s+//g; 

30 ©signals = split /,/, $moduleSignalList ; 

while ($signals [$#signals] i~ /\S/) 
{ 

pop (©signals) ; 

} 

35 

push ©listOfModules, [ ©signals ]; 

} 

# Separate signals into inputs, outputs/ inouts . 

40 # txd_f rom„the_uarto | 1 | output , rxd_to_the_uar to | 1 | input 

# 

# Each string lists all the ports of a Nios submodule, comma -de limited. 
# 

# Separate the ports into (input) and (output, inout) and return as a list of 
45 lists. 

# Use delimiters to make things line up nice, 
my ©lef tSignals ; 

my ©right Signals; 

50 # elk j 1 | input 

# txd_f rom__the__uarto | 1 | output 

# shared_data__bus_l__data | 16 | inout 

my $moduleRef; 
55 my $i; 

for $i (0 $#listOf Modules) 
{ 

my $signalSpec; 
my ©tmpLef t = ( ) ; 
60 my ©tmpRight = ( ) ; 

my $moduleSignal!iist = $1 is tOf Modules [ $i] ; 

foreach SsignalSpec (@$moduleSignalList ) 

{ 



if ($signalSpec =~ / (\S+) \s*\ | \s* (\d+) \s*\ ) \s* (\S+) /s) 
{ 

my $signalName ~ $1; 

if ($signalName =~ / \w\ [ \ 1 \ . J / ) 

{ 

goldfish( "unexpected character (s) in signal name * $signalName ' " ) ; 
next ; 

} 

my $busWidth = $2; 

if ($busWidth =~ /[ A \d]/) 
{ 

goldfish ( "unexpected charcter(s) in bus width 1 $busWidth 1 " ) ; 
next ; 

} 

if ($busWidth < 1} 
{ 

goldfish ( "bus width 1 $busWidth' is bogus . " ) ; 
next ; 

} 

my $ signal Type = $3; 

# Fix up bus signals with their size ( [n-1 . . 0]) here. 

if ($busWidth > 1) 

{ 

if ($signalName i~ AS+\ [ <\d+) \ . \ . 0\] /) 
{ 

$signalName sprintf ( " [%d. . 0] " , $busWidth - 1) ; 

} 

} 

if ($signalName =- /\S+\ [ ( \d+) \ . \ . 0\] / ) 
{ 

if ($1 != $busWidth - 1) 
{ 

goldfish( "signal SsignalName doesn't match its own buswidth 
($busWidth) " } ; 

} 

} 

my $newSignalSpec = " $signalName | $busWidth | $signalType" ; 

if (SsignalType eq "input") 

{ 

push StmpLeft, $newSignalSpec; 

} 

elsif ($signalType eq "inout" or $signalType eq "output") 
{ 

push @tmpRight, $newSignalSpec ; 

} 

else 
{ 

goldfish ( "Unexpected signal type 'SsignalType' in signal spec 
' $signalSpec 1 " ) ; 
} 

} 

} 

# Sort signals within a module. This provides a consistent, though 

# not necessarily optimal ordering. 
@tmpLeft = sort (@tmplieft) ; 



@tmpRight = sort (@tmpRight ) ; 



# Pad out the shorter of the two lists . . . 
while ((0 + @tmpLeft) > (0 + @tmpRight) ) 

5 { 

push (<2tmpRight, " " ) ; 

} 

while ({0 + ©tmpLeft) < (0 + ©tmpRight) ) 

10 { 

push (@tmpLeft, " " ) ; 

} 

# If this wasn't the last module, put an inter-module spacer. 
15 if ($i < $#listOfModules) 

{ 

push {©tmpRight, $secretDashedLiineMarker) ; 
push (@tmpLeft, $secretDashedLineMarker) ; 

} 



20 



30 



35 



45 



push @lef tSignals , ©tmpLeft; 
push @rightSignals, @tmpRight; 



} 



25 # We should have ended up with left and right signal lists of the same size, 

if (@lef tSignals != ©rightSignals) 
{ 

myErrorPrint "Say, left and right don't have the same size.\n"; 

} 



# Do some arithmetic. 

my ($innerXMin, $innerYMin, $innerXMax, $innerYMax, $outerXMin, $outerYMin, 
$outerXMax, $outerYMax) = 

computeDimensions ($ title, $instanceName, \@lef tSignals , \@rightSignals) ; 



# Spew the rendering commands . 
drawBSF ($ title, $instanceName, 
\@lef tSignals, \ ©right Signals , 

$innerXMin, $innerYMin, $innerXMax, $innerYMax, 
40 $outerXMin, $outerYMin, $outerXMax ( $outerYMax) ; 



# Done 1 

return $globalPrint String; 



} 



qq{ 

1 When I am grown to man's estate 

2 I shall be very proud and great, 

3 And tell the other girls and boys 
50 4 Not to meddle with my toys. 

}; 



mk_cus tom_sdk . pm 

# use strict; # please turn this off before checking in. 

5 

use ptf „parse; 

my $gDebug = 0; 
# 

10 #2 000 August 

# dvb \ Altera Santa Cruz 

# 

# name of the directory within each wizard's dir 
15 # with doc, inc, src, and lib files 

# 

my $CUSTOM_SDK_PIECES_JDIR = " custom_sdk_pieces " ; 
20 my $gUseOldSillyJNames = 0; # if 1, convert to old juartwizard style names. 



# 

# bail (string) 
25 # 

sub bail 
{ 

my $x = shift; 

30 warn ( " ERROR : $x " } ; 

exit (-1); 
} 



35 # dprint (list) 
# 

# prints if debugging is on 
sub dprint 
{ 

40 if($gDebug) 
{ 

print "(debug) " ; 
print 

print " \n" ; 
45 } 
} 

sub dprint f 
{ 

50 if($gDebug) 
{ 

print "(debug) " ; 

print f ; 

} 

55 } 



sub date„time 
{ 

60 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdet) 

localtime ( time) ; 
$mon++ ; 

$year += 19 00; 



my $d = sprintf ( rt %04d. %02d. %02d" , $year, $mon, $mday) ; 
my $t = sprintf ( 1r %02d:%02d:%02d , \$hour,$min,$sec) ; 



return " $d $t M ; 
} 



sub basename 
10 { 



45 



my $fileName - shift; 
my $baseName; 



15 

if($fileName =- /\/ ( r \/ J *) $/) 
{ 

$baseName = $1; 
} 

20 else 

{ 

$baseName = SfileName; 
} 

25 return SbaseName; 

} 

# 

30 # print_command (string) 
# 

# prints time, and then string 
sub print_command 

35 { 

my $ command = shift; 
my $dt = date_time ( ) ; 

print ,f # $dt (*) $command\n" ; 
40 } 

sub print_warning 
{ 

my $wl = shift ; 

print "# mk_custom_sdk: WARNING"; 

print 11 $wl\n" ; 

} 

50 # 

# table_begin( ) returns a reference to a table to be constructed 

# table_addrow ( ) takes the tableRef, and adds the rest of the 

# args as elements to a single row 

# table_sprint ( ) returns the table in left- justified columns 
55 # as one big string. 

# 

my $table_ROWBREAK = "##rzw##"; # an unlikely character sequence 

60 sub table_begin 
{ 

my ©table; 



return \@table; 
} 

sub table_addrow 

5 { 

my $tableRef = shift; 

my $eachArg; 

my $line; 

10 while ($eachArg = shift) 

$line .= $table„ROWBREAK if $line; 

$line .= $eachArg; 

} 



15 



push @$tableRef , $line; 
> 



sub table_sprint 

20 ( 

my $tableRef = shift ; 

my $columnSpaces = 1; 

my @ C olumnMaxWidths; 

my $line; 

25 my ©line; 

my $i; 

my $len; 

my $ re suit; 

30 # first pass: find the maximum width for each line 

foreach $line <<a$ tableRef ) 

©line = split (/${table_ROWBREAK}/,$ line) ; 
35 for($i = 0; $i < scalar (©line) ; $i++) 

{ 



$len = length($line[$i] ) ; 

$columnMaxWidths[$i] = $len if $columnMaxWxdths [$x] < $len 



} 

40 ) 

# second pass: spew them out with enough blanks 

foreach $line (@$tableRef) 

45 { 

©line = split (/$ {table_ROWBREAK> /, $line) ; 

for($i =0; $i < scalar (©line) ; $i++) 

{ 

my $lineltem = $line[$i] ; 
50 my Sblanx = $columnMaxWidths[$i] - length ( $lxnel tern) + 1; 

$result .= $lineltem . (" " x $blanx) ; 
} 

$result .= "\n"; 

55 > 

return $result; 



60 # 

# aNumber (hex-or-decimal) 

# 

sub aNumber 



{ 

my $x = shift; 

return 1 if{$x =- /true/i or $x =-/yes/i) ; 

5 

$x = hex($x) if ($x =~ /^0+x/) ; 
$x = $x * 1.00; 

return $x; 
10 } 

# 

# getAPTFNumber (ptfRef , path) 
# 

15 # convenience: extract child, convert to value 
# 

sub getAPTFNumber 
{ 

my $ptfRef = shift; 
20 my $path = shift; 

my $x; 

$x = get_data_by_path($ptfRef , $path) ; 
$x = aNumber ( $x) ; 
25 return $x; 

> 



30 sub usage 
{ 

print «EOP 

EOP 
35 } 

# 

# isModule (moduleRef ) 
# 

40 # Given a ptf , is it an enabled MODULE? 

# return 1 or 0 . 

sub isModule 
{ 

45 my $moduleRef = shift; 

return 0 if (get_name ($moduleRef ) ne "MODULE" ) ; 

return getAPTFNumber ( $moduleRef , " SYSTEM_BUILDER_INFO/Is_Enabled" ) 
} 

50 

# 

# readPTF (sourceFile) 
# 

# read in the PTF, and return a hash reference. 
55 # Uses the module for all the real work. 

# 

# (return only the SYSTEM section) 
# 

60 sub readPTF 
{ 

my $sourceFile = shift; 
my $ptfRef; 



$ptfRef = new_jptf_from — f ile ($sourceFile) ; 



$ptfRef = get_child__by_jpath ( SptfRef , "SYSTEM") ; 
5 bail ( " PTF file broken: no SYSTEM section,") if <$ptfRef; 

return $ptfRef 
} 

10 

sub nb_min 
{ 

my $a ~ shift; 
15 my $b = shift; 

return $a if $a < $b; 
return $b; 
} 



20 



25 



45 



50 



sub nb_max 
{ 



my $a = shift; 
my $b = shift; 

return $a if $a > $b; 

return $b; 

} 

30 # 

# getMasterDataWidth(ptfRef ) 
# 

# Riffle through the ptf and 

# find the moduleRef to first one with 
35 # Is„Bus_Master= tt l" . Return its 

# data width. 

sub getMasterDataWidth 
{ 

40 my SptfRef = shift; 

my $moduleRef; 
my $childCount; 
my $i; 



$childCount = get_child_count ($ptf Ref ) ; 
for{$i =0; $i < $childCount; $i++) 
{ 

$moduleRef = get_child($ptfRef , $i) ; 
# 

I Is it a MODULE? 
# 

55 next if I isModule ($moduleRef ) ; 

if (getAPTFNumber ( $moduleRef , " SYSTEM_BUILDER„INFO/Is„Bus_Master " 

0) 

{ 

60 return 

getAPTFNumber (SmoduleRef, "SYSTEM_BUILDER_INFO/Data_Width M ) ; 
} 

} 



print_warning ( "No bus master found. Pretending 32 bit wide bus."}; 

return 32; 

} 



# 

# getModuleKind(moduleRef ) 
# 

# Return the module kind, like "uart" 

# or "ram" . 

# 2001JanlO: this comes from the MODULE/class 

# assignment, which presently reads juartwizard, &c. 

# This will be obsolete soon 

# 2001Jan31: We get the full name now, "altera„avalon__uart " , 

# and elsewhere get the short struct name based on 

# the name of the blah_struct .h file. 

# 2001Feb06: we have a global flag to get old names, for in-tree building 



sub getModuleKind 
{ 

my $moduleRef - shift; 



my $pKind; 

SpKind = get_data_by_jpath($moduleRef, "class" ) ; 



if (SgUseOldSillyJNames) 
{ 

my %xlat = 
( 

altera_avalon__uart => " juartwizard" , 

altera_avalon„spi => " jspiwizard" , 

altera_avalon_pio => " jpiowizard" , 

altera_avalon_timer => " j timerwizard" , 

altera__avalon_j_2x => " j i2xwizard" , 

al t era_avalon_onchip_memory => " j ramwi z ard " , 

altera_avalon_user_def ined_interf ace => " jusersocketwizard" 

altera_nios => " jnioswizard" , 

altera_avalon_dev_board„f lash => " j jam291v800bwizard" , 
al tera_avalon__ dev_board__f lash_smal 1 
" j jam291v800b_smallwizard* f , 

altera_avalon_sraml6 => " j2xidt71v016s_smallwizard" , 
altera_avalon_sram32 => " j2xidt71v016swizard" , 
altera__avalon_nios => "jnioswizard", 
altera__avalon_nios => "jnioswizard", 
alt era_aval on_ni os => " jnioswiz ard " 
) ; 

$pKind = $xlat{$pKind}; 
} 

return $pKind; 
> 



# readAddressMap (ptf HashRef , germs AddressOut ) 
# 

# Read in the source file, and return 

# an associative array indexed by 

# decimal base address, where each entry 

# is a reference to an array, as follows: 

# [0] - peripheralKind 

# [1] - peripheralName 

# [2] - reference to hash of WIZARD_SCRIPT_ARGUMENTS 

# [3] - IRQ number if any 

# [4] - Lowest address 



# [5] - just past Highest Address 

# [6] - misc letter flags. 1 E ' means show the end address. 'D' decimal. 
# 

sub readAddressMap 
{ 

my $ptfRef = shift ; 

my SgermsAddressOut = shift; 

my $key; 
my $pAddress; 
my $pIRQ; 
my $pEnd; 
my SpKind; 
my @peripheralList ; 
my SaPeripheralRef ; 

my sprint f Uart; 
my QgdbUart; 
my @mainFlash; 
my $miscSysRef; 

my $masterDataWidth; 

# 

# Establish address n na_null" , which' 11 be a void * 
# 

$aPeripheralRef = [ 11 " , 

"na_null" , 
» it 

it ii 

0] \ 

push{@peripheralList , $aPeripheralRef ) ; 



$miscSysRef = getSystemSet tings ($ptfRef ) ; 

# list the modules. , . 
{ 

my SmoduleRef; 
my $childCount; 
my $i; 

$childCount = get_child_count ( $ptf Ref ) ; 
for($i =0; $i < $childCount; $i++) 
{ 

SmoduleRef = get_child { $ptf Ref , $i) ; 
# 

# Is it a MODULE? 
# 

if (isModule (SmoduleRef ) ) 
{ 

my SpName ; 

my SlegalName; 

SpName ~ get_data ( SmoduleRef ) ; 
$ 1 ega lName = $ pName ; 
SlegalName =~ tr/\-/_/; 

( SpAddress , SpEnd) 
getModuleAddressRange (SptfRef f SmoduleRef) ; 



# addresses for uart used by printf {and monitor) 

# addresses for uart used by gdb 

# addresses for first flash memory found 



# Found the germs? 



if (get_data__by_path { $moduleRef , " WIZARD_SCRIPT_ARGUMENTS/Contents " ) eq 
" germs " ) 

{ 

$$germsAddressOut = $pAddress if 

$germsAddressOut ; 

} 



if (getAPTFNumber ( $moduleRef , " SYSTEM_BUILDER_INFO/Has_IRQ" ) ) 

{ 

$PIRQ 

getAPTFNumber ($moduleRef , " SYSTEM_BUILDER„INFO/IRQ_Number " ) ; 

} 

else 

{ 

$pIRQ = 0; 
} 

$pKind = getModuleKind($moduleRef ) ; 
# 

# Assign this peripheral ref as a 5 -element array 

reference [ ] 

# 

$aPeripheralRef = [$pKind, 

"na_$ {legalName} " , 

get_child_by_^>ath($moduleRef , M WIZARD„SCRIPT„ARGUMENTS" ) , 

$pIRQ, 
SpAddress, 
$pEnd] ; 

# 

# Look for some various "special" peripherals... 

# If it's a UART, see if it qualifies as the printf 

uart 

# 

if($pName eq $$miscSysRef {maincomm_module} ) 
{ 

©printf Uart = @$aPeripheralRef ; 
} 

if($pName eq $$miscSysRef {gdbcomm_module} ) 
{ 

GgdbUart = @$aPeripheralRef ; 
} 

if($pKind =~ /dev_board_f lash/) 
{ 

dprint " found a flash ! " ; 
# 

# We have found a flash, but only by noting that 

# its name contains dev_board„f lash. The only two 

# flash memories in the Hios 1-1 kit certainly 

# have that name. But it would be more general 

# to have a peripheral -property somewhere that 

# said, "Hey, I am a flash, and this is the name 

# of my write routine, and this is the name 

# of my erase routine. Yeah. dvb2001jan 
# 

@mainFlash = @$aPeripheralRef ; 
) 



# Add it to the peripheral list 



push{@peripheralList, SaPeripheralRef ) ; 
) 

} 

} 

if ($printfUart [0] ne " " ) # check by kind... 

{ 

$aPeripheralRef = [ Sprint fUart [0] , 

M nasys_jprintf„uart" , 

SprintfUart [2] , 

SprintfUart [3] , 

Sprint fUart [4] , 

SprintfUart [5] ]; 
push(@peripheralljist , SaPeripheralRef) ; 
> 

if (SgdbUart [0] ne " " ) # check by kind... 

{ 

$aPeripheralRef = [ $gdbUart [ 0] , 

"nasys_gdb__uart " , 

$gdbUart [2] , 

SgdbUart [3] , 

SgdbUart [4] , 

$gdbUart[5] ]; 
push(@peripheralList , SaPeripheralRef } ; 
} 

if ($mainFlash[0] ne " " ) 
{ 

SaPeripheralRef = [$mainFlash[0] , 
"nasys__main_f lash" , 
$mainFlash[2] , 
$mainFlash[3] , 
$mainFlash[4] , 
$mainFlash[5] , 
"E" ]; 

push(@peripheralList , SaPeripheralRef) ; 
} 

{ 
# 

# Decide what range of RAM to use for programs & stack, 

# avoiding the vector table. 
# 

my $vecbase ; 
my $vectop; 

my Sprogrammembase; # Could be ROM or RAM for compiled programs 

my Sprogrammemtop ; 

my $datamembase,- # Must be RAM for stack & variables (to be 

useful) 

my $ da t amemt op ; 

$vecbase = $$miscSysRef {vecbase} ; 

$vectop = $vecbase + 64 * (getMasterDataWidth ($ptfRef ) / 8) ; 

Sprogrammembase = $$miscSysRef {programmembase} ; 
Sprogrammemtop = $$miscSysRef {programmemtop} ; 

Sdatamembase = SSmiscSysRef {datamembase} ; 
$ da t am em top = $$miscSysRef {datamemtop} ; 



# More room above or below the vector table? 

# Do this for both program and data memory; vector table could be 



in either. 



# 

5 if($vecbase - $datamembase > Sdatamemtop - $vectop) 

{ 

$datamemtop = nb_min ( $datamemtop , $vecbase) ; 
} 

else 

10 { 

$datamembase = nb_max{ $datamembase, $vectop) ; 
} 

if ($vecbase - $programmembase > $programmemtop - $vectop) 
15 { 

$programmemtop = nb_min ($programmemtop, $vecbase) ; 
} 

else 

C 

20 $programmembase = nb_max ($programmembase, $vectop) ; 

} 



25 



40 



50 



$aPeripheralRef = [ ' 



"nasys_program__mem" , 

n it 



0, 

$programmembase , 
$programmemtop , 
"E" ]; 

30 push ( @peripheralList , $aPeripheralRef ) ; 

$aPeripheralRef = [ " n , 

"nasys_data„meirr r 

tt I! 

35 o,' 

$da tamembase , 
$datamemtop, 
"E" ]; 

push(@peripheralList, $aPeripheralRef ) ; 



$aPeripheralRef = [ " " , 

,, nasys_stack — top" , 



0, 

45 $datamemtop] ; 

push (@peripheralList r $aPeripheralRef ) ; 



$aPeripheralRef = [ " " , 

"nasys_vector_table" , 



0, 

$vecbase, 
$vectop, 
" E " ] ; 

55 push(&peripheralList , SaPeripheralRef ) ; 

$aPeripheralRef = [ " " , 

n nasys_jreset_ address" , 
it ii 

60 o/ 

aNumber ($$miscSysRef {reset_a} ) ] ; 
push (@peripheralList , $aPeripheralRef ) ; 



SaPeripheralRef = [ " " , 

"nasys__clock_f req" , 

ii rr 

0, ' 

aNumber ( $$miscSysRef {clock_freq} ) , 
ii ii 

" D " ] ; 

push (@peripheralList , $aPeripheralRef ) ; 

$aPeripheralRef = [ " " , 

"nasys_clock_f req_1000 " , 

0, 

int {aNumber ( $$miscSysRef { clocks freq} ) / 1000), 
ii it 

"D"]; 

push ( ©peripheralList , $aPer ipheralRef ) ; 
} 

return ©peripheralList ; 
} 



# 

# mkSDKTree (directory for new tree) 
# 

# Build the empty directory structure 

# Any files already there, just leave. 

sub rmdir_if_possible # return 0 for success, > 0 for missed files 
{ 

my $dir = shift; 
my @f ileList ; 
my $file; 

my $misses =0; # how many we failed to kill 



if(-e $dir) 
{ 

opendir {DIR, $dir) or $misses++; 
GfileList = readdir (DIR) ; 
closedir (DIR) ; 

foreach $file (@fileList) 
{ 

next if ($file eq " . " or $file eq ".."); 

if( -d "${dir}/${file}") 
{ 

$misses += rmdir_if_possible ( ,f $ {dir} /${f ile} " ) 
} 

else 

{ 

unlink ("${dir}/$ {file}") or $misses++; 
> 

} 

rmdir($dir) or $misses++; 
} 

return $misses; 
} 

sub mkdir„if_needed 



{ 

my $dir = shift; 
my $mode = shift; 

if CI -e $dir) 
{ 

mkdir ($dir, $mode) or return; 
} 

return "ok" ; 
} 

sub mkSDKTree 
{ 

my $dir = shift; 
my $misses; 

# 

# The "src" directory belongs to the end user, 

# he or she may put any code they like there, 

# and expect it to persist across builds. 
# 

# However, the lib, inc, and doc, are 

# ours, all ours, and we can't have deleted 

# old peripherals malingering in there, 

# so we delete them. 
# 

mkdir_if_needed($dir, 511) or return; 
$misses = rmdir„if possible ( " $ {dir} /lib" ) ; 

print_warning "Could not delete lib; $misses left" if ($misses) 
$misses = rmdir_if_possible { " $ {dir} /inc" ) ; 

printjwarning "Could not delete inc; $misses left" if (Smisses) 
$misses = rmdir_if possible ("$ {dir} /doc" ) ; 

print_warning "Could not delete doc; $misses left" if ($misses) 

mkdir„if_needed($dir . " /inc" , 511) or return; 

mkdir_if_needed($dir. " /lib" , 511) or return; 

mkdir__if_needed($dir . " /doc" , 511) or return; 

mkdir_if_needed($dir . " /src" r 511) or return; 

return "ok" ; 
} 



# 

# f indStructFile ( component s_directories , dirName, fileTail) 
# 

# Given a directory path, return the name of a file, 

# if any, which ends with fileTail 
# 

# 

sub f indStructFile 
{ 

my $components_directories = shift ; 
my $dirName = shift; 
my $fileTail = shift; 

my @components_directories ; 
my $components_directory; 



my @dirList; 

my $fileName; 

my $shortKindName; 



5 @components_directories = split (/ \+/ , $components__directories ) ; 

foreach $components_di rectory (@components_di rectories) 
{ 

dprint " f indStructFile : searching $components_directory" ; 
10 if (opendir DIR, " $ { component s_directory} /$ {dirName} " ) 

{ 

S-dirList ~ readdir DIR; 
closedir DIR; 



15 foreach $fileName (QdirList) 

{ 

dprint " f indStructFile : searching $ component s„directory 2"; 

if($fileName / A (.*)_$ {fileTail} $/ ) 
{ 

20 $ short KindName = $1; 

dprint " f indStructFile : found $shortKindName structure"; 

return 

{ " $components_directory/$dirName/$f ileName" , $shortKindName) ; 

} 

25 } 

} 

> 

return ; 
} 

30 

# 

# 

generateAddressMap (components_directories , f ileName, @$peripheralListRef , ptfName, 
ptfRef ) 
35 # 



sub generateAddressMap 
{ 

my $components_ directories = shift; 
40 my $fileName = shift; 

my $peripheralListRef = shift ; 

my $ptfName = shift; 

my $ptfRef - shift; 

my $pAddress; 
45 my $pEnd; 

my $pIRQ; 

my $pName ; 

my $pKind; 

my $pFlags ; 
50 my $dt = date_time(); 

my $i; 

my $nios_system_name = get__data ( $ptfRef ) ; 
my $monitor__string; 

55 # 

# Painfully retrieve just the monitor id string 

# 

{ 

my $miscSysRef; 

60 

$miscSysRef = getSystemSet tings ( $ptf Ref ) ; 
$monitor„string = $$miscSysRef {germs_jtionitor_id} ; 
$monitor_string = $nios_system_name if ! $monitor_string; 



} 



my $baseName = basename ($f ileName) ; 

open HFILE, " >$f ileName .h n or return? 
open SFILE, ">$f ileName . s" or return; 

print HFILE «EOP; 

/* 

* File: $baseName.h 

* This file is a machine generated address map 

* for a Nios hardware design. 

* $ptfName 
* 

* Generated: $dt 
*/ 

#ifndef _${baseName}_ 
#define _${baseMame}_ 

#ifdef cplusplus 

extern "C" { 
#endif 

EOP 

print SFILE «EOP; 
; File: $bas eName . s 

; This file is a machine generated address map 
; for a Nios hardware design. 
; $ptfName 

; Generated: $dt 



; Simple macro to equate & globalize at once 
.macro GEQU sym,val 
.global Wsym 
♦ equ Wsym, Wval 
. endm 



EOP 

my $hTableRef = table_Jbegin ( } ; 
my $sTableRef = tablejbegin ( ) ; 

for($i = 0; $i <= $#$peripheralListRef ; $i++) 
{ 

my $p = $$peripheralListRef [$i] ; 

my $cType; 

my $isRAMIjike; 

my $structFile; 

my $hasStructFile; 

my $shortPKind; 

my SpAddressString; 



$pKind « $$p[0] 
$pName = $$p[l] 
$pIRQ = $$p[3] 



10 



$pAddress = $$p[*l ; 
$pEnd = $$P[5] ; 

$pFlags = $$p[6] ; 

($s tructFile,$shortPKind) = f indStructFile ( 
$components_directories, 
- $ {pKilld} / $ {CUSTOM_SDK_PIECES_DIR} , 
" struct. h.") ; 

# arbitrary: -RAM-like" spans are > some minimum 
SisRAMLike = ($pEnd-$p Address > 4095) , 

.-1 A^nT -«r, / "F / • 



> lS^d/JU-iJ-iV^: - \fjr 

SisRAMLike |= $pFlags =~ /E/ ; ^ 
$hasStructFile = (-e $structFxle) ; 



k if($pFlags =- /D/) 

{ 

$cType = "long" ; 

} * t^t,* -~ / / or $isRAMLike or 

elsif($pKind eq " » or SpKind - / 

20 l$hasStructFile) 

$cType = "void *" ; 
} 

else 

p 25 $cType = »np_${shortPKind} 

£ } 



30 



$ P AddressString = ($ P Flags =~ /D/) - 
sprintf ( " %d- , $pAddress) 
• sprintf ("0x%08x" r $pAddress) ; 



table__addrow ( $hTableRef , 
"#define" , 



11 $pName" , 

^ « ( (${cType}) " , 

" $ CpAddressString} ) " ) ; 

table_addrow ( $sTableRef , 
40 " GEQU" , 



$pAddres s String , 
' ; $pKind" ) ; 



45 



50 



if < $ isRAMLike) # only report ends of "RAM-like" spans 



table_addrow ( $hTableRef , 
"#define" , 
»${pName}_end" , 
" ( (${cType>) 

(sprintf ("0x%08x) " , $pEnd) ) ) ; 



t able_addrow ( $ sTableRef , 
« " GEQU" , 

^ "${pName}_end H , 



60 



(sprintf ("0x%08x" , $pEnd) ) ) ; 

} 

if ($pIRQ) 

table_addrow ( $hTableRef , 



»#define" , 
»${pName}_irq tt , 
ii M 

$piRQ) ; 

5 table_addrow ( $sTableRef , 

GEQU " , 
"${pName}_irq" , 
n ii 

1Q $piRQ) ; 

> 
( 

15 my $x; 

$x = table_sprint($hTableRef) ; 
print HFILE $x; 

$x = table_sprint($sTableRef ) ; 
print SFILE $x; 
} 

# 



20 



35 



40 



45 



50 



t Print a macro for getting the system name 



-25 # 

print SFILE «EOP; 

■ .macro nm_system_name_string 
I .asciz "$nios„system_name" 

? 30 .endm 

i .macro nm_monitor_j3tring 

■ .asciz »$monitor_string" 
. endm 



EOP 



print HFILE «EOP; 
// Parameters for each peripheral. 
EOP 

print SFILE «EOP; 
; parameters for each peripheral. 



EOP 



for($i =0; $i < $#$peripheralListRef ; $i++) 
my $p = $$peripheralListRef [$il ; 



55 $pKind = $$p[0] ; 

$pName = $$p[H ; 

if ($pKind and $pName =~ / A na_/ and $$p[2]) 
{ 

printf HFILE "\n// Parameters for %s named %s at 0x%0 8x:\n' 
$pKind, 
$pName , 



60 



$p Address; 

printf SFILE "\n; Parameters for %s named %s at 0x%08x:\n" , 
$pKind, 
$pName r 
$pAddress; 

printColumns(*HFILE,$$p[2] , u // " , " = ",""); 
printColumns(*SFILE,$$p[2] , = ",""); 
} 

} 

print HFILE «EOP; 

#ifdef _cplusplus 
} 

#endif 

#endif // _$ {baseName}_ 

/* end of file */ 
EOP 

print SFILE «EOP; 

; end of file 
EOP 



Close HFILE; 
close SFILE; 

return "ok"; 
} 



# 

# generatePeripheralsStructs (basename, \@peripheralList , 

component s — directories , systemName) 

# 

sub generatePeripheralsStructs 
{ 

my $fileName = shift; 

my $peripheralListRef = shift; 

my $components_directories = shift; 

my $ptfMame = shift; 

my $dt - date__time ( ) ; 
my $pAddress; 
my $pName ; 
my $pKind; 

my %lib_f iles_f ound; 
my $structureContents ; 
my $baseName; 
my $i; 

my %peripheralKinds ; 

$baseName = basename ($fileName) ; 



open HFILE, ">$f ileName .h" or return; 



binmode HFILE; 



open SFILE, ">$ filename . s 11 or return; 
binmode SFILE; 



print HFILE «EOP; 



10 



15 



/* 



* File: $baseName.h 
* 

* This file is a machine peripherals definition 

* for a Nios hardware design. 

* $ptfName 
★ 

* Generated: $dt 



20 



25 



30 



35 



tifndef {baseName}_ 
#define „$ {baseName}_ 

#ifdef cplusplus 

extern "C" { 
#endif 



EOP 

print SFILE «E0P; 
File: SbaseName.s 

This file is a machine peripherals definition 
for a Nios hardware design. 
$ptfName 

Generated: $dt 



40 



EOP 



# Figure out which ones are actually present 
# 



45 



50 



55 



60 



for($i =0; $i < $#$peripheralListRef ; $i++) 
{ 

my $P = $$peripheralListRef [$i] ; 

SpKind = $$p[0] ; 
$pName = $Sp[l] ; 

$peripheralKinds{$pKind} ++ if ($pName =- / A na„/) ; # only count 
na_, not nasys r s 
} 

# 

# Find the <x>_struct.h file for each of them, now. 
# 

f oreach $pKind ( sort { keys ( %per ipheralKinds ) ) ) 
{ 

my $structFile; 

(SstructFile) = f indStructFile ( 

$components_directories , 



" $ {pKind} / $ {CUSTOM_SDK__PIECES_DIR} " , 
"struct .h" ) ; 

$structureContents = 

readFile ( $structFile) ; 

print HFILE "// $pKind: $peripheralKinds { $pKind} present \n" 
print HFILE $structureContents , " \n" ; 

($structFile) = f indStructFile ( 

$components_directories , 

" $ {pKind} /$ {CUSTOM_SDK_PIECES__DIR} " , 

" struct . s " ) ; 

$structureContents = 

readFile ( $structFile) ; 

print SFILE " ; $pKind: $peripheralKinds { SpKind} present \n" ; 

print SFILE $structureContents , " \n" ; 

} 

print HFILE «EOP; 

#ifdef cplusplus 

} 

#endif 

#endif // _$ {baseName}_ 

/* end of file */ 
EOP 

close HFILE; 

print SFILE «EOP; 

; end of file 
EOP 

close SFILE; 

return "ok"; 
} 

# 

# genera teNi osHeader (headerFileName, ptfName) 
# 

# Generate nios.h and nios.s, which just include 

# the other three header files. 
# 

sub generateNiosHeader 
{ 

my $fileName = shift; 
my $ptfName = shift; 

my $dt = date_time ( ) ; 

my $baseName = basename ( $f ileName) ; 

open HFILE, ">$f ileName .h" or return; 
binmode HFILE; 



open SFILE, ">$f ileName. s" or return; 
binmode SFILE; 



print HFILE «EOP; 

/* 

* File: $baseName.h 

5 * This file is a machine generated header 

* for a Nios hardware design. 

* $ptfName 
* 

* Generated: $dt 
10 */ 

#ifndef _$ {baseName}_ 
#define _$ {baseName}_ 

15 finclude "nios_map .h" 

#include "nios peripherals .h" 

#endif // _$ {baseName}_ 

20 /* end of file */ 
EOP 

close HFILE; 



25 



30 



40 



60 



print SPILE «EOP; 
File: $baseName . s 

This file is a machine generated header 

for a Nios hardware design. 

$ptfName 



Generated: $dt 

. include "nios__macros . s" 
35 .include "nios_jperipherals . s" 

. inc lude " n i o s__map . s " 



; end of file 
EOP 



Close SFILE; 
> 



# 

45 # f indDirlnDirs (components_directories ,pKind) 
# 

# given the +-separated components directories, return 

# a path to <something>/pKind, if one exists. Else "". 
# 

50 sub f indDirlnDirs 
{ 

my $components_directories = shift; 
my $pKind = shift; 

55 my @components„directories ; 

my $ component s_di rectory; 
my $p; 



@components_directories = split (/ \+/ , $components_directories) 

foreach $components_directory (@components_directories) 
{ 

$p = " $ { component s_directory } /$ {pKind} " ; 



return $p if( -e $p) 
} 



return " " ; 

5 } 

# 

# ad&LibDodnc_and_SrcFiles (sdkDir, ptf Reference, components„directories) 
# 

10 # From each wizard's "custom_sdk_jpieces" subtree, 

# extract out each and every lib, doc, inc, and src file. 

# If the file already exists on the other side, don't replace it. 

sub addLibDocInc_and_ SrcFiles 

15 { 

my $sdkDir = shift; 
my $ptfRef = shift; 

my $components„directories = shift; 

20 my SmoduleRef; 

my SpKind; 

my $piecesDir; # directory within j<x>wizard with files to copy over 
my $ subDir ; 
25 my $i; 

my $childCount; 

$childCount = get_child__count ( $ptf Ref ) ; 
for ($i = 0; $i < $childCount; $i++) 
30 { 

SmoduleRef = get„child($ptfRef , $i) ; 

next if ( I isModule ( SmoduleRef) } ; 

SpKind = getModuleKind (SmoduleRef) ; 
35 SpiecesDir = f indDirlnDirs ( $components_directories, SpKind) ; 

next if ( 1 SpiecesDir) ; 

SpiecesDir V${CUSTOM_SDK_PIECESJDIR} n ; 
f oreach SsubDir ( "lib" , " doc " , " inc " , " src " ) 
{ 

40 

copyDirContents ( " $ {piecesDir} /$ {subDir} " , " $ {sdkDir} /$ {subDir} " ) ; 
} 

} 

45 return "ok"; 

} 

# 

# getModuleAddressRange (ptf Ref , module) 
50 # 

# module can be either moduleRef or moduleName 
# 

sub getModuleAddressRange 
{ 

55 my SptfRef = shift ; 

my SmoduleMame = shift; 

my SinfoRef; 
my $addr Exponent ; 
60 my $baseAddr; 

my SaddrSpan; 
my $topAddr; 
my Salignment; 



my $wordSizePer Address ; 
my $bytesPer Address ; 
my $addressAlignment ; 

5 # 

# Discern moduleRef from moduleName 
# 

if (ref ($moduleName) eq "HASH") 
10 { 

$infoRef = get_child_by__path ( $moduleName , " SYSTEM_BUILDER_INFO " ) ; 

$moduleName = get_data ($moduleName) ; 

} 

else 

15 { 

$infoRef = get„child„by„path($ptfRef , "MODULE 

$ {moduleName} /SYSTEM_BUILDER_INFO" ) ; 
} 

20 $baseAddr = getAPTFNurnber { $inf oRef , *'Base_Address" ) ; 

$addrSpan = getAPTFNurnber ($infoRef, "Address_Span" ) ; 

$ address Alignment = get_data__by_path ( $inf oRef , "Address_Alignment " ) ; 
if ( $address Alignment eq "dynamic") 
25 { 

$wordSizePer Address = getAPTFNurnber ($infoRef, "Da ta__Width" ) ; 

} 

elsif ($ address Alignment eg "native") 
{ 

30 SwordSizePerAddress = getMasterDataWidth ( $ptfRef ) ; 

} 

elsif ( $addressAlignment eg "word") 
{ 

$wordSizePer Address = 32; 

35 } 

elsif {$ address Alignment eq "halfword" ) 
{ 

$wordSizePerAddress = 16; 
} 

40 elsif ($addr ess Alignment eq "byte") 

{ 

$wordSizePerAddress = 8; 
} 

else 

45 { 

# default to width of master (Nios) CPU 

# print„warning ( " $moduleName 
Address_Alignment=\ " $addressAlignment\ " ; " ) ; 

$wordSizePerAddress = getMasterDataWidth ( $ptf Ref ) ; 
50 } 

$bytesPerAddress = int ($wordSizePerAddress / 8),- 
$addrExponent = getAPTFNurnber { $infoRef, "Address_Width" ) ; 

55 $topAddr = $baseAddr + (1 « $addrExponent) * $bytesPerAddress ; 

$topAddr = $baseAddr + $addrSpan if $addrSpan; 



60 



return ($baseAddr, $topAddr) ; 
} 

# 

# getSystemSettings (ptfRef ) 
# 



# return a reference to the associative 

# array which defines the processor options, 

# including reset address, vecbase, 16/32 f and mstep. 
# 

# Return reference to array of various 

# useful global ish information about the system module 
# 

# FIXME: this only works if the bus master is a Nios. 
# 

sub getSystemSet tings 
{ 

my $ptfRef = shift; 
my $moduleRef; 
my $pKind; 
my %result; 
ray $i; 

my $childCount; 

my $modulelsrame ; 
my $offset; 
my $base; 
my $top; 

# First, find the processor within the ptfRef 
$childCount = get — child__count ($ptf Ref ) ; 
for($i =0; $i < $childCount; $i++) 
{ 

$moduleRef - get_child($ptfRef , $i) ; 
next if { ! isModule { $moduleRef ) ) ; 

$pKind = getModuleKind ( $moduleRef ) ; 

if ($pKind eq "altera_nios" or $pKind eq " jnioswizard" ) 
{ 

my $x; 

# When found, fill the result 
dprint " found altera„nios " ; 

# Vector Table 
SmoduleMame 

ge t_da t a_by„pa th ( $modu 1 eRe f , " WI ZARD_SC RI PT_ARGUMENTS / ve cba s e_mo dul e " ) ; 
$of f set 

getAPTFNumber ($moduleRef , "WIZARD_SCRIPT_ARGUMEIsrrS/vecbase_of f set " ) ; 

($base,$top) = getModuleAddressRange ($ptfRef , $moduleName) 

$result {vecbase} = $base + $offset; 
dprint "module = $moduleName, vecbase = $base, vectop = $top" ; 

# Reset Address 
$moduleName 

get_data__by__path{$moduleRef , ,, WIZARD_.SCRIPT_ARGu^y[ENTS/reset_module ,, ) ; 
$of f set 

getAPTFNumber ($moduleRef , "WIZARD_SCRIPT_ARGUMENTS/reset„of f set " ) ; 

( $base, $top) = getModuleAddressRange ( Sptf Ref , $moduleName) 
$result {reset_a} = $base + $offset; 

# MSTEP and MUL 
$x 

getAPTFNumber ($moduleRef , "WIZARD„SCRIPT_ARGXJMENTS /mstep" ) ; 
$x = $x ? 1 : 0; 

S result {mstep} - $x; # 1 or 0 



$x 

getAPTFNumber (SmoduleRef , "WIZARD_SCRIPT_ARGUMENTS/ multiply" ) ; 
$x = $x ? 1 : 0; 

$result {multiply} = $x; # 1 or 0 

5 

# Nios 16 or 32? 
$x 

getAPTFNumber ($moduleRef , " SYSTEM_BUILDER_INFO/Data_Width n ) ; 
10 $x = 32 if($x != 16 $x != 32); 

$result {bits} = $x; 
) 

} 
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$moduleRef=get_child_by_path($ptfRef , "WIZARD_SCRIPT_ARGUMENTS" ) ; 



# 

# Program and data memory 
20 # 

$moduleName = get_data_by_path ( $moduleRef , "mainmemjnodule" ) ; 
( $base , $top) = getModuleAddressRange ( $ptf Ref , $moduleName ) ; 
$ result {programmembase} = $base; 
25 $result {programmemtop} - $top; 

$moduleName = get_data__by_path ( $moduleRef , "datamem_module" ) ; 
($base f Stop) = getModuleAddressRange ($ptfRef , $moduleName) ; 
$result {datamembase} = $base; 
30 $result {datamemtop} = $top; 

# print f and gdb uarts 

$ re suit {maincomm_module} 
35 get„data„by_path ( $moduleRef , "maincomm_module " ) ; 

$result { gdbcomm_module } = get_data_by_path ( $moduleRef , " g db c omm_mo du 1 e " ) 

# germs monitor prompt 

40 $ result {germs_monitor_id} 

get__data_by_path($moduleRef , "germs^onitor^id" ) ; 

# clock rate 

45 my $clockFreq; 

$clockFreq = get_data_by__path ( SmoduleRef , "clock_f req" ) ; 
$result {clock_f req} = $clockFreq; 

50 return \%result; 

} 



# generateMakef ilelnLib (sdkDir,ptf Ref ,ptfName, $ germs Address) 
55 # 

# Generate a makefile that includes every .s or .c file 

# that's in custom__sdk/lib/ . . . 

sub generateMakef ilelnLib 
60 { 

my $sdkDir = shift; 
my $ptfRef - shift; 
my $ptfName = shift; 



my $ germs Address = shift; 



my $libDir = " $ {sdkDir} /lib" ; 
my ©libFiles; 
my $libName; 
my $file; 
my $key; 

my $dt = date_time(); 

my $nios_system_name = get_data ($ptfRef ) ; 

my $nios_data_bits ; # 16 or 32 bit processor 

my $nios_mstep__support ; 
my $nios_multiply_support ; 

my %makef ileVars ; # extra values set in the makefile, and passed down to 
programs . 

# 

# Set germsAddress to a number in hex 
# 

$germsAddress = aNumber ( $germs Address ) ; 

$ germsAddress - sprint f ( n 0x%08x" , $germsAddress) ; 

# 

# First, find the processor within the ptfRef 
# 

{ 

my $miscSysRef; 

$miscSysRef = getSystemSettings ( $ptf Ref ) ; 
$nios„data_bits = $$miscSysRef {bits} ; 
$nios_mstep_support - $$miscSysRef {mstep} ; 
$nios_multiply__support = $$miscSysRef {multiply} ; 
} 

$libName = " libnios\$ (M) .a"; 

$makef ileVars {tTIOS_USE_MSTEP} = $nios__mstep_support . " # CPU option 
(shift, test, & add)"; 

$makef ileVars {NIOS_USE_MlILTIPLY} = $nios_multiply_support . " # CPU 
option (16xl6->32) » ; 

$makefileVars{NIOS_USE__FAST„MUL} = 1 . # Faster but larger int 

multiply routine" ; 

$makefileVars{NIOS__USE_SMALL„PRIUTF} = 1 . " # Smaller non-ANSI print f, 
with no floating point formats"; 

$makef ileVars{NIOS_USE_CWPMGR} = 1 . " # Turn off to disable underflow 
handling (dangerous) " ; 

$makefileVars{NIOSJUSE„CONSTRUCTORS} = 1 # Call C++ static 

constructors; turn off for smaller footprint"; 

$makef ileVars {NIOS_SYSTEM_NAME} = $nios_system_name ; 
$makefileVars{NIOS_M0NIT0R} = "nios_germs_monitor" ; 

# 

# spew a makefile, most uglywise 
# 

opendir (DIR, $libDir) or return; 
©libFiles = readdir (DIR) ; 
closedir (DIR) ; 

open (FILE, ">${ libDir} /Makefile " ) or bail;; 



print FILE «EOP; 



# 

5 # Nios SDK Generated Makefile 

# $dt 

# $ptfName 
# 

EOP 

10 foreach $key (sort (keys (%makef ileVars) ) ) 

£ 

print FILE "${key} = $makef ileVars {$key} \n" ; 
} 

print FILE «E0P; 

15 

AS = nios-elf-as 
CC = nios-elf-gcc -c -02 -g 
AR = nios-elf-ar 
M = $ {nios_data_bits} 
20 OBJ = ./obj\${M) 
SRC = . 
E = echo 

EOP 

25 

{ 

my $aF; 
my $cF; 

30 $aF = " — defsym nios\$ (M) =1 -m\$(M) -I . ./inc"; 

$cF = " -m\$(M) -I . ./inc" ; 
foreach $key (sort (keys (%raakef ileVars) ) } 
{ 

$aF .= " \\\n\t-- defsym " . lc($key) . " =\${$key)" 

35 $cF .= " \\\n\t-D 11 . lc($key) . " =\$($key) 11 ; 

} 

print FILE "ASFlags = ${aF}\n\n"; 
print FILE "CCFlags = ${cF}\n\n w ; 
40 } 

print FILE «EOP; 
RESULT = $libName 

45 OBJECTS = \\ 
EOP 

foreach $file (©libFiles) 
{ 

50 my $basename; 

if($file =~ / A (.*)\.[cs]$/ 

and $file ne "nios_germs_monitor . s " ) 
{ 

55 $basename = $1; 

print FILE " \t\$ (OBJ) /$ {basename} . o \\\n B ; 
} 

} 

print FILE " \n\n" ; 

60 

print FILE «E0P; 
\${0BJ)/%.o : \$(SRC)/%.s 



\$(E) Assembling \$< 

\${AS) \$(ASFlags) \$< -o \$@ 

\$(E) Archiving \$@ 

\S(AR) -r \$ (RESULT) \$@ 

5 

\$(OBJ)/%.o : \$(SRC)/%.c 
\$(E) Compiling \$< 
\$(CC) \$(CCFlags) \$< -o \$@ 
\$(E) Archiving \$@ 
10 \$(AR) -r \$ (RESULT) \$@ 

\$(OBJ) : 

\$ (E) Making \$@ Directory 
mkdir \$@ 

15 

clean : \$ (OBJ) 

\$ (E) Removing objects 

rm -f ../../ \ $ (NIOS_SYSTEM_NAME) _germs_monitor .mif 
rm -f \$ (OBJECTS) \$ (RESULT) 

20 

\$ (RESULT) : \$(OBJ) \$ (OBJECTS) 
\S(E) Build \$@ 

GERMSMON : 

25 \$(E) Building Germs monitor \$ (NIOS_MONITOR) \@$ {germsAddress} 

nios-build -s -b $germsAddress \$ (NIOS_MOKTITOR) . s -o 

\$ (OBJ) /\$ (NIOSJMONITOR) 

rm -rf \$ (NIOSJtfONITOR) . s . o 

\$(E) Converting to \$ (NIOS__SYSTEM_JNAME) __germs_monitor .mif 
30 nios-convert \$ (OBJ) /\$ (NIOS — MONITOR) . srec — oformat=mif — width=\$ (M) 

mv \$ (OBJ) /\$ (NIOS_MONITOR) .mif 

. . / , . /\$ (NIOS_SYSTEM„NAME)_germs_monitor .mif 

all : clean \$ (RESULT) GERMSMON 

35 

# end of file 
EOP 

close (FILE) ; 

40 

} 



45 # 

# printColumns ( FILERef , pt f Ref , lineBeginString , columnbreakString , lineEndS tring) 
# 

sub printColumns 
50 { 

my $FILE = shift; 
my $ptfRef = shift; 

my $lineBeginString = shift; 
55 my $ co lumnBreakS tring = shift; 

my $lineEndString = shift ; 

my $nameWidth = 0; 
my $dataWidth = 0; 
60 my $name; 

my $data; 



my $i; 



my SchildCount; 
my $childRef; 

SchildCount = get_child_count (SptfRef ) ; 
5 for (Si = 0; $i < SchildCount; $i++) 

{ 

my $w = 0; 

SchildRef = get_child{ SptfRef ,$i) 
10 $name = get_name ($childRef ) ; 

$data = get_data ( SchildRef ) ; 
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25 



r 30 



$w = length (S name ) ; 

$nameWidth = $w if $w > SnameWidth; 
$w = length ($data) ; 

SdataWidth = $w if $w > $dataWidth; 
} 

for($i =0; $i < $childCount; $i++) 
{ 

my $w = 0; 

$childRef - get_child( SptfRef ; 
$name = get_name ( SchildRef ) ; 
$data = get_data ( SchildRef) ; 



print $FILE $lineBeginString; 

print $FILE " " x (SnameWidth - length ($ name ) ) 



print $FILE $name; 
' print $FILE $columnBreakString; 

print $FILE $data; 
35 print $FILE $lineEndString; 

1 print $FILE "\n" ; 



} 
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# 

45 # parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 
50 # the form " — key= value " . The hyphens 

# disappear from the key name. 
# 

# A command line switch of "—key" 

# is equivalent to "--key=l" . 
55 # 

# a special key named _argc contains 

# a count of non-dash-dash arguments, 

# and they are in the hash as {0}, {1}, 

# and so on. 

60 

sub parseArgs 
{ 

my $arg; 



my SargVal; 
my $argc; 
my %hash; 

$argc = 0; 



while ($arg = shift) 
{ 

usage if $arg eq "--help"; 

if ($arg =~ /"--/) 
{ 

if ($arg =~ /-—(.*) \= (.*)$/ ) 
{ 

$arg = $1; 
$argVal = $2; 
} 

else 

{ 

$argVal = 1; 
} 

$hash{$arg} = $argVal; 
> 

else 

{ 

$hash{$argc++} = $arg; 
} 

} 

$hash{_argc} = $argc; 

return %hash; 
} 



# getSwitch(hashRef , switchName, defaultValue [, mustBeNumber] ) 
# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 

# if it was not specified in the command line. 

sub getSwitch 
{ 

my $hashRef = shift; 
my $switchName = shift; 
my $defaultValue = shift; 
my $mustBeNumber = shift; 

my $switchValue; 

$switchValue = $$hashRef t$ switchName } ; 

$switchValue = $def aultValue if { $switchValue eq " " ) ; 
$switchValue *= 1 if ( $ mustBeNumber) ; 

return $switchValue ; 
} 



# 

# 

# Necessary inputs: 



# --sopc_directory=dir complete path to directory containing jnioswizard 
& siblings 

# — system_name=name name of the system; add .ptf for the file we need 

# — system_directory=dir path to the ptf file 
5 # 

# Optional inputs : 

# --sdk_directory=dir complete path to custom sdk result directory. All 
enclosing 

# directories above it must already exist . 
10 # default: system_directory/system_name_.sdk 

# — sopc_lib_dir=dir [ (+dir) *] 

# list of directories for components 

# — nios_sh=full path what nios_sh to source for paths, &c . 

# default: /usr/altera/excalibur/nios~sdk/nios_sh 
15 # — debug=l (or 0) turn on debug print messages, defaults to off. 

sub mk_custom_sdk 
{ 

my $sopc__directory ; 
20 my $system_name; 

my $system_directory; 

my $sdk_di rectory; 

my $nios„sh; 

my $altera__dir ; 
25 my $ptf_name; 

my $result = 0; 

my $components_directories; 
30 my %switches; 

%switches = parseArgs (@_) ; 

$sopc__di rectory = getSwitch { \%switches , " sop c_di rectory" ,"."); 
35 $system_name = getSwitch ( \%switches , n system_name" , "a_nios„system" ) ; 

$system_directory = getSwitch ( \%switches , " system__di rectory" ,"."); 
$sdk_di rectory = getSwitch ( \%switches , 
" sdk„directory " , 

" $ {system_directory} /$ {system__name}_sdk" ) ; 
40 $components„directories = getSwitch ( \%switches , 

"sopc_lib_path" , 

" $ {sopc_di rectory} /components" ) ; 
$altera_dir = getSwitch ( \%switches , 
,, altera_dir" , 
45 " " ) ; 

$nios__sh = getSwitch (\%switches, 
"nios_sh" , 
n " ) ; 

50 $gUse01dSillyJNames = getSwitch ( \%switches, "use_old_wizard_names" , 0 ) ; 

$gDebug - getSwitch ( \%switches , "debug" , $gDebug) ; 
$ptf_name = " $ {system_di rectory} /$ {system_name} .ptf " ; 



55 
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my $germsAddress ; 

my SptfRef ; # the whole PTF, hashed & such 

my @peripheralList; # indexed by base address, in decimal, 

1 type : ins tanceName 11 

if ($sdk_directory eq " " ) 
{ 

print_command "not enough arguments."; 



return 0 ; 
} 



# Read project description for memory map and name. 

# Discern which peripheral classes are needed. 

print_command "Reading project $ {ptf_name} . 11 ; 
SptfRef = readPTF ($ptf_name) ; 

@peripheralList = readAddressMap ( $ptfRef , \$ germs Address) ; 

if {scalar (@peripheralList) <= 0) 
{ 

bail "No peripherals."; 
} 

# Generate Customized SDK directory structure 
print__command "Generating SDK Tree"; 

mkSDKTree ( $sdk_directory) or bail "Could not create SDK tree."; 

# log beginning 

open (FILE, ">>$ {sdk__directory} /custom_sdk_log . txt" ) or return; 
print FILE date„time, " : Started latest custom_sdk\n" ; 
close FILE; 

# Create nios_map.h 

print__command "Generating address map header file."; 

generateAddressMap { $components_di rectories, " $ {sdk__directory} /inc/nios — map 
\@peripheralList , $ptf_name, $ptfRef ) 

or bail "Could not generate address map."; 

# Create nios_peripherals .h 

print„command "Generating peripherals structures file."; 

generatePeripheralsStructs ( " $ {sdk_directory}/inc/nios_peripherals" , 
\@peripheralList , $ component s_direct or i es , $ptf_name) 
or bail "Could not generate peripherals structures file." ; 

# Generate nios.h and nios.s, which just combines them 
generateNiosHeader ( "$ {sdk_directory} /inc/nios" , $ptf_name) ; 



# Copy files into lib, doc, inc, and src . 
print_command "Adding lib, doc, inc, and src files." ; 

addLibDodnc_and_SrcFiles ($sdk_di rectory, SptfRef, $ component s_direc tori es ) 



# Generate a makefile in the lib directory 
print_command "Generating Makefile in lib."; 

generateMakef ilelnLib ($sdk_directory, $ptfRef , $ptf_name, $ germs Address) ; 

# log end 

open (FILE, " »$sdk_directory/custom„sdk„log . txt") or return; 
print FILE date_time, " : Finished latest custom_sdk\n" ; 
close FILE; 



# 

# Build the darned thing 
# 

{ 

my $bin„directory = " $ {sopc„di rectory} /bin" ; 
my $sh; 

# 

# We only allow Cygwin to be installed 

# in c:\cygwin or d:\cygwin, so look 

# in those allowed places . 
# 

# After that, try unixy locations. 
# 

if ($*0 eq; "MSWin32" ) 
{ 

$sh = 'c:\cygwin\bin\sh.exe'; 

$sh = 'd:\cygwin\bin\sh.exe' if (! -e $sh) ; 

} 

else 

{ 

$sh = 1 /bin/sh' ; 
} 

if ( ! -e $sh) 
{ 

print_warning "You must install Cygwin & Nios SDK 1.1 to 
library and Germs monitor."; 

$result = -1; 
} 

else 

{ 

print_command "Making Library & Germs Monitor"; 
my $system_command; 

$system_command = " ${sh} -c V'cd $sdk__directory/lib" ; 

$system_command .= " ;nios_sh=$ {nios_sh} " if $nios_sh ne ""; 
$system__command .= " ; altera=$ {altera_dir} w if $altera„dir 



$system_command . - " ; . $ {bin_di rectory} /mk_custom_sdk. sh\ " 11 
# 

# Tell modified perl to spawn new process invisibly 
# 

open ( ABRAHAM_L INC OLN_S TEALTH , ""); 
close ABRAHAM_LINCOLN_STEALTH; 

dprint " system_command is $system_command" ; 
$result = system { $system_command) ; 

# 

# Turn off invisible-flag 
# 

open ( ABRAHAM„LINCOLN_NO_STEALTH , " " ) ; 
close ABRAHAM_LINCOLN_NO_STEALTH; 



if ( $result) 



{ 

print_warning "Make failed (Nios SDK required. 

you install it?)"; 

$result = -1; 
} 

} 

} 

return $result; 
} 

# 

# The Body 
# 



return "ok"; 



# end of file 



Mk_Nios .pm 



use wiz_utils; 
use wiz__convert; 

5 

################################################################ 
# 

# MkJSTios 
# 

10 # Builds a Nios core from named arguments, including all 

# design and support files, plus synthesis script. 
# 

$Mk„NiosJ9oc=<<END_0F_D0CUMENTATI0N_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

15 # 



25 



*name 


nm 


— none— 


Name 


project_dir 


proj 




Project directory for output files. 


bits 


bits 


32 


*(32|16)* Number of ALU bits. 


num_regs 


regs 


256 


*(128|256|512>* Reg file size. 


shif t„size 


shift 


7 


* (1 1 3 | 7 j 15 ] 31) * Bits/elk shift speed 


mstep 


mstep 


YES 


*(YES|NO)* Include MSTEP unit? 


multiply 


multiply 


NO 


*{YES|NO)* Include multiply unit? 


wvalid_wr 


wr_wv 


NO 


*(YES|NO)* Writeable WVALID reg? 


*high_a 


ha 


— none-- 


Highest mem address in system. 


*vecbase 


vb 


— none— 


Vector table base address . 


*reset_a 


ra 


--none — 


Reset execution-start address. 


idle_cycle 


idle_cycle 


YES 


*(YES|NO}* Insert Rd->wr idle cycle? 


mm_span 


mm_span 


--none-- 


main memory address span. 


mm_base 


mm__base 


— none — 


main memory base address . 


leo__set tings 


leo_set 


$DEFAULT_LEO_ 


.SETTINGS Synthesis-settings script. 


user_instruction_list uil 


— none— 


delimited list of user instr. 


part_type 


— none — 


apex20e 


part type used for firm flip flops 



END„OF_DOCuMENTATION_STRING 
35 # This was used for testing: 

# user_instruction_list uil RR-K-01110 0-FMUL makes FMUL 
# 

# But the first argument to this function (NOT a named argument) 

# tells us whether to build a Nios core, HDL files and all, 
40 # or to build only a PTF-file. 

# 

# The PTF_ONLY parameter must be "YES " or "NO." 
# 

# 

45 ################################################################ 
sub Mk_Nios 
{ 

my ( $PTF_QNLY, @named_arg_list ) = (@_J ; 

50 my {$named_arg_string, $arg, $user_def ined) = 

Process__Wizard_Script_Arguments ( $Mk_Nios_Doc , @named__arg_list) ; 

my $part_type = $$arg{part_type} ; 
$part__type =~ tr/A-Z/a-z/ ; 
55 # We create several Firm_Flip_Flop variants so that we can, for example, 

# assign Fast I/O register attributes to them later. 
# 

# These global variables we're setting get used 

# inside the nios-core Vpp script. David Van Brink would be horrified. 
60 # 

# These names used to be long and luxurious . Now they ' re short 

# and spartan. FPGA Express gets angry if your name runs over 32 

# characters, and the old long names "used up" 16 precious characters. 



# Now they onlu use-up three. But they're short. And spartan. Sorry. 
# 

$ADDRESS_OUT_REG_MODULE_NAME = $$arg{name} . "_ar n ; # _address_out_reg 

$CONTROL„OUT_REG„MODULE„NAME = $$arg{name} . 'Lcr"; # _control_out_reg 

5 $DATA_IN_REG__MODULE_NAME = $$arg{name} . "_dr n ; # _data_in_reg 

################ 

# Conditional file list. 
# 

10 # If we're building the whole core (HDL files), then 

# we run Vpp on a whole bunch of files. If, on the other hand, 

# we're only making the PTF-file, then we run Vpp on many fewer 

# files. 
# 

15 my @vpp_f ile_list = {); 

if (uc($PTF_ONLY) eq "YES") 
{ 

# Only enough stuff to build the PTF-file: 
20 push (@vpp__f ile__list , ( 

» _ H h f ii $vPP_DIR/process_sdf . vpp" , 

"-H" , "$NIOS_CRYPT_DIR/cpu_interface.vpp" , 

) 

) ; 

25 } else { 

&Create_Firm__Flip_Flop_Variant ( $ADDRESS_OUT_REG_MODULE_NAME , 

$ QUARTUS_PRO JECT_DIR , 
$part_type) ; 

30 &Create_Firm_Flip_Flop_Variant ( $CONTROL_OUT_REG_MODULE__NAME , 

$QUARTUS_PROJECT_DIR , 
$part_type) ; 

&Create_Firm_Flip_Flop_Variant ( $DATA_IN_REG„MODULE_NAME , 
35 $QUARTUS_PRO JECTJDIR , 

$part_type) ; 

push (@vpp_f ile_list , ( 

"-H" , " $NIOS_CRYPT_JDIR/f irm_f lip_f lop. vpp" , 
40 " -H" , " $ VP P_DIR/ genera tor_f unctions .vpp" , 

"-H" , u $VPP_DIR/process„sdf .vpp" , 

ii f ii $jsrios_ CRYPTLJDIR/proces so r_generator_f unctions . vpp " , 

" -H" , w $NIOS_CRYPTJDIR/cpu,_interf ace .vpp" , 

" -H" , " $NIOS_CRYPT_DIR/ronemonics .vpp " , 
45 " -H" , " $NIOS„CRYPT_DIR/control_bits .vpp" , 

" $NIOS„CRYPT_JDIR/ma j or_opcode_table .vpp rf , 

" $NIOS_CRYPT_DIR/ subtable_w . vpp " , 

" $NIOS_CRYPT__DIR/ instruct ion__decoder . vpp " , 

" $NIOS_CRYPTJDIR/cpu_core . vpp" , 
50 " $NIOS_CRYPT_DIR/register_ram. vpp t( , 

) 

) ; 

if ($$arg{multiply} =~ /YES/ i) { 
55 push (@vpp_f ile_list , ( 

" $NIOS_CRYPT_DIR/mul_uni t . vpp " , 

) 

) ; 

} 

60 } 



# First, run Vpp to create the CPU and all its peripherals: 



ScVpp ( 

split (As+/, "-Q -R -X v"), 
" -D" , " $QUARTUS_PROJECT_JDIR" , 
"-P" , $$arg{name} . , 
" NIOS_DATA_BITS 

"NIOS„SINGLE_CLOCK_SHIFT_DEPTH 

" NI O S JREGI STER_F ILE_S I Z E 

" NI 0 S_WRITEABLE„WVAL I D_REG I S TER 

" NIOS_MSTEP_SUPPORT 

" NI 0 S_MULT I PLY_SUP PORT 

"NIOS_USER_INSTRUCTION_LIST 

"NIOS_VECBASE 

" NlOS_RESET_ADDRESS 

" NIOS_SYSTEM_HIGHEST_ADDRESS 

" NI 0 S_TURNAROUND_IDLE_C YCLE 

" NIOS_MAIN_MEM_JBASE_ADDRESS 

" NIOS_MAIN__MEM_ADDRES S_S PAN 

" NIOS_PTF__ONLY 

»MAKE_PTF 

u pxF_FILENAME 

" PTF_PARAMETER_STRING 

" PTF_PARAMETER_SECTION_NAME 



$$arg{bits} 

= $$arg{shif t_size} " , 

$$arg{num„regs} " , 

= $$arg{wvalid__wr} " , 

= $$arg{mstep} 

= $$arg{multiply} 

$$arg{user_instruction_list} 11 , 

= $$arg{vecbase} " , 

= $$arg{reset_a} 

= $$arg{high_a} 

= $$arg{idle_cycle} " , 

- $$arg{mm__base} " , 

= $$arg{mm_span} " , 

= $PTF_ONLY 

= TRUE" , 

$$arg{name} .ptf " , 

= $named_arg_string" , 

= WIZARD_SCRIPT_ARGUMENTS" , 



@vpp_f i le_l i s t , 
) ; 



################ 

# If we're in "PTF-only" mode, then we 

# also do the user the courtesy of generating a "nios.v" file 

# which says "Sorry I didn't -really- build you a Nios core— I was 

# just kidding. 11 
# 

if (uc($PTF_ONLY) eq "YES") 

# Note: "nios.vpp" isn't actually encrypted (it's important 

# that the user sees the comments ! ) . 
# 

&Vpp ("-Q", B -X", "v", 

» -O" , " $QUARTUS_PRO JECT__D IR / $ $ arg { name } .v" , 
"NIOS_CPU_NAME = $$arg{name} " , 

" $NIOS_CRYPT_DIR/nios . vpp" , 

) ; 

warn ( "VPP HDL -GENERATION SUCCESSFUL . \n n ) ; 

return; # Don't do any more if we're in PTF-ONLY mode. 

> 
# 

################ 

# Everything after here gets executed only if we're really 

# building a CPU and all its HDL-files, etc. (not just a ptf -file) , 
# 

# Get " {quartus, leonardo, mode Is im}_de fine .v, and all that stuff: 
# 

&Copy__Tool_Control_Files ($QUARTUS„PROJECT_DIR) ; 

# Run Vpp again to create the Leo synthesis script. 
# 

#N0 MORE SYNTHESIS SCRIPTS 

#my $script_name = $$arg{name} . "_synthesis_script . tcl " ; 
#&Vpp { " -Q" , 



# " -O " , " $QUARTUS_PRO JECT_DIR/ $script_name " , 
#"NIOS_CPU_NAME = $$arg{ name} " , 
#"NIOS_SETTINGS_SCRIPTJtfAME = $ $arg{ leo_set tings } ", 
# ,T $NIOS_SOURCE_DIR/cpu_synthesis_script . tcl . vpp" , 

5 #) ; 

# Make the simulation files for the embedded decoder ROMs . 
# 

# Now we need to convert the mif -file into a . dat-file for simulation 
10 my $table_name = $$arg{ "name" } . "_major_opcode_table u ; 

&Convert__Mif _To_Dat { " $QUARTUS_PROJECT_JDIR/ $table_jname . mif " , 

" $MODELSIM_DIR/ $ table_name . dat " ) ; 



15 $table_name = $$arg{ "name" } . "_subtable_w" ; 

&Convert„Mif_To_Dat ( " $QUARTUS_.PROJECT_JDIR/ $table„name . mif " , 

" $MODELSIM_DIR/ $ table_name . dat " ) ; 

warn { "VPP HDL -GENERATION SUCCESSFUL . \n" ) ; 

20 } 



1; 



# You need this for Perl to agree that this is a module. 



pbm_gen . pm 



################################################################ 

# pbm_and_sy s t em_modul e s . vpp 
# 

# This file contains a bunch of VPP-code which generates 

# the systems' PBM module and top-level system-module. 
# 

# It builds the system as-specified by the PTF-file you 

# indicate. You do so indicate 
# 

# Genera te_System_Logic 
# 

# This one happy Perl function is the top-level call for 

# creating synthesizable Verilog which implements the 

# 11 system" (e.g. Nios system) described by a single * 

# PTF-file. 
# 

# The one-and-only argument is, of course, the name 

# of the PTF-file itself. 
# 

# The result is a bunch of Verilog (and other) files 

# deposited in the users' Quartus project directory. 
# 

# Naturally, &Generate_System_Logic is a pretty complex 

# Perl function which relies upon various dedicated Perl subroutines 

# and utilities to do its many jobs. Those sub-functions are 

# also defined in this module. 
# 

################################################################ 

use ptf_update; 
use mk_jDsf; 

################ 

# Things to document: 
# 

# Philosophy, including overview of data-structure 
# 

# difference between "active" and "asserted" 
# 

################ 

# Notes for my friends : 
# 

# Add to system-level WIZARD„SCRIPT_ARGUMENTS section: 

# " Principal_Tri_State_Data_Bus" 
# 

# Add to module-level SYSTEM_BUILDER_INFO sections: 

# "Uses_Registered_Select_Signal " 

# "Uses_Tri — State__Data_Bus " 
# 

# Master's SBI needs: 

# "DataJWidth" 

# "Address_Width" 
# 

# 

# Narrow accesses from non-dynamic tri-state peripherals are filled 

# with "undefined." Sorry. That's life. 



################ 

# Funny Things to test: 



# 

# System with absolutely zero wait-states. 
# 

# Systems with -all- tri-state peripherals. 
5 # 



################ 
## ERRORS TO CHECK: 

10 # 

# Funny chip-selects (base not a multiple of span, span not power of two) . 
# 

# Warn about unknown assignments in PTF/SDF file 
# 

15 # Check assignments as much as possible when PTF/SDF is parsed, 

# give line numbers . 
# 

# Check to be sure all "instances" have unique names. 

20 ################################################################ 

# numerically, a subroutine that enables us to sort by numeric order instead 

# of alphabetic order. 

################################################################ 
sub numerically {$a <-> $b; > 

25 

sub Find_Max 
{ 

my $max = " " ; 
foreach $val (@_) 
30 {$max = $val if $val > $max | | $max eq " " ; } 

return $max; 

> 

################################################################ 
35 # &Debug 
# 

# First arg turns message (s) on/off. 
# 

################################################################ 
40 sub Debug 
{ 

my ($doit, ©-messages) = (@_J ; 

return if [$doit; 
45 my $ space = " " ; 

foreach $msg (©messages) 
{ 

print STDERR "DEBUG: $ space $msg\n" ; 
$ space = " n ; 

50 } 
} 

################################################################ 

# PBM_Pr ogress 

55 # 

# Our own private progress-printing routine. 

# Uses the one in "wiz_utils .pm, " except that it 

# qualifies the output so that it only shows -up if the 

# PBM_VERBOSE flag is on, and if this is pass 2. 

60 # 

################################################################ 

sub PBM_Progress 

{ 



my $old_out = select (STDOUT) ; 
^Progress ; 
select ($old__out) ; 

} 

5 

################################################################ 

# PTF„Err 

# t 

# In the future, I'd like to put a little more informative 

10 # gingerbread around error messages--like the line number and such. 

# This'd be the place to do it. 
# 

################################################################ 
sub PTF_Err 
15 { 

my $msg; 
($msg) = (@_); 

die ("Error while reading PTF file.Xn 
20 $msg u ); 
} 

################################################################ 

# Get_Port„By_Role 
25 # 

# Simple utility- function for acting on %Mod-hashes . 

# You say what "avalon role" you want, and this returns 

# a %Port-hash (by reference) for the corresponding module port. 
# 

30 # If there's more than one port with the avalon-role you asked for, 

# then you get one of them at-random. This is only reliable if the 

# avalon-role uniquely describes one of the module's ports. 
# 

# If you set the " Sstrict" option, you get an error if the port 
35 # doesn't exist. 

# 

################################################################ 

sub Get„Port_By__Role 

{ 

40 my ($Mod, $avalon_role, $ strict) - (@_) ; 

# Do step-by-step hash-dereferencing using temporary variables-- 

# otherwise the syntax gets impenetrable. 
# 

45 my $ aval on_port__t able = $ $Mod{ aval on_port_t able } ; 

my $Port - $$avalon_port__table{$avalon_role} ; 



50 



die "Get_Port_By_Role: No port of type $avalon_role on module $$Mod{name} . 1 
if $strict !$Port; 

return $Port; 



} 



################################################################ 
55 # Get_Sys_Signal 
# 

# This is a utility- function that works on one of our 

# def ined-by-convention %Mod-hashes (which, you certainly remember, 

# is a hash containing various useful information about each module) 
60 # 

# In particular, each module has a bunch of ports, some of which 

# have an "avalon role." Any port with an "avalon role" connects 

# to some ritualistically-named signal at the system level. 



# 

# Sometimes, given a module and an avalon role, it is useful to 

# know what system- level signal "serves" that role. As an example, 

# it is useful to be able to answer the question: 
# 

# — Which system-level signal drives the " address " -type port 

# on the module "Uart_3?" 
# 

# This function here answers that very sort of question by 

# digging the appropriate information out of the %Mod-hash you 

# pass-in (by reference, of course) . 
# 

# If you set the " $strict" -option argument, then we complain if 

# no such port is found on the indicated module. Otherwise, we 

# return "" (null) for nonexistent ports. 
# 

################################################################ 

sub Get_Sys__Signal 

{ 

my $Port = &Get„Port„By_Role (@_) ; 

return " " if J$Port; # Explicit null-string return if port doesn't exist, 
return $$Port { system_signal } ; 

} 

################################################################ 

# Get_Sys_Module__List 
# 

# This is a utility- function that works on one of our 

# defined-by- convent ion %Sys -hashes (which, you certainly remember, 

# is a hash containing various useful information about the system- 

# under -construct ion) . 
# 

# This returns a list of %Mod-hash refs. This list includes 

# -all- modules in the system, including the master. 
# 

# The astute reader will note that a call to this function 

# can be replaced by a single expression: 
# 

# values % {$$Sys{module„table} } 
# 

# But that's one ugly expression. This function adds a bit 

# of self -documentation, and a much-needed dose of object-oriented, 

# implementation-hiding, pseudo- access -method methodology. 
# 

################################################################ 

sub Get_Sys_Module_JCjist 

{ 

my ($Sys) = (@J ; 

my $module_table = $$Sys {module_table} ; # Just for nice syntax, 
return values (%$module_table) ; 

} 

################################################################ 

# Get_Sys_Slave_List 
# 

# Just like "Get_Sys_Module_List , " above, except that the list 

# you get doesn't include the master. 
# 

# Many times, this is what you really wanted. And this function 

# saves you the trouble of having to put a master-exclusion test 



# in your otherwise -tidy loop. 
# 

################################################################ 
sub Get__Sys_Slave_List 
5 £ 

my ($Sys) = (&_) ; 

my ©result = ( ) ; 

10 foreach $Mod (&Get„Sys__Module_List ( $Sys) ) 

{ 

push (©result, $Mod) unless $$Mod{Is_Bus_Master} ; 

} 

15 return ©result; 

} 

################################################################ 

# Get„Module_Port_List 
20 # 

# Just like "Get_Sys_Module_List , " above — and intended to 

# serve the same dubious code-beautif ication purpose. 
# 

# The difference is: this function gets all the %Port-hashes 
25 # out of a %Mod-hash, instead of all the %Mod-hashes out of a 

# %Sys-hash. 
# 

################################################################ 
sub Get_Module.J?ort_Jjist 
30 { 

my ($Mod) = (<£_} ; 

my $port__table = $$Mod{port_table} ; # Just for nice syntax, 
return values (%$port__table) ; 

35 } 



################################################################ 
40 # Emi t_Comment 
# 

# Emit the user-supplied string as a verilog comment directly 

# into the output file. As a courtesy, we put //-characters 

# at the beginning of every line, sparing the user the trouble, 
45 # 

# We call " ScVprint f " so the user must previously have "selected" 

# their destination verilog-file as STDOUT. 
# 

################################################################ 
50 sub Emit_Comment 
{ 

my ($comment, $ language) = (@_) ; 
$language = "verilog" if !$language; 

55 my $cstart = " — " ; 

$cstart = "// " if $language =~ / A verilog/i; 

$comment = $cstart . $comment ; 

$comment =- s | \n | \n$cstart |mg; # Put '// ' in front of every line. 

60 

fcVprint ( " $ comment \n" ) ; 

} 



################################################################ 

# Emit_Top_Comment 
# 

# Writes module -name , date-stamp, and legal notice into the 

# currently- selected output file, trilingually. 
# 

################################################################ 

sub Emit_Top__Comment 

{ 

my ($module_name, Slang) = (@_) ; 

$lang = "verilog" if i$lang; 

my $date = scalar { local t ime ()> ; 

my $magic_altera_string = *%Altera Excalibur Nios(tm)%"; 

my $top_comment=«EOM; 
// megaf unction wizard: $magic_altera_string 
//// GENERATION: STANDARD 
//// VERSION: WM1 . 0 
// Module: $module_name 
// 

// Automatically-generated file: **** DO NOT EDIT **** 

// Generated by Excalibur SOPC-Builder [$date] 

// 

$GLOBAL_COPYRIGHT__NOTICE 

// 

EOM 

$top_comment =*- s [ / / | — |mg if $lang (vhdl | ahdl) /i ; 

&Vprint ($top_comment) ; 

} 

################################################################ 

# Emit_Module_Header 
# 

# You give the name of the module ("Foo 11 ), and this function 

# emits the ritualistic top-of -module stuff, which we once would have 

# done this way: 
# 

# module Foo ( /* {&Declare_Ports_For ( "Foo" ) }*/ ) 

# /*{ &Def ine__Ports_For ("Foo" ) }*/ 
# 

# Emits the module- and port-delcarations for the named module into 

# the currently- selected output file. 
# 

# Naturally, you have to have already done a &List_Ports_For the named 

# module. 
# 

################################################################ 

sub Emit_Module„Header 

{ 

my ( $module_name , Slang, $do_bb_declaration) = (@_) ; 
$lang = "verilog" if !$lang; 



if ((Slang =~ / A vhdl/i) ) { 
ScVprint ( "LIBRARY ieee; \n" ) ; 
&Vprint ("use ieee . std_logic_1164 . all ; \n" ) ; 
&Vprint ("ENTITY $module_name IS\n" ); 
&Def ine_Ports__For ($module_name, 0, $lang) ; 
&Vprint ( "END $module__name; \n n ) ; 

fcVprint ( "ARCHITECTURE behavior OF $module__name IS\n" ) ; 



} elsif ($lang /~ahdl/i) { 

&Vprint ("SUBDESIGN $module_name\n n ) ; 
&Vprint (" <\n" ); 

&Def ine_Ports_For ( $module_name , 0, $lang) ; 
&Vprint (" )\n" ) ; 

} elsif ($lang =~ /^verilog/i) { 
# Verilog: 

my $synplify__bb_string = ' /* synthesis syn_black_box */ ' 
if $ do_bb_dec 1 ar a t i on ; 

&Vprint ("module $module_name (\n M ); 
&Declare_Ports_For ( $module_name) ; 
&Vprint ( " ) $synplify_bb„string ; \n" ) ; 
&Def ine_Ports_For ( $module_name , 0, $lang) ; 
&Vprint (" \n // synopsys translate_of f \n" ) 

if $ do_bb_dec 1 ar a t i on ; 
&Vprint { n \n n ); 
} else { 

die " Emit_Module„Header : Foul language (Slang)"; 

} 

} 

## ^ # ############################################################ 

# Emit_VHDIi_Component 
# 

# You must declare all your VHDL black-boxes ( " COMPONENT " s } in 

# the " ARCHITECTURE 11 section of your module, before the first 

# "BEGIN." OK, so be it. 
# 

# You must have previously done a &List_Ports__For -call for this 

# module. 

################################################################ 

sub Emit_VHDL_Component 

{ 

my ($comp_name) = (@_) ; 

&Vprint ("COMPONENT $comp_name IS\n" ); 
&Def ine_Port s_For ( $comp_name , 0 , " vhdl " ) ; 
&Vprint { "END COMPONENT; \n" ) ; 

> 

################################################################ 

# PBM_Assign 
# 

# Emit a simple assignment into the PBM-file (which we presume 

# to be the currently-selected output file) . 
# 

# We take special measures to avoid redundant assignments (we 

# keep our own private hash of past assignments) . We check to make 

# sure the same signal is never assigned to two different things. 
# 

# The arguments are the target- signal and the value we want 

# assigned to it. 
# 

# Also, note that we -explicitly- do nothing if the assignment -target 

# is NULL ( nn ). This deals gracefully with, for example, broadcast- 

# assignments to modules that don't have a recipient port. For example, 

# you can go ahead and &PBM_Assign the write-data bus to a module that 

# doesn*t actually have a "writedata" -type port, and it still works 

# out OK (nothing happens) . 



% Private_PBM_Assign_Hash ; 

sub PBM_Assign 

my ($ targe t_signal, $assignment_value) = (&„) ; 

return if $target_signal eq ""; # Deal with null -ass ignment , per comment, 
my $previous_assignment = $ Private_PBM_Assign_Hash — {$ targe t_signal} ; 

# Ignore truly- redundant assignments: 
return if $previous_ass ignment eq $assignment_value; 

$previous_assignment eq " " or die 11 

Inconsistent assignments to signal $ targe t_s ignal : 

($previous„assignment) and ($assignment_value) " ; 

&Vprint ("assign $target_s ignal = $assignment„value ; \n" ) ; 
$ Private_PBM_Assign_Hash {$target_s ignal} = $assignment_value; 

} 

######## ######################################################## 

# PBM_JWire 
# 

# Emit a Verilog "wire" declaration into the currently-selected 

# output file. You give the name and width of the wire you 

# want to decalre. Deals gracefully with the null wirename ( - " ) and 

# with zero-width wires: No declaration is emitted. 

# . n 

# Also allows you to pass-in an optional " $assignment" Verilog- expression, 

# so you can declare a wire and assign a value to it in one stroke. 

sub PBM_Wire 

my ($wirename, $width, $assignment) = ; 

$ width = 1 if $ width eq " " ; 

return if $width == 0; 
return if i$wirename; 

45 my Srange = &W ($ width ) ; 

&Vprint ("wire $range $wirename; \n" ) if $wirename && $width; 

&PBM_Assign ($wirename, $assignment) if $assignment; 

50 } 

################################################################ 

# Validate_And_Reserve_Address_Range 
# 

55 # Given a reference to a %Mod-hash, we compute the 

# address-range allocated to that module and make sure that 

# somebody else doesn't already live there. If so, we 

# print an error. 
# 

60 # Also, while we're thinking about the address, we do some sanity-checks. 

# That's why the %Sys-hash (ref) is also passed- in, so we can 

# check to be sure the module is in-bounds . 
# 



# We also declare the silly "&wi thin" -function for code -beauty. 
# 

################################################################ 

sub within { my ($test, $lo, Shi); return ($test >= $lo) && ($test <= $hi) ; } 

% Pr ivate_Addres s_Range_Hash ; 

sub Va 1 i da t e_And_Re s e rve_Addr e s s_Range 
{ 

my <$Mod, $Sys) = (@_) ; 

$$Mod{Base_Address} ne " " or die 

"Error: bad Base__Address setting for module $$Mod{name}" ; 

$$Mod{address„span} = 2** ( $$Mod{highest_address__bit_used} + 1) ; 
$$Mod{end_address} = $$Mod{Base__Address} + $$Mod{address_span} - 1; 

$$Mod{end_address} <= ( $$Sys {address_span} - 1) or die " 

End-address of module $$Mod{name} is greater than maximum system 
address ( $$Sys {address_span} - 1)"; 

foreach $inst (keys (%address_range_list ) ) 
{ 

my ( $min , $max) = split ( / \ , / , $ Pr ivate_Address„Range„Hash { $ ins t } ) ; 

die "Address -range conflict between $inst and $$Mod{name} . 
$inst occupies: [$min , . . $max] 

$$Mod{name} occupies: [$$Mod{Base_Address} .. $Mod{end_address} ] 
if &within ( $$Mod{Base_Address> , $min, $max) \\ 
&wi thin ( $ $Mod { end_addres s } , $min r $max) ; 

> 

$ Private_Address__Range_Hash { $ $Mod{name } } = 

" $$Mod{Base_Address} , $$Mod{end__address} " ; 

} 

################################################################ 

# Resolve_Address_Alignments 
# 

# In the PTF-file, the user can specify "dynamic" and "native" 

# addre ss -alignment s . In these cases, the system- genera tor {that'd be 

# me) needs to "do something smart" to reconcile peripherals with 

# normative data-widths . 
# 

# We can only do that after all modules have been read-in (including, 

# significantly, the master) , and some system-level info has been 

# set-up. 
# 

# Consequently, this function is called at the end of 

# ScGet__System_Data_From_PTF, after all the modules have been read. 
# 

################################################################ 

sub Resolve_Address_Alignments 

{ 

my ($Sys) = (@_) ; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
{ 

# Figure out what kind of address will ultimately be presented to this 

# module. This is slightly tricky because of the special "dynamic" cas 

# in which case we have to look at the data width. 
# 

if ($$Kod{Address_Alignment) eg "dynamic 11 ) 
{ 



# Dynamic alignment: address-type depends on the data size: 
$$Mod{address_type_used} = 

$$Mod{Data_Width} > 16 ? "word" : 

$$Mod{Data_Width} > 8 ? "halfword" : 
5 "byte" ; 

} elsif ($$Mod{Address_Alignment} eq "native") { 
$$Mod{address_type_used} = 

$$Sys{master_data_width} == 16 ? "halfword" : 
10 "word" ; 

} else { 

# "Normal" old-style alignment: 
warn ( " 

Old-style Address_Alignment ($$Mod{Address_Alignment } ) 
15 found for module $$Mod{name} . \n" ) if $$Sys {verbose} ; 

$$Mod{address„type_used} = $$Mod{Address_Alignment } ; 

} 

# When is a "dynamic" module -not- "dynamic"? When it happens 
20 # to be the same width as the master. Check width here, and set 

# a per-module flag which tells us whether to really, truly use 

# dynamic bus-sizing for this module. 
# 

if ( ( $$Mod{Address_Alignment} eq "dynamic" ) && 

25 ($$Mod{Data„Width} < $$Sys {master_data„width} ) ) 

{ 

$$Mod{is_dynamically__sized} = 1; 
} else { 

$$Mod{is_dynamically__sized} = 0; 

30 } 

# It's nice to know if the system has any dynamic bus-sizing: 
$$5ys{has_dynamic_jDus__sizing} = 1 if $$Mod{is„dynamically__sized} • 

35 # This is a handy thing to know about a module: 

$ $Mod { hi ghe s t__addr e s s_bi t _us ed } = 

$$Mod{address_type_used} eq "byte" ? ( $$Mod{Address_Width} - 1) 

$$Mod{address__type_used} eq "halfword" ? { $$Mod{Address_Width} ) 

($$Mod{Address_Width) + 1) 

40 } 



45 

################################################################ 

# Get_System_Data_JFrom_PTF 
# 

# Given a reference to a mostly-empty %Sys-hash, we read the 

50 # PTF file, build a %Mod-hash for every module and a % Port-hash 

# for every port, and stuff the results back into the %Sys 

# data structure . 
# 

# We do as much "peephole" error-checking as we can while 

55 # reading-in ports — confirming allowed values for PTF fields, 

# screening out "impossible" port types, etc. 
# 

# But there is a certain amount of checking that we -can't- do 

# until we've read-in the entire system — checing to be sure no 

60 # module's data bus is wider than the master, for example, has to 

# wait until all modules are read-in. Those kinds of checks 

# -do not- get executed here. 
# 



# Plus, we don't actually "do anything" with the data. We do 

# only pre-processing on the %Sys-hash, so that it will be 

# easier, later on, to do what we need. 
# 

################################################################ 

my %PBM_HDL_EXTENSION; 

$PBM_HDL_EXTENSION {verilog} = "v" ; 

$PBM__HDL_EXTENSION {vhdl} = "vhd" ; 

$PBM_JiDL_EXTENSION {ahdl} = "tdf" ; 

sub Get_System_Data_From_PTF 
{ 

my ($Sys, $db_Sys) = (@J ; 

# A hash of listrefs. The hash-keys are shared-port names: 
my %shared port, table ; 

#keys : shared port-names. Values: bus-group names, 
my %bus_membership_table; 
my @tri_state_bus_list = (); 

# For Perl syntax-niceness, build these hashes up in the 

# module loop, then add them to the %Sys datastructure when 

# we're all done: 
# 

my %module_table ; undef %module_table; 

################ 

# Module loop 
# 

# Accumulate a hash of direct and derived information about each 

# module. 

# When we're all done, we'll add a reference to this hash to 

# %Sys. 
# 

my $num_children = &get_child__count ($db_Sys) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++) 
{ 

my $db__Module = &get__child ($db_Sys, $child_index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules. 
################ 

# Read SYSTEM_BUIIiDER_IKrFO section 
# 

# This will form the basis for our own private cache of 

# useful info about this module. Also, now would be a good 

# time to pre-digest and validate all the settings we read 

# from the PTF file. By this I mean: Converting " TRUE / FALSE 11 

# strings into testable bits, evaluating numerical expressions, 

# and checking for illegal values . 
# 

my $db_SBI = &PTF_Get_Required_Child_By_Path ($db_Module, 

" S YSTEM_BUILDER_INFO " } 
my $sbi = &PTF_Build__Hash_From_Section ($db_SBI) ; 
my %Mod = %$sbi; 

$Mod{name} = &get_data ($db_Module) ; 

$Mod{class} = &PTF_Get_Required_J}ata_By_Path ($db_Module, "class"); 

&PBM_JPr ogress ( "Processing module $Mod{name} . " ) if $$Sys {verbose} ; 

&PTF_Check_Bool (\%Mod, " Is_Enabled" , 1) 
next unless $Mod{Is_Enabled} ; # Quit early for disabled modules. 



&PTF„Check„Bool ( \%Mod, 

&PTF_Check_Bool ( \%Mod, 

&PTF_Check_Bool ( \%Mod, 

&PTF_Check_Bool ( \ %Mod, 

&PTF_Check_Bool ( \%Mod, 

&PTF__Eval { \ %Mod , 

&PTF_Eval ( \ %Mod , 

&PTF„Eval ( \ %Mod / 

&PTF_Eval { \ %Mod , 

&PTF_Eval ( \ %Mod , 

&PTF_Eval ( \ %Mod , 

&PTF_Eval (\%Mod, 

&PTF_Eval ( \ %Mod , 

&PTF_Allow (\%Mod, 



" Inst ant iate_In_Sys tem_Module " , 1 ) 

" Uses_Regist ered__Select_Signal " , 0 ) 

" Uses_Tri_State_Data_Bus " , 0 ) 

"Has_IRQ" , 0) 
" Is„Bus_Master " , 0 ) 

"Base_Address" } 
"IR^Number" , "N/A" ) 

"Address_Width" ) 
"Data_Width" ) 
"Read__Wait_States " , "peripheral_controlled" } 
"Write„Wait_States" , " per ipheral_cont rolled" ) 
M Setup_Tinie n ) 
"Hold_Time" , "half„clock" ) 

"Address„Alignment " , "dynamic", "native" , 



"byte", "word", ■ half word" ) 



# Name module, if so far unnamed: 
$Mod{Instance_Name} = " the__ $ Mod {name} " 
if ( ($Mod{Instance_Name> eq " " 

( $Mod{Instance_Name} eq "--unknown — 



) II 



) ; 



$module_table{$Mod{name} } = \%Mod; # Put reference into system hash. 

################ 

# Xf this is the master -module, 

# set a system- level variable, and check to see 

# that this is the only one. 
if ($Mod{Is_Bus_Master> ) 

{ 

$$Sys{master_n.ame} eq " " or die " 
$$Sys{name} has multiple masters: $Mod{name} and $$Sys {master__name} u 

$ $ Sys {mas t er_name } = $Mod {name } ; 
$$Sys {master} = \%Mod; 



$$Sys {has_registered_select_signals} = 1 
if $Mod{Uses_Registered_Select_J3ignal} ; 

$$Sys {has_tri_state_data_busses} = 1 
if $Mod{Uses_Tri — State_Data_Bus} ; 



############################################################ 

# Port Loop 
# 

# Look at each port on this module. Build-up a hash 

# of useful information. For most "normal" ports, we 

# can add a corresponding port on the PBM and/ or the system. 

# Shared ports get recorded in a hash, so we can 

# add them to the system/PBM later, after all the port data 

# has been gathered for all modules. 



if (&get_child_by_path($db_Module, " P 0RT_WI RING /TYPE" ) ) { 

warn ("pbm„gen: old-style PORT_WIRING section for $Mod{name} . " ) 

if $ $ Sys {verbose } ; 
&PTP_Update_Port_Wiring_Section ($db_Module) ; 

} 

my $db_Port_„Wiring = &get_child_by_path($db_JModule, " PORT_WIRING " ) ; 



# Hashes which are included, by reference, in the %Module 

# data structure. We build them up as temporary variables 

# and stick them into the %Mod-hash at the end- -otherwise, 

# the Perl dereferencing syntax becomes impenetrable: 
5 # 

my %avalon_port_table = ( ) ; 
my %port__table = ( ) ; 

my $num_ports = &get_child_count ($db_Port_Wiring) ; 
10 for ($port_index = 0; $port_index < $num_ports; $port_index++) 

{ 

my $db_Port = &get_child ( $db_Port_Wiring, $port_index) ; 
next unless &get_name ( $db_Port) eq; " PORT"; 

15 # Whatever the PTF says about this port, we want to know. 

my $Port = &PTFJBuild_Hash_From_Section ($db__Port) ; 

$$Port{name} = &get_data ($db_Port) ; 

my $who_died = "$$ Port {name} on module $Mod{name} " ; # for errors. 

20 # Test some basic stuff: 

$$Port {direction} =~ / ^ ( input | output | inout )$ / or 

die " $who_died: Bad direction ' $$Port {direction} ; 

# Port-record has pointer to module parent, and module 
25 # record has table of all Port-records: 

$$ Port {parent} = \%Mod; 

$port_table{$$Port{name} } = $Port; 



30 



&PBM_Progress (" Processing port $$Port {name} . " ) if $$Sys {verbose} , 



# Ports -used to- have scopes . Now we can infer their scope 

# from the module's (and port's) other attributes, 
if ($$Port {scope} ) { 

warn ("obsolete port ' $$Port {name} 1 (has 1 scope '). \n" ) 
35 if $$Sys {verbose} ; 

$$ Port {scope} =~ / A (internal | external [master) $/ or 

die " $who_died: Bad scope ' $ $Port { scope } 1 " ; 

40 $$Port{is„external} = $$Port {scope} eq "external"; # Testable bool , 

} 

# Decide whether this port is esxternal or internal. We used 

# to require that the user tell us, but now we can figure it 
45 # out for ourselves : 

# 

if ( ( $Mod{ Ins tant iate_In_System_Module} ) } { 

# For modules -inside- the system-module, all their 

# avalon-ports are internal. All their non-avalon ports 
50 # are external 

$$Port{is_external} = 1 if ! $$Port {avalon„role} ; 
} else { 

# For modules -outside- the system-module, all their 

# avalon-ports are external. All their non-avalon ports 
55 # are none of our business 

$$Port{is__external} = 1 if $$Port {avalon_role} ; 

} 



60 # Some consistency-checking: 

# * Only external signals can be "shared" : 

# * All internal (or master) signals must have an avalon-role. 
die "$who_died: only external ports may be shared." 



if ( $$Port{is_shared} && 1 $ $Port { is_extemal } ); 



################ 

# What does this port connect to? 
# 

# For a "typical" system- internal module with nothing "shared, 11 

# each port gets connected to a unique, dedicated wire in the 

# system module. That wire will go to one of two places: 

# a like-named port on the PBM (for avalon signals) or be 

# promoted to a system-level port. Easy enough. 
# 

# There are two wrinkles to consider: modules which are -not- 

# instantiated in the system, and modules which have shared 

# ports . 
# 

# *** External Modules 
# 

# If the module is not instantiated inside the system, then 

# we do twp special things: 



# 

# 1) Ignore any signals which don't have an avalon_role, 

# because they're not our responsibility, anyhow. 
# 

# 2) Promote its PBM~ports to system-level I/Os with the 

# same direction and name. 



# 

# **** shared Ports 
# 

# Ports are only "shared" if they're part of a tri-state 

# bus structure. All tri-state busses are named. Here 

# are some examples of system- level signals which are part 

# of a shared tri-state bus: 



# 

# memory„bus_address 

# memory_bu s__by t e enabl en 
# 

# ide_data 

# ide_writen 



# 

# In this case, the signal names are a concatenation of the 

# tri-state bus group name and the avalon role. We don't 

# add these ports to the PBM/ system -yet-, because we don't 

# really know their widths until all the modules have been 

# processed. Instead, we just record our %Port as a "client" 

# of this shared port in a hash. Later, we'll work out 

# exactly how the shared ports show up on the system module. 
# 

if ($$Port{is„shared> ) 
{ 

die " 

Shared port $$ Port {name} on module $$Mod{name} has no 
'Avalon role' 11 

if ( ! $$Port {avalon_role} ) ; 

die " 

Shared port $$Port{name} found on module $Mod{name}, but 
module does not use tri-state data bus" 

if ( ( ! $Mod{Uses_Tri_State_Data_JBus} ) | j 
( $Mod{Tri_State_Data_Bus} eq " " ) ); 

my $shared_port = " $Mod{Tri — State_Data_JBus}_$$Port {avalon_rol 
$$Port {system„signal} = $shared_port ; 



10 



25 



# Record the fact that this %Port is a client of 

# this shared port. Push a reference to this %Port-hash 

# onto this shared-port client list: 
# 

push {@{$shared_port_table{$shared__port} } , $Port) ; 

# also record which tri-state bus group this shared port 

# belongs to. (true, you could figure it out by looking 

# at it's name, but that just sounds risky to me: 
# 

$bus_membership_table{$shared_j?ort} = $Mod{Tri_State__Data_JBus } ; 
} else { 



# This is -not- a shared port, so we make one of those 
15 # much-beloved machine -generated port names 

# (e.g. bidir port to and_ f rom_ the_lcd_.pio) . 
# 

my $ trans fer__str = ( $$Port{ direction} eq "input") ? "to" 

($$Port {direction} eq "output") ? "from" 
20 " t o_and_f r om " 



$$Port{systerru signal} = 

" $$Port {name}„$ trans f er_str\_$Mod{ Ins tance_JSTame} " ; 



} 



# Construct an inverse hash so we can look-up ports 

# -by avalon role- for this module: 
# 

$ aval on_port_t able {$$Port {avalon__role} } = $Port 
30 if $$ Port {aval on__role} ; 

################ 

# Record some useful system-level and 

# module -level information as the ports 
35 # go by: 

# 

$$Sys {master_address___width} = $$Port {width} 
if ($Mod{Is_Bus_Master} ) && 

($$Port{avalon_role} eq "address" ) ; 

40 

$$Sys{master__data_width} = $$Port {width} 
if ($Mod{Is_Bus_Master) ) && 

($$Port {avalon_role} eq " writedata" ) ; 

45 } #end: %Port-loop 

# Attach the hashes we built-up in the %Port-loop into the 

# %Mod data structure: 
# 

50 $Mod{port__table} = \%port_table; 

$Mod{avalon_port_table} = \%avalon_port_table; 

################ 

# Derived Module Info 
55 # 

# Pre-digest some useful facts about this module: 
# 

# It's nice to have a list of all tri-state busses in the system: 
push (@tri_state_Jbus_list , $Mod{Tri_State_Data_Bus} ) 

60 if $Mod{Uses_Tri_State„Data„Bus} ; 



# Predigest hold-time values: handle 11 half -clock" case. 
$Mod{hold„time_full_clocks} = $Mod{Hold„Time} ; 



$Mod{hold_time_full„clocks} = 0 if $Mod{Hold_Time} =~ /half/; 



} # End: %Mod-loop 



# Add the hashes and lists we just built into the system "database" : 
# 

$$Sys {module_table} = \%module_table; 

$$Sys{shared_port_ table} = \%shared_port__table; 
$$Sys {bus„membership_table} = \%bus_membership_table; 
$$Sys{tri_state__bus_list} = \@tri„state_bus„list ; 



################ 

# Derived system- info 
# 

# Pre-digest some useful facts about the system: 
# 

$$Sys{address_span} = 2**$$Sys{master_address_width} ; 

$$Sys{pbm_name} = $$Sys{name} . "_pbm B ; 

$$Sys{core„name} = $$Sys{name} . "_core B ; 



$$Sys{pbm__f ile} = " $$Sys {system_di rectory} /$$Sys {pbm_name} .v" ; 

$$Sys{core_f ile} = " $$Sys{system__directory} /$$Sys{core„name} .v" ; 

# Wrapper-file needs correct extension for target language. 

$$Sys{hdl_language} = lc ($$Sys {hdl_language} ) ; 

my $extension = $PBM„HDL_EXTENSION{$$Sys{hdl_language} } ; 

$extension or die "Unrecognized ' hdl_language 1 : $$Sys {hdl„language} " ; 
S$Sys{wrapper_f ile} = " $$Sys {system_di rectory } /$$Sys {name} . $extension" ; 
# Only used if AHDL: 



&Resolve_Address_Alignments ($Sys) ; 



# ... might want to put code here to figure out 

# "principal" tri-state bus... 

# This will probably be a call to some function that has 

# a bunch of heuristics. 



################################################################### 

# Get_Avalon_Requirement_Table 
# 

# Returns a handy table that we use as a verification 

# template. Then check each avalon-role port to be sure 

# it agrees with what we expect. The table should be evalled in 

# a function that has $Sys and $Mod set accordingly 
# 

# (Isn't error checking a big pain?... Code was so much 

# simpler in the Wild West} : 
# 

# It's easier to check errors if you set defaults. 

# That way you don't punish the user for supplying 

# data you know already. I've added Width Default to the table. 

# Sorry Tim, you'll have to maximize your screen to see all the 

# data. Not like the good old days with your acoustic coupler eh? 
# 

sub Get_Avalon_Requirement_Table 
{ 

my $ requirements able = 

# Avalon Role ] Slave | Master | Width Requirement 

Width Default 

# + + + 



10 



15 



20 



25 



;30 



35 



40 



45 



50 



55 



60 
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output 


input I 
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\$W = 6, 

chipselect 


| input 


| N/A 


| \i?W — l 


\$W = 1, 

regis teredselectn 


| input 


| N/A 


| \$W — i 


\$W = 1, 

if etch 


| N/A 


| output 


| \$W 1 


\$W = 1, 

memis32bits 


| N/A 


| input 


| \$w 1 


\$W - 1, 
data 


| inout 


| N/A 


| \$W <= \$\$Sys 



\$W = \$\$Sys{master__data_width}, 

readdata I output | input 

\$W = \$\$Mod{Data_Width} , 

writedata | input | output 

\$W = \$\$Mod{Data_Width} , 
address 



\$W == \$\$Mod{Data_Width} && 

\$W <= \$\$Sys{master_data_width} 



\$W == \$\$Mod{Data_Width} && 

\$W <= \$\$Sys{master„data_width} 



I input I output | \$W > 0 ScSc . n 

1 \$ w <= \$\$Sys{master_address_width} 

\$W = \$\$Mod{Address_Width} , 

#'*Turn our pretty text-table into a bunch of code-useful hashes: 
# 

#now some hashes; 
my %required_slave_dir; 
my %required_master_dir; 
my %width_requirement ; 
my %width_de fault, • 



$width_condition , 



$requirement_table =~ s/\s+/ /sg; 

foreach $req (split ( / \s*\ , \s* /s , $requirement_table) ) 

my ($role, $slave_dir, $master_dir, 

$width_default_string) = 

split (/\s*\|\s*/s, $req) ; 

$required slave_dir ($role) = $slave_dir unless $slave„dir eq «N/A« ; 

$requiredlmaster„dir ($role) = $master_dir unless $master_dir eq "N/A ; 

$width__requirement {$role} = $width_condition; 

$width_default {$role} = $width_def aultjtring; 

} 



my %return_Jiash; 

$return_hash{required_slave_dir} = \%required_slave_dir ; 
$return_hash{reo^ired„master„dir} = \%required_master_dir ; 
5 $return_hash{width_rec^uirement } = \%width_reguirement ; 

$retum_hash{width_default} = \%width_def ault; 

return ( \%return_hash) ; 

} 

10 

################################################################ 

# Check„Avalon_Rules 
# 

# Given a (the?) system-hash, this function loops over the 

15 # data structure module -by -module and port -by-port and checks 

# that no system-level Avalon rules have been violated. 
# 

# These are rules like: All 11 chipselect " -type ports on a module must 

# be 1 bit wide, all "address" -ports must be inputs, and all 
20 # data ports must be narrower than the masters 1 . 

# 

# This function replaces the section of inline-code formerly known 

# as "The Parade of the Port Types. 11 
# 

25 ################################################################ 
sub Check_Avalon_Rules 
{ 

my ($Sys) = <@_) ; 

30 my $requirement_hash_table = &Get„Avalon__Reqnirement„Table ; 

my %required_slave_dir = % {$requirement_hash_table->{required_slave_dir} } ; 
my %required_master__dir = % { $rea^irement_hash_table->{required_master„dir} } ; 
my %width_requirement = % { $requirement_hash_table-> {width__requirement } } ; 
35 my %width_de fault = % {$requirement_hash_table->{width_def ault } } ; 

# Now consider each avalon-port on each module 

# and see if it lives up to our expectations. 

# If port is not defined, set it to default value. 

40 

foreach $Mod (&Get_Sys_Module_Iiist ($Sys) ) 
{ 

my $avalon_port_table = $$Mod{avalon__port_table} ; 
foreach $role (keys (%$avalon__port„table) ) 
45 { 

my $Port = $$avalon__port_table{ $role} ; 
my $W = $ $Port {width} ; 

my $required_dir = $$Mod{Is_Bus_Haster} ? \%requir edemas ter__dir : 
50 \ % r e qu i r e d_s 1 ave_di r 

#set default width 
eval ($width_default {$role} ) 
if ($W eq ,,n ) ; 

55 

#set default direction 

$$Port {direction} = $$required_dir { $role} 
if ($$Port {direction} eg ""); 

60 die " 

Illegal avalon-role : $role 

for port $$Port{name} on module $$Mod{name} . " 
if ( ! $$reguired_dir{$role} ) ; 



die " 

Illegal direction*. $$Port {direction} . 
Expected : $ $required_dir { $role } 
for port $$ Port {name} on module $$Mod{name} . " 
if ($$Port {direction} ne $$required_dir{ $role} ) ; 

my $width_ok = eval ($width_requirement{$role} ) ; 

die "Bad check-expression: $width__requirement { $role} ($@) " if $@; 

die " 

Illegal width: $W 

for port $$Port{name} on module $$Mod{name} . " 
if ( ! $width_ok) ; 

################ 

# Per-port Consistency-checks 
# 

# Does this port agree with things that were said in the 

# module 1 s SBI section? 
# 

if ($role =~ /data$/) { 

$$Mod{Data_Width} == $$Port {width} or die 11 

Width of data port $$Port{name} ( $$Port {width} ) is inconsistent 
with ' Data_Width' setting for module $$Mod{name} . " ; 

} 

if ($role eq "address") { 

$$Mod{Address_Width} == $$Port {width} or die " 

Width of address port $$Port{name} { $$Port{ width } ) is 
inconsistent with * Address_Width ' setting for 
module $$Mod{name} , " 

} 



# Half -clock hold-time only allowed with zero setup-time: 
if ( <$$Mod{Hold_Time} =~ /half/)) { 

$$Mod{Setup_Time} == 0 or die " 

Error in module $$Mod{name} : half-clock ' Hold_Time' setting 
allowed only if r Setup_Time ' is 0 (zero)."; 

} 

next if $$Mod{Is_Bus„Master} ; # The following checks are for mere slaves. 

################ 

# Funny Setup /Hold Rule 
# 

# Here 1 s the rule : 
# 

# — If you have a nonzero hold- time, then you get a nonzero 

# setup-time, whether you asked for one or not. 
# 

# Here's the explanation: 
# 

# You may recall that the masters 1 readn- and writen- signals come 

# directly from the Q-output of registers. Timing-wise, this is 

# a good and happy thing. Peripherals which don't explicitly request 

# setup/hold times get the masters' registered strobe signals, and 

# life is good. 
# 

# But now consider the plight of the poor module who requests 

# setup/hold time. Necessarily, he now gets his own customized 



# (narrower) version of the read- and write-strobes . It would be 

# oh-so-nice if his custom strobes also came directly from Q-outputs 

# of registers. (And, I note, it would also make the 

# strobe-customization logic easier for your humble implementor) . 

# So now we have the custom readn- and writen-strobes coming from 

# register outputs. But, obviously, this happy register introduces 

# a one-clock delay between the time we decide to assert the custom 

# strobe and the time it gets asserted. That's fine — we have 

# (at least) one clock-cycle of slack before we need to assert the 

# strobe--as long as there's a (nonzero) setup-time. That gives 

# us the clock we need to "customize" and still have a register. 

# So. Phrased concisely: 
# 

# Custom strobes want registers 

# registers imply delay 

# nonzero setup-time accomodates delay 
# 

# — > custom strobes need a nonzero setup-time. 
# 

# We print a warning when we encounter such a case. 
# 

if ( ($$Mod{Setup_Time} == 0) && 

($$Mod{hold_time_full_clocks} > 0) 
) 

{ 

$$Mod{Setup__Time} = 1; 
warn ( " 

Setup- time (1 clock) automatically added for module $$Mod{name} 
Modules with nonzero hold- time automatically get at least 
one clock of setup-time . \n 

") ; 

} 

# Some extra module-level consistency-checking between 

# "System Builder Info" and port-types. 
# 

&Validate_And_Reserve — Address_Range ($Mod, $Sys) ; 

die "Module $$Mod{name} 'Has_IRQ', but no pin is of type l irq'." 
if $$Mod{Has_IRQ} && ! $$avalon_port„table {irq> ; 

die "Module $$Mod{name} has an irq-pin, but 1 Has_IRQ ' is FALSE." 
if I $$Mod{Has_IRQ> && $$avalon„port_ table {irq} ; 

die "Module $$Mod{name} has word-alignment, but master is not 32 bits 
if {$$Mod{address_type_used} eg "word" && 
$$Sys{master_data_width} < 32 ) ; 

die "Module $$Mod{name} : Data is too wide for dynamic alignment." 
if ($$Mod{is_dynamically„sized> && 

$$Mod{Data_Width} > ( $$Sys {master_data_width> / 2) ) ; 

die "Module $$Mod{name} : must set SBI/Uses__Registered_Select_Signal . " 
if ( ! $$Mod{Uses__Registered„Select_Signal} && 
S$avalon_port_table{registeredselectn} ) ,- 

die "Module $$Mod{name} : peripheral controlled wait \n" . 
"not supported for registered chip selects \n" 
if ($$Mod{Uses_Registered_Select_Signal} && 

( ($$Mod{Read_Wait_States} =- /peripheral_controlled/i ) | | 
($$Mod{Write_Wait_States> =~ /peripheral_controlled/i) ) 
); 



#hold time means theres a setup time, 

die "Module $$Mod{name> : peripheral controlled wait not\n" . 

"supported for peripherals with non-zero setup and/ or hold times\n' 
if ( ($$Mod{Setup„Time} ) && 

( ($$Mod{Read_Wait_States} =~ /peripheral_controlled/i) || 
($$Mod{Write_Wait_States> =~ /peripheral_controlled/ i ) ) 
} ; 

die "Module $$Mod{name} : can't find ' registeredselectn 1 -type port." 
if ($$Mod{Uses_Registered_Select_Signal} && 
I $$avalon_jport_table {regis teredselectn} ) ; 

my $Port_writen = $$ aval on_port_ table {writen} ; 

die "Module $$Mod{name} : shared writen port illegal if setup/hold > 0. 
if C$$Port_writen{is_shared} 

($$Mod{Setup__Time} + $$Mod{hold_time_f ull_clocks} > 0) ); 

my $Port_readn = $$avalon_jport_t able {readn} ; 

die "Module $$Mod{name} : shared readn port illegal if setup/hold > 0 . ff 
if ($$Port_readn{is_shared) && 

($$Mod{Setup_Time} + $$Mod{ ho ld__time„full_c locks } > 0) ); 

# ... Add more, please. . . 

# Check: 

# Uses_Registered_Select_Signal vs. actual "registeredselectn" ports 

# Uses„Tri_State„Data_Bus vs . actual shared/ data ports . 

# if principal bus declared, system -should- have tri-state busses. 

# principal tri-state bus must be as wide as CPU. 

# if we have principal bus, at least one module must be on it. 

# You may -not- have shared readn /writen signals with nonzero 

# setup/hold times. 

# system data width should be only -exactly- 16 or 32, 
} # End: $Mod-loop 

} 

################################################################ 

# Create_SysteituPort_Lists 
# 

# Given a reference to a (the?) system-hash, this function 

# builds a "List_Ports_For- " definition of the system-module 

# and the PBM. 
# 

# For the most part, this is easy: We look through the list of all ports 

# on all modules. If any have an avalon-role, then their complement 

# shows up on the PBM. If any are "external", then they show up on 

# the system module. 
# 

# The one nasty little wrinkle is shared-ports. We have kept a separate 

# record of all shared ports, and now we use it to compute the appropriate 

# width- -then we can add the shared ports to both the PBM and system module 
# 

# And then shared ports have one more trick: The width of shared address 

# ports. For most shared ports, the width is just the width of the largest 

# client. For address ports, we need to take -alignment- into account. 
# 

################################################################ 

sub Create_System__Port_Lists 

{ 

my ($Sys) = <@_) ,- 



# The elk and reset_n ports are magic. They -always- appear 



# on both the system and the PBM. 
# 

$$Sys {pbm_list_ports_f or_string} = "elk | 1 | input, 

reset_n | 1 j input,"; 
5 $$Sys {system__list_ports_f or_string} = $$Sys {pbm_list_ports_f or_string} ; 

foreach $Mod <&Get_Sys_Module_List ($Sys) ) { 

foreach $Port (&Get_Module„Port_List ($Mod) ) 
{ 

10 next if $$Port{is_shared} ; # Do shared ports later. 

if <$$Port{avalon_role} ) 
{ 

my $pbm__port_dir = $Complementary_Di recti on {$$Port {direction} } ; 
15 my $pbm_port_ description = 

" $$Port {system_signal} | $$Port {width} | $pbm__port_dir , " ; 

$$Sys {pbm_list_ports_f or_string} .= $pbm_port_description; 
$$Sys {system_l i stupor ts_for„st ring} .= $pbm_port_de script ion 
20 if ( ! $ $Mod{ Instantiate„In„System_Module> ) ; 

} else { 

# OK, this port doesn't have an avalon role. For 

# externally-instantiated modules, we just ignore it. 
25 # for internally- instantiated modules, we promote it 

# to a top-level system port with the -same- direction 

# as the port on the module. 
# 

# All non- aval on -type ports must be external 
30 $$Sys {systern_list__j?orts_f or_string} . = 

n $$Port{system_signal} | $$Port {width} [ $$Port {direction} , " 
if ($$Mod{Instantiate_In_System_Module} ) ; 

} 

} # End: $Port-loop 
35 } # End: $Mod-loop 

################ 
# Now do the shared ports . 
# 

40 my $shared_port_table = $$Sys {shared__port_table} ; 

foreach $ share d_port_name (keys ( % $ shar ed_por t_t able) ) 
{ 

my $client_list = $$ shared jport_t able { $shared_port_name } ; 

45 

# hook, at all the clients. Build-up enough information 

# to calculate the port-width (below) . Also, check that 

# all the clients have a consistent direction, avalon-role, etc. 
# 

50 my $client_dir = " " ; 

my $shared_port_role = " " 
my $shared_port_width = 0; 
foreach $client_j)ort (@$client__list ) 
{ 

55 $shared_jport_role = $$client_port{avalon_role} if ! $shared_port_role; 

$client_dir = $$client_j?ort {direction} if ! $client_dir ; 

$client_dir eq $$client_port {direction} or die " 

Shared port $shared _port_name has client $$client„port {name} 
60 (direction is $$client_port {direction} ; expected $client__dir) . " 

$shared„port„role eq $$client_port {avalon_role} or die " 

Shared port $shared_port_name (role: $shared_port_role) has 



client $$client _j)ort{name} (role: $$client _port {avalon_role} ) . " 
################ 

# Computing the width is tricky, but only for address ports. 

5 # For everybody else, it's just the width of the widest client. 

# For address ports, we have to take into account the fact that 

# -all- shared address ports present the full byte-address, 

# all the way down to A[0] {even if none of the clients use 

# A[0] ) . Thus, the width of the shared port might be greater 
10 # than the width of any (all) of the client address ports. 

# 

if ( $shared__port_role eq "address") 
{ 

# Address port. Now we must inquire about its ancestry : 
15 my $parent_module = $$client_port {parent} ; 

my $net_width = $$parent_module{highest„address„bit_used} + 1; 

$shared_port_width = $net_width 

if $net_width > $shared_jport_width; 
20 } else { 

# Normal, non-address port: Width is just the max of clients: 
# 

$shared_port__width = $$client_port {width} 

if $$client_port {width} > $shared_jport_width; 

25 } 

} # End: Client-port loop. 

################ 

# Shared data-bus ports . 
30 # 

# There's one weird circumstance where a shared-port is actually 

# wider than the max of its clients : When it ' s the main 

# tri-state data bus to the CPU. In this one case, the bus 

# must be at least as wide as the CPU 
35 # 

if { {$$Sys{Principal_Tri_State_Data__Bus} ) && 
($shared_port_role eq "data" ) && 

($shared„port_name =- /"$$Sys{PrincipaLTri_State_Data_Bus} /) ) { 
$ shared _jport_width = $$Sys {master_data__width} ; 

40 } 



# Shared ports always have an aval on -role, so they always show up 

# on the PBM as the -complimentary- match for the client-port. 

45 # also, shared ports are always external, so they are always promoted 

# to like-named system-level ports. 
# 

my $shared__port„dir = $Complementary_Direction{$client_dir } ; 

my $ shared _jport_description = 
50 " $shared_port_name | $ shared_port_width ( $ share d_port_dir , " ; 



55 



} 



$$Sys{pbm_list_ports_f or„string} .= $shared_port_description; 
$$Sys{system_list_ports_for_string} .= $shared_port_description; 



# We've built those nice list-ports-f or string, so let's use 'em: 
# 

&List_Ports_For ( $$Sys {name} , $$Sys {system_list _ports_f or_string} ) ; 

&List__Ports_For ($$Sys {core_name} , $$Sys (system_l i stupor ts_for_st ring} ) ; 
60 &List_Ports_For ( $$Sys {pbm_name} , $$Sys {pbm__list_ports_f or_string} ) ; 



################################################################ 



# Core — Emit_Wire_Declarations 
# 

# The system's "core" module is just a bunch of instances all wired-up 

# together. Some "wires" in the core-module are actually external 

# ports, so they're already declared in the cores' module 

# declaration. Other "wires" are actual Verilog wires which we 

# need to declare. They are the internal (module-to-module) signals 

# which are never seen from the outside. 
# 

# This function emits wire-delcarations for all the internal signals. 
# 

# It's easy to identify all the internal signals: there's one for 

# every module-port scoped "internal" or "master" — in other words, 

# there's a core-level wire for every non-external port on every 

# module in the system. That makes it pretty easy: 
# 

################################################################ 

sub Core_Emit_Wire_Declarations 

{ 

my ($Sys) = <©_) ; 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (&Get_Module_Port_Iiist ($Mod)) 
C 

next if $$Port{is_external} ; 
my $range = &W{ $$Port {width} ) ; 

&Vprint ("wire $range $$Port {system_signal} ; \n" ) ; 

} 

} 

} 

################################################################ 

# Core_Emit„Instances 
# 

# The system's core-module is a bunch of instances all wired-up 

# together. This function emits the instantiation-statements 

# for all system-modules, including the PBM. 
# 

# In general, any given port on a module does not necessarily 

# connect to a core-level signal (wire) of that same name. 

# The correspondence of what-signal-goes-to-what-port , though, 

# is built-in to the %Sys -database hash. We extract this 

# information and use it to instantiate each module in the 

# system. 
# 

################################################################ 

sub Core_ Emit_Instances 

{ 

my ($Sys) = (&_) ; 
################ 

# Start with an instantiation of the PBM. 
# 

# Note that the PBM doesn't appear on the system's {module_table} . 

# Note also that all the ports on the PBM -do- connect to like-named 

# signals at the core-level. This makes instantiation a snap: 

&Instantiate_And„Connect { $$Sys {pbm_name} , " the_$$Sys {pbm_name} " ) ; 
################ 

# Now instantiate all the "regular" modules. But, before we do, 

# go through their ports and build up a correspondence ("exception") 

# table: 



# 

f oreach $Mod ( &Get„Sys_Module_Lis t ( $ Sys ) ) 
{ 

# Skip external modules, of course. 

next unless $ $Mod{ Inst ant iate_In_System_Module } ; 

my $list_ports__f or_string = " " ; 
my % except; 

undef %except; # Superstition, I have no idea if this is called-for, 

f oreach $Port (&Get_Module_Port__List ($Mod)) 
{ 

$except{$$Port {name} } = $$Port {system_signal} ; 
$list_ports_f or_string .= " 

$$Port{name} | $$Port {width} | $$Port {direction} , " ; 

} 

&List„Ports_For { $$Mod{name} , $ lis tjior t s„f or_s t ring) ; 

&Instantiate_And__Connect ($$Mod{name} , " the„$$Mod{name} " , " " , \%except) 

} 

} 

################################################################ 

# PBM__Emi t__Dynamic_Bus_S i zer 

# 

# The dynamic bus-sizer makes any narrow peripheral "look like" 

# it's full-width memory. For example, if you connect an 8-bit 

# memory device to a 32-bit master using DBS , the CPU will 11 see" 

# a full 32-bit value every time it does a LD- from the device, 
# 

# This is accomplished, of course, through a bunch of sequential 

# logic (the DBS) , which (in this example) fetches four successive 

# bytes from the memory, assembles them into a full -width word, 

# and presents it to the CPU (all the while the CPU has been held 

# in a wait-state, of course) . 
# 

# A similar thing happens during write-operations . When 

# writing a 32 -bit value to 8-bit memory (for example) , the CPU will 

# wait while we execute four successive write-operations to the 

# memory. The DBS-logic is sensitive to the fact that sometimes 

# the CPU will execute a narrow-write (e.g. a byte-write) . In these 

# cases, the DBS-logic is smart enough to execute only one 

# write-cycle. 
# 

# Note that all of our "successive read operations" or "successive 

# write operations" are subject to the bus-timing (wait states, 

# setup/hold-times, etc.) for the target peripheral. In other words, 

# each sub-operation of the DBS-unit is a full-fledged bus transaction 

# controlled by the wait-state generator. You could, then, think 

# of the DBS-operation being "laid on top of" the regular wait-state 

# logic . 
# 

# FYI, dynamic bus sizing is very handy for memory- type devices, 

# but doesn't make much sense for register-controlled peripherals 

# (e.g. UARTs) . 
# 

# This function here creates the dynamic bus-sizing logic. 

# Note that there are, really, two independent DBS-units --one 

# of which handles byte-wide peripherals, the other handles 

# halfword-wide peripherals. 
# 

# KNOWN LIMITATION: 



# If you have an 8 -bit memory and you do a 16 -bit write to it 

# (any ST16 instruction) — you lose. 

# 3 out of 3 engineers agree that DBS should handle this case. 

# I'll do it when everything else works 
# 

# 

#########################################################^###### 

sub PBM_Emit_Dynamic_Bus_Sizer 

{ 

my ($Sys) = (©_) ; 

&Emit_Comment ( " \n Dynamic Bus Sizing \n"); 
################ 

# First, gather-up a list of all dynamically- si zed modules. 

# segregate by 8- and 16-bits wide: 
# 

my @dbs_8_modules = ( ) ; 
my £dbs__16_modules = {); 

foreach $Mod (&Get_Sys„Slave_List ($Sys) ) 
{ 

next if ! $$Mod{is_dynamically_sized} ; # Dynamic-only, please. 

if ($$Mod{Data_Width} <= 8) { 
push (@dbs_8_modules, $Mod) ; 

} elsif ($$Mod{Data„Width} <= 16) { 
push (@dbs_16_modules, $Mod) ; 

} 

} 



################ 

# Or-together relevant peripherals' active signals. This 

# tells us "when to go." 
# 

# The result is a signal called "dbs_active, 11 which 

# is true whenever the currently- selected (active) peripheral 

# uses dynamic bus-sizing. 
# 

# Note that this is -not- a state- or sequencing-bit. It 

# doesn't "say" where in the DBS-process we are. We have other 

# bits, later, which do that. 
# 

# We start the active-list off with "1'bO" as a trick to make everything 

# work out, even when the lists are empty. 
# 

my @dbs_8_active_signals = ("l'bO"); 
my @dbs_16_active_signals = ("l'bO"); 

foreach $Mod (@dbs_8_modules ) 

{push (@dbs_8_active_signals, $$Mod{internal_active_signal} ) } 
foreach $Mod (@dbs_16_modules) 

{push {@dbs_16_active_signals, $$Mod{internal_active_signal> ) } 

&PBM„Assign ( "(abstractive" , join ( " (| " , @dbs_8_active_signals ) ) 

&PBM_Assign ( "dbs_16_active" , join ( " || , @dbs_16_active„signals) ) 

&PBM_Wire ( " dbs_active" , 1, "dbs_8_active |j dbs_16_active" ) 

################ 

# Sequencing. 
# 



# We need to answer two questions : 
# 

# 1) When do we start a DBS-operation? 

# 2) When do we "advance" to the next sub-operation (chunk)? 
# 

# Well, we start a new operation (1) when: 
# 

# la) The active peripheral needs dynamic bus-sizing. 
# 

# lb) It's the start of a new bus -transaction 

# (indicated by the "bus__transaction_start " signal, 

# which is computed by the wait-state generator. 
# 

# lc) There's not some other special, weird c i cruras tance- -like 

# narrow writes or "if etch" going on which preclude the 

# need for a dynamic operation. 
# 

# And we advance to the next chunk (2) at the end of each 

# bus cycle. Happily, the wait-state generator also indicates 

# this by computing the signal "bus„cyc legend" . 
# 

# 

&PBM_Wire ( n bus__cycle__end" ) ; # Declared here, computed later 

&PBM_Wire ( "bus_tr ansae tion_s tart " ) ; # Declared here, computed later 

my $be_bus = &Get_Sys_Signal ( $$Sys {master} , "byteenablen" ) ; 
&PBM_Wire ( "writ e_is_nar row" , 1, 
" | " . $be__bus) ; 

if ($$3ys{master„data__width) == 32) { 
ScPBM_Wire ( "write_is_narrow_16 11 , 1, 

"write_is_narrow && ( ($be_bus\ [3\] == $be__bus\ [2\ ] ) && 

($be__bus\[l\] == $be_bus\ [0\] ) ) 



&PBM_Wire ( "dbs_8_half_start " , 1, " 

dbs_8_active && 
bus_transaction„start && 
( wr i t e_i s_narrow_l 6 ) " ) ; 

} 



&PBM_Wire (*dbsjjull_start n , 1, " 

dbs_8_active 

bus_transaction_start && 
(~write_is_narrow) " ) ; 

my $if etch_signal = &Get_Sys„Signal ($$Sys {master} , if etch) ; 

&PBM_Wire ( " dbs_16_start " , 1 , " 

dbs_l 6_ac t ive && 
bus_t ran saction_s tart && 
(~$if etch_signal) && 
( -wr i t e_i s„nar r ow ) " ) ; 

################ 

# Sequencing registers 
# 

# Here are the signals we must come up with: 
# 

# dbs_8_byte„{ 0,1,2,3} 

# dbs_16_halfword_{0 , 1} 
# 

# — and— 
# 

# dbs_8_write_byte_{0,l,2,3} ("0" not actually produced) 



# dbs_16_write_halfword_{0, 1} {"0" not actually produced) 

# (I think, in the absence of narrow writes, these are just 

# equivalent to the non-write versions) . 
# 

5 # dbs_wait_asserted 
# 

my @dbs_wait_asserted_terms = ("l'bO"); # "l'bO" fixes empty list. 

if (scalar (@clbs_8_modules) } 
10 { 

# How many additional bus cycles? 3 or 1, for 32- and 16 -bit masters. 

# These cases are similar-enough that it's tempting to make 

# one piece of code that builds both, but I'm just going to break 

# them into separate cases for clarity: 
15 # 

if ($$Sys{master_data__width> == 32) 
{ 

ScPBMJtfire ( " dbs__8_byt e„3 " ) ; 
&PBMJtfire ( ,1 dbs_8_by te_l n ) ; 



20 



&Delay ("out = dbs_8_state_byte_3 , 

sync__set = dbs_8_full_start , 

sync_reset = bus_cycle_end, 

reset = , 
25 «); 

&Delay ("out = dbs__8_byte_2 , 

in = dbs__8_state_byte_3 , 

enable = bus — cycle_end, 

30 reset = , 

11 ) ; 

# Two versions of byte-1 signal, because it can be set from 

# two different sources: The continuation of a 4-byte 
35 # operation, or the start of a two-byte operation. 

# 

ScDelay {"out = dbs_8_continue_byte_l , 

in = dbs_8_byte_2 , 

enable = bus_cycle_end, 

40 reset = , 

") ; 

&Delay ("out = dbs_8_state_byte_l , 

sync__set = dbs__8__half_start , 
45 sync__reset - bus_cycle__end, 

reset = , 

") ; 

&Delay ("out = dbs_8_byte_0 , 

50 in = dbs_8_continue_byte_l | | dbs_8_state_byte_l , 

enable = bus_cyc legend, 

reset = , 

") ; 

55 &PBM_Assign ( "dbs_8_byte_3 " , "dbs_8_f ull_start || 

dbs_8_state_byte_3 " ) ; 

&PBM_Assign ( "dbs_8_byte_l " , "dbs_8 _half_start | | 

dbs_8_state_byte_l | j 
dbs_8._continue_byte„l " ) ; 



60 



&PBM_Wire ( " dbs_8_wait_asserted" , 1 , 

"dbs„8_byte_3 || dbs_8_byte_2 j| dbs„8_byte_l" ) ; 



} else { 

# 16-bit master 



&PBM_Wire ( " dbs_8„by te_l " ) ; 

StDelay ("out 

sync„set 
sync_reset 
reset 
") ; 

&Delay {"out 
in 

enable 
reset 
") ; 

5cPBM_Assign ( " dbs_8_byte_l ,l , "dbs„8_full_start | \ dbs_8_state_byte_l " ) 

# Pedantic renaming for documentary purposes. I hope you're happy. 
# 

&PBM_Wire ( " dbs_8_wait_asserted" , 1 , " dbs_8 _byte_l " ) ; 

} 

push (@dbs_wait_asserted_terms , ,, dbs_8_wait_asserted" ) ; 
} # End: registers for dbs„8_modules 

if (scalar (@dbs_16_modules) ) 
{ 

&PBM_Wire ( " dbs_16_half word„l " ) ; 

&Delay ("out 

sync_set 
sync_reset 
reset 
") ; 

&Delay ("out 
in 

enable 
reset 
") ; 

&PBM__Assign { "dbs_16_halfword__l " , 

"dbs_16_start || dbs_16_state_halfword_l" ) ; 

# Pedantic renaming for documentary purposes. I hope you're happy. 
# 

&PBM_Wire ( "dbs_16_wait_asserted" , 1 , "dbs_16_half word_l » } ; 
push (@dbs_wait_asserted_terms , " dbs_16„wait_asserted" ) ; 

} 

&PBM_Wire ( "dbs_wait_asserted" , 1, joint" || " , <Mbs_wait_asserted_terms) ) 

################ 

# Address -output 
# 

# The DBS-unit, of course, has to compute "altered" addresses 

# for presentation to the client peripherals. We compute 

# separate altered addresses for the DBS-8/16 units. 
# 

# We also compute a "mixed" version of the address, which we 



dbs_8_state_byte_l , 
dbs_8_f ull_start , 
bus_cycle_end, 



dbs_8_byte_0 , 
dbs_8_state_byte_l , 
bu s _cy c 1 e_end , 



dbs_16_state_half word_l , 
dbs_16_start , 
bus_cy c 1 e_end , 



dbs_16_halfword_0 , 
dbs_16_state_halfword_l , 
bus__cyc 1 e„end , 



# make available to shared busses which contain -both- dynamically- si zed 

# 8- and 16 -bit peripherals (I expect most systems will have no such 

# bus, but we compute the address for it here, anyhow) . 
# 

# Of course, these addresses only differ in the low bit(s) 

# from the original address. 
# 

# 

# Since the rules which apply to byte-enable distribution are 

# similar (though simpler) , we do "adjusted" be_n-computation 

# at the same time . 
# 

my Ssys_addr_signal = &Get_Sys_Signal ( $$Sys{master} , "address"); 

my $sys_ be_signal = &Get_Sys_Signal ( $$Sys {master} , "byteenablen" ) ; 

if (scalar (@dbs_8_modules) ) 
{ 

# We alter the low 1 or 2 address bits, depending on whether this 

# is a 16- or 32-bit system: 
# 

if ( $$Sys {master__data_width} == 16) 
{ 

$address„lsbs_width = 1; 

&Mux ( "dbs_8_address_lsbs, type=unary , declare=l, w=l, 

dbs_8_byte_l --> 1 ' bl , 
dbs_8__byte_0 --> 1'bO, 

--> $sys_addr_signal\ [0] , 

") ; 

} else { # 32-bit system 
$address_lsbs_width = 2; 

&Mux ( " dbs_8__a0 , type=unary, declare=l, w=l, 

dbs_8_byte_3 — > 1 'bl, 
dbs„8_byte_2 — > 1'bO, 
dbs„8_byte„l — > 1 'bl, 
dbs_8Joyte__0 — > 1'bO, 

— > $sys_addr — signal \ [0] , 

11 ) ; 

# For 3 2 -bit systems, we want to leave bit 1 of the address 

# alone whenever this is a "narrow_16" access. 
&Mux ( " dbs_8_al_raw, type = unary , declare=l, w=l, 

dbs_8_byte_3 — > l'bl, 
dbs_8_byte_2 — > l'bl, 
dbs_8_byte_l — > 1'bO, 
dbs_8_byte__0 — > 1'bO, 

— > $ sys_addr_s ignal\ [ 1 ] , 

") ; 

&:Mux ("dbs„8_al, type -unary, declare=l, w=l, 

write_is_narrow__ 16 --> $sys_addr_signal\ [1] , 

— > dbs_8_al_raw" ) ; 

&PBM„Wire ( " dbs_8_address_lsbs " , 2 , " {dbs_8„al , dbs_8_a0 } " ) ; 

} 

my $high_range = " $$Sys {master__address_width} - 1 : $address„lsbs_width" 
my $high„segment= " $sys_addr__signal \ { $high_range] " ; 

&PBM„Assign ( " dbs_8_address " , n { $high__segment , dbs„8_address_lsbs } " ) ; 



if ( scalar (@dbs__16_modules) ) 
{ 



# This must be a 32-bit system, and we alter address-bit 1. 

# Note that, by definition, this is a half word-aligned 

# address, so A[0] is niether computed nor distributed 

# with this address. 
# 

&Mux ( "dbs_16_address_lsb, type=unary, w=l, declare=l, 
dbs_16_halfword_l — > l'bl, 
dbs„16_halfword_0 --> 1'bO, 

— > $ sys_addr_s ignal \ [ 1 ] , 

") ; 

&PBM_Assign { "dbs„16_address " , " { 

$sys_addr_s ignal \ [$$Sys {master_address_width} -1 : 2], 
dbs_16_address„lsb} " ) ; 

# If we are accessing halfword-0, then present be [1:0] to the 

# peripheral. If we are accessing halfword-1, then we present 

# be[3:2] instead. 
# 

&Mux ( " dbs_16_be_n_lsbs , type= unary, w=2 , declare=l , 

dbs_16_halfword_l — > $sys_be_signal\ [3 : 2 ] , 
— > $sys_be__s ignal \ [1: 0] , 

") ; 

&PBM_As s i gn ( " dbs_l 6_be_n " , " { 

$ sys_be_s ignal \ [ 3 : 2 ] , 
dbs_ 16_be_n_lsbs} n ) ; 



} 

# Create a verison of "adjusted" address suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# address value gets distributed on shared address ports. Also 

# create an "adjusted" version of the byte-enable signals. 
# 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the "I'bO" trick, above. 
# 

&Mux ( " dbs„adjusted_address , 
type = unary, 

w = $$Sys{master_address_width} , 
dbs_8_active — > dbs_8_address , 
dbs_16_active — > ( {dbs__16_address , 1 ' bO } ) , 
— > $sys_addr_signal, 

") ; 



&Mux ( " dbs_ad j u s t ed_be_n , 
type = unary, 
w =4 

dbs_16_active dbs_16__be_n, 

— > $ sys_be_s ignal , 

") ; 



################ 

# Read-data -- registers and as semb led- output . 
# 

&PBM_Wire ( "bus_cycle_data_ready u ) ; # declared here, computed later. 



if ( scalar ( @dbs__16_modules ) ) 
{ 

&Delay ("out = held_halfword_l , 

in = dbs_16_muxed_input , 

w = 16, 



enable = (dbs_16_halfword_l bus_cycle„data_ready) , 
reset = , 
" ) ; 

&PBM_Assign ( " dbs_l 6_output " , " {held_halfword_l, dbs_16_muxed„input} " ) ; 

f ( scalar ( @dbs_8_modules ) ) 

ScDelay ("out = held__byte_3 , 

in = dbs_8_muxed_input , 

w = 8 f 

enable = (dbs_8„byte_3 && bus_cycle_dat already) , 
reset = , 
"> 

if ($$Sys{master_data_width} == 32); 

&Delay ("out = held_Jbyte_2 , 

in = dbs_8_muxed__input , 

w = 8 , 

enable = (dbs_8_byte_2 && bus_cycle_data_ready) , 
reset = , 
") 

if ($$Sys{master_data_width} == 32); 

&Delay ("out = held_byte_l, 

in = dbs_8_muxed_input , 

w = 8, 

enable = (dbs_8_byte_l && bus_cycle_data_ready) , 
reset = , 
n ) ; 

if ($$Sys{master_data_width} == 32) 
{ 

&PBM_Assign ( 11 dbs_8_output " , 

" {held_byte_3, held_byte„2 , held_byte_l, dbs_8_muxed_input } " ) 

} else { 

&PBM_Assign ( " dbs_8_output " , 

« { held__byte_l , dbs„8_muxed_input } " ) 

} 

} # End: if ( scalar ( @dbs_8_modules ) ) 

################ 

# Write-data 
# 

# Selection-mux to pick the correct segment to send. 

# This is all pretty easy, once you've got the write-control 

# signals {dbs_8_byte_3 , etc) all figured-out. 

# 

# For now, the read- and write- phase control signals (e.g. 

# dbs_8_byte_3 and friends) are the same. In the future, it might 

# be beneficial to remove the "narrow- write" exclusion-term from the 

# read-phase-control signals, but leave it in the 

# write-phase-control signals. For today, narrow writing is a 

# term in both phase-control signals— BECAUSE THEY'RE THE SAME: 
# 

my $sys_write_data = &Get_Sys_Signal ( $$Sys {master} , "writedata" ) ; 

if (scalar (@dbs_16_modules) ) 
{ 

&PBM_Wire ( "dbs„16_write_halfword„l" , 1, "dbs„16_halfword_l " ) ; 

&Mux ( "dbs_16_write_data, type = unary, w = 16, 

dbs_16_write_halfword_l — > ( $sys_write„data\ [31 : 16] ) , 



--> ($sys__write_data\ [15 : 0] ) , 

") ; 



if (scalar (@dbs_.8_modules) ) 
{ 

if ( {$$Sys{master_data_width} == 32}) { 

&PBM_Wire ( " dbs_8_wr ite_byte_3 " , 1 , " dbs_8_by te_3 " ) ; 

&PBM_Wire ( tt dbs_8__wri te_byte_2 " , l f " dbs_8_byte_2 " ) ; 

} 

&PBMJWire ( " dbs_8__write_byte_l » , 1 , " dbs„8_byte_l " ) ; 



my $mux_string = " " ; 

$mux_string .= " dbs_8_write_byte__3 --> 
db s _ 8 _wr i t e_by t e_ 2 — > 
if $$Sys {master_data_width} == 32; 
$mux_string .= "dbs_JB_write_byte_l — > 

— > 



($sys_write_data\ [31:24] } 
($sys_write_data\ [23 :16] ) 

($sys_write_data\ [15 : 8] } 
( $sys_write_data\ [ 7 : 0] ) 



&Mux ( ,, dbs_8_write_data, type = unary, w = 8, $mux_string" ) ; 

} 

# Create a verison of "adjusted" write-data suitable for any occasion, 

# no matter what dynamic operation is {or is not) in process. This 

# write-data value gets distributed on shared data busses. 
# 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the "1'bO" trick, above. 
# 

&Mux ( "dbs_adjusted_write_data, 
type = unary, 

w = $$Sys{master_data_width} , 

dbs_8__active --> dbs„8_write__data, 
db s__l 6_ac t i ve --> dbs_16_write_data, 
--> $sys_write_data, 

") ; 

} 

################################################################ 

# PBM Emit IRQ .Prioritizer 
# 

# Well, compared to the dynamic bus-sizer, this is sure a piece 

# of cake. 
# 

# Given a %Sys-hash (reference) , we have to emit the requisite 

# IRQ prioritization logic into the currently- open file (which, we 

# presume, is the PBM verilog file) . 
# 

# We are responsible for driving two signals : 
# 

# 1) The masters' " irq"-type input. 

# 2) The msters 1 " irqnumber " -type input. 
# 

# (1) is just a straight logical-or of all the periphs 1 IRQ-outputs. 

# (2) is just an ordered priority-mux. 
# 

#################### # ## ######################################### 

sub PBM_Emit IRQ Prioritizer 

{ 

my ($Sys) = <@_) ; 

&Emit„Comment ( " \n IRQ Prioritizer \n" ); 



my @irq_signals = ("I'bO" ); # Trick makes it work when list is empty, 
my %irq_hash; # Keeps track of irq signals by number, so we can sort. 

foreach $Mod (&Get_Sys_Slave_List { $Sys ) ) 
{ 

next if l$$Mod{Has JRQ} ; # that was a short trip. 

my $irq_signal = &Get„Sys„Signal { $Mod, "irq"); 

$irq_ hash{$$Mod{IRQJTumber} } = $irq„signal ; 
push (@irq_signals, $irq_,signal) ; 

} 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "irq") , 
join (" || ", @irq_signals) ); 



# NOTE: We do not use the genera tor -library SeMux- function 

# because it doesn't retain the order of the terms. That's just 

# the way it works. That's OK: It's easy enough to just build 

# our own question-mark-colon expression: 
# 

my $mux_expression_string = " 11 ; 

foreach $irq_ num (sort numerically keys (%irq_ hash) ) 
{ 

$mux_expression_string . = " $irq_hash{ $irq_num} ? 6'd$irq„num : " ; 

} 

$mux_expression__string .= " 6'd63"; # Default: lowest priority. 

&PBM_Assign (&Get_Sys„Signal ( $$Sys {master} , " irqnumber" ) , 
$mux_expression_string) ; 

# Mien Got, that was easy. 

} 

################################################################ 

# PBM_Emi t__S imp 1 e_As s ignment s 
# 

# At the top of the PBM module, there are a bunch of "simple" 

# assignments. These are, for the most part, statements which 

# "broadcast" master-outputs to various slave modules. For example, 

# the master control signals are "simply" assigned to many of the 

# slave modules. 
# 

# This function handles this issue role-by-role. 

# 

# Note that no special care is needed for shared busses, because 

# we've defined the utility function &PBM_Assign so that you can 

# call it multiple times to assign the same thing to the same 

# signal, and it does something smart (ignores redundant assignments) . 

# Thus, a shared byteenablen signal, for example, will get the masters' 

# byteenablen -output assigned to it multiple times, but it won't hurt 

# anything. 
# 

# We -don't- connect writedata- or address-type ports for dynamically-sized 

# peripherals. Those are generated in the DBS-unit. For the same reason, 

# we also don't assign address- or writedata- signals to shared busses, 

# because one of the clients might require dynamic sizing. 
# 

################################################################ 

sub PBM_Emit_Simple_Assignments 

{ 

my ($Sys) = (@_) ; 
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# Lots of things connect to the master, so let's keep a ref to the 

# master's data, and its aval on-port s , handy: 
my $Master_Mod = $$Sys {master } ; 

my $master__avalon__table = $$Master_Mod{avalon_port_table} ; 

&Emit_Comment ( ff \nSimple assignments . 

Connect-up signals which pass unmolested from one PBM-port to another.") 

&PBM_Wire ("reset", 1, "~reset_n" ) ; # Handy; Logic-true reset. 



################ 

# Start with the very-easiest avalon roles: 

# alwaysO, alwaysl, elk, and resetn 
# 

15 # Even these are a little abnormal, because we have to deal with the 

# fact that there could be more than one of each type . 
# 

foreach $Mod {&Get_Sys_Module_JList ($Sys) ) { 

foreach $Port (&Get_Module__Port_List ($Mod) ) 
20 { 

if ($$Port {avalon_role} eq " always 0") { 

&PBM_Assign ($$Port{system_signal} , " {$$Port {width} 'b0} " ) ; 
} elsif ( $$Port{avalon__role} eq "alwaysl") { 

&PBM_Assign ($$Port {system_signal> , - {$$Port {width} 'bl} " ) ; 
25 } elsif ($$Port{avalon_role} eq "elk") { 

&PBM_Assign ( $$Port {system_signal } , "elk"); 
} elsif ($$Port {avalon_role} eq "resetn") { 

&PBM_Assign ($$Port {system_signal} , "resetja") ; 

} 

30 } 
} 

################ 

# Address -broadcast . 
35 # 

# Each peripheral with an address -port gets the appropriate 

# flavor of address — except, of course, dynamically- sized peripherals, 

# which get a special address generated by the DBS-unit. 
# 

40 # The byte-enable control signals could, I suppose, be considered "part 

# of" the address, so they get assigned in this same loop. Once 

# again, byte-enables for dynamic devices are handled elsewhere. 
# 

# ! ! ! SUBOPTIMALITY NOTE ! I ! 
45 # 

# Shared-busses are complicated, because it's a bit of an ordeal to 

# figure-out exactly -which- flavor of dynamic address they get- -it 

# depends upon what's connected to them. If we were to do this in 

# some clever, optimal way, it would be a big hassle (trust me*. a 
50 # great big hassle) . 

# 

# This same rule applies to the byte-enable signals. 
# 

# Instead, we always assign a dbs-adjusted 

55 # version of the address (which comes from logic) to shared address 

# ports. Even shared address ports that don't have any dynamically-sized 

# clients on them. Thus, we sometimes introduce more logic-delay than 

# strictly necessary. Sue me. I'll fix it if it ever becomes a 

# problem. 



# 

my $byte_range_select = " S$Sys {master_address_width} -1 : 0 " 

my $halfword__range_select = " $$Sys {master_address_width} -1 : 1" 



my $word_range_select = " $$Sys {master_address_width} -1 : 2"; 

&Emit_Comment ( " \n Address -as signments\n" ) ; 

# Emit wire-declarations for DBS-generated addresses, whether we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 
# 

&PBM_Wire ( "dbs_16_address " , $$Sys {master_address_width} -1) ; 

&PBM_Wire ( "dbs„8_address " , $$Sys {master_address_width} ); 

&PBM__Wire ( "dbs_ad just ed_addr ess" , $$Sys {master_address_width} }; 
&PBM_Wir e ( " dbs_l 6_be_n " , 4 ) ; 

&PBM_Wire { tt dbs_adjusted_be_n n , 4); 

foreach $Mod (&Get_Sys„Slave„Iiist ($Sys) ) 
{ 

next if $$Mod{Is_Bus_Master} ; # Slaves only, please 

# Go ahead and hook-up the byte-enables. That's straightforward. 
# 

# Note: I may need to change this later to work with narrow writes 

# through the DBS-unit. 
# 

my $BE_Port - &Get_JPort_By_Role ($Mod, "byteenablen"); 
if ($BE_Port) { 

if ($$BE_Port {is_shared} | j 

$$Mod{is_dynamically_sized} ) 

{ 

# All shared byte-enables are dbs-muxed. How suboptimal. 
&PBM_Assign (&Get_Sys_Signal ($Mod, "byteenablen") , 

1, dbs_adjusted_be_n 1 ' ) ; 

} else { # Non-dynamic byte -enables 

&PBM_Assign (&Get_Sys_Signal ($Mod, "byteenablen"), 
ScGet_Sys„Signal ( $Master_Mod f "byteenablen" ) ) ; 

} 

} # if ($BE_Port) 

my $source_signal - " " ; 

my $A__Port = &Get_Port_By_Role ($Mod, "address"); 
if ($A„Port) { 

if ($$A_Port{is_shared> ) 

{ 

# All shared addresses are dbs-muxed. How suboptimal. 
$source„signal - "dbs_adjusted_address" ; 

} 

elsif ( $$Mod{is_dynamically_sized} ) 
{ 

$source_signal = 

$$Mod{address_type_used} eq "byte" ? " dbs_8_address " : 

"dbs_16_address " ; 

} else { # Non-dynamic address 
my $range_s elect = 

$$Mod{address__type_used} eq "byte" ? $byte_range__s elect 

$$Hod{address_type_used} eq "halfword" ? $halfword_range_s elect 

$word_range_s elect 

$source_signal = 

&Get_Sys_Signal { $Master_Mod, " address " ) . " [ $range_select ] " ; 

} 

&PBM_Assign (&Get_Sys_Signal <$Mod, "address"), $source„signal) ; 
} # if ($A_Port) 
} # foreach $Mod . . . 



################ 



# Data-broadcast 
# 

# Pretty simple: Each peripheral gets a copy of the master's write-data, 

# unless it's dynamic — then it gets a special "tweaked" version of the 

# data. 
# 

# Shared data-ports could, in theory, have any kind of peripheral attached 

# to them, so they need to drive-out a fully "dynamically-adjusted" 

# version of the data suitable for the current occasion. Happily , the 

# DBS-unit computes this very thing for us. 
# 

# See the ! J ! SUBOPTIMALITY NOTE! ! I above for addresses. 

# The same thing goes here. We're penalizing the write-data path on 

# busses that may not have any dynamic clients at all. For now: 

# tough beans. For later, maybe we'll get more clever. 
# 

# Another slight suboptimality : The way this works, we drive data out 

# on -all- tri-state busses whenever the master does a write. This 

# might involve a slight waste of power, because we'll be wiggling I/O 

# pins more than strictly necessary. Again, tough beans. 
# 

&Emit_Comment ( " \n Data-ass ignments\n" ) ; 

# Emit wire-declarations for DBS-generated write-data, whether we 

# need them or not . These get as signed- to when we build the 

# dynamic bus-sizers, but we (might) use them here: 
# 

&PBM_Wire ( "dbs_16__write__data" , 16) ; 
&PBM_Wire { " dbs_8„wri te__data " , 8 ) ; 

&PBM_Wire ( " dbs_adjusted_wri te_data" , $$Sys {master_data_width} } ; 

foreach $Mod {&Get„Sys_Slave_List ($Sys) ) 
C 

my $source_signal = »» ; 

my $target„signal - &Get_Sys_Signal ($Mod, "writedata"); 

if ($$Mod{Uses_Tri_State_Data_Bus} ) 
{ 

# The "principal" tri-state bus is managed as part of the 

# read-data path (elsewhere) . 

next if $$Mod {Tri_State_Data_JBus} eq 

$$Sys {Principal_Tri_State_Data__Bus} ; 

# For tri-state busses, we need to use the "data "-type port 

# instead of the "writedata" -type port as the assignment 

# target : 
# 

$target_signal = &Get_Sys_Signal ($Mod, "data"); 

# To this bus we will assign a value which, as it 

# happens, incorporates its whole tri-state logic. Perversely, 

# we may "PBM_Assign" this same expression to this bus several 

# times, but it doesn't hurt anything. 
# 

my $sys_writen = &Get_Sys_Signal { $$Sys {master} , "writen" ) ; 
$source_signal = " (~$sys_writen) ? dbs_adjusted_write_data : 

S $Sys {master__data_width} * bZ " ; 

} 

elsif ($$Mod{is_dynamically_sized> ) 
{ 

$source_signal = 

$$Mod{address_type„used} eq "byte" ? "dbs_8_write_data n : 

"dbs 16 write data" ; 



} else { # Non -dynamic address 

$source_signal = &Get_Sys„Signal ( $Master_Mod, "writedata" ) ; 

} 

5 &PBM:_Assign {$ targe t_signal , $ s our ce_ signal) ; 

} 

################ 

# Readn/Writen -broadcast. 
10 # 

# Every module gets a copy of the master's "readn" and "writen" signals 

# — unless they have a nonzero setup- or hold- time, in which case 

# they get their very-own custom-made, tweaked copy of these signals. 
# 

15 # That all happens later when the wait-state unit gets created. 

# 

&Emit_Comment (" \n Control -assignments \n" } ; 

foreach $Mod (&Get_Sys_Slave_List ($Sys) ) 

{ 

20 next if $$Mod{Setup_JTime} 1=0; 

next if $$Mod{hold_time„full„clocks} != 0; 

&PBM_Assign (&Get_Sys_Signal ($Mod, "readn"), 
&Get_Sys„Signal ( $Master„Mod, "readn") ) ; 

25 

&PEM_Assign (&Get_Sys_Signal ($Mod, "writen")/ 
&Get_Sys_Signal ( $Master_Mod, "writen" ) ) 
unless $$Mod{Hold__Time} ; # half -cycle hold needs custom write strobe. 

} 

30 } 

################################################################ 

# PBM_Emit_Address„Decoder 
# 

35 # Given a ref to the %Sys-hash, we can generate all the logic 

# to build the address decoder. 
# 

# This function emits all the Verilog statements which 

# implement the address -decoder directly into the currently-selected 
40 # output file. These statements include: 

# 

# * wire-declarations for modules that don't have chip-select ports. 

# * Logic-assignments to all "active-" signals, 

# * Instantiate fast I/O registers for " registeredselectn" s , if any. 
45 # 

################################################################ 

sub PBM_Emit__Address__Decoder 
{ 

50 my ($Sys) = «3_) ; 

&Emit_Comment ( " \n Address decoder \n" ); 

# Extract the name of the masters ' address signal : 
55 my $Master_Mod = $$Sys {master} ; 

my $master„address = &Get_Sys_Signal ( $Master_Mod, "address"); 

# external chip selects may get gated with slave_phase below. 
StVprint ( " reg slave_^)hase ; \n" ) ; 

60 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
{ 

$$Mod{external„active„signal} = &Get_Sys_Signal ($Mod, "chipselect " ) ; 



# All modules get a pbra_intemal select signal regardless of if they 

# need an external chip select signal . This is because 

# we use address -decode signals to operate the 

# read-data mux and wait state timer. PBM_external signals have 

# gotten a tad more tricky. We now gate them with slave_phase. 

# This may 
# 

# All modules, including ones requiring the evil 

# "registeredselectn" -type signals also fall into this category. 
$$Mod{internal_active_signal} = " $$Mod{name}_active" ,- 

# How quaint that we still call this old warhorse of a function: 
# 

&Make_Nios_Chip_Select ("out = $$Mod{internal_active_signal} , 

device_base = $$Mod{Base„Address} , 
device__span = $$Mod{address__span} , 
outer_span = $$Sys {address__span} , 
address„name = $master__address , 
n ) ; 

if ($$Mod{external_active_signal> ) 
{ 

if ( 

($$Mod{Read„Wait_States} eq n peripheral_controlled" ) || 
($$Mod{Write_Wai t_States} eq "peripheral__controlled" ) 
) 

{ 

&PBM_Wire ( $$Mod{external_active — signal } , 1 , 

" $$Mod{internal_active_signal} & slave_phase" ) ; 

} 

else 
C 

&PBM_Wire ( $$Mod{external_active_signal } ,1, 
$$Mod{internal_active_signal} ) ; 

} 

} 

} 

################ 

# Registered chip-selects. 
# 

# The whole dirty little business of registered chip-select signals 

# is, I suppose, part of the address -decoding job. Note 

# that modules can have more than one registered chip-select signal, 

# each of which is derived (of course) from that modules' active-signal. 
# 

# There's also a wait-state aspect to this task (wait-states 

# occur as a consequence of the chip-select delays) . That's not 

# handled here--it's handled later, when we build the wait-state 

# unit. 
# 

my $ Fas t_IO_Set ting = "OFF"; 

my $ chips el ect_reg__module = $$Sys{name} . "_rg" ; 

if ( $$Sys{has_registered_select_signals} ) 
{ 

$Fast„IO_Setting = "OH"; 

# First, we create a special flip-flop module just for the 

# purpose. It needs to be "firm" so that synthesis tools don't 

# optimize-away duplicates, and so that we can make a 



# FAST_OUTPUT_REGISTER entity-assignment to it without "losing" its 

# name. 
# 

&CreateJFirm__Flip_Flop_Variant ($$Sys {system_directory} , 

$$Sys {sopc_di rectory} , 
$$Sys {device_f amily} , 
$ chips elect_reg_module , 
) ; 

# Push this register onto the list of files to be synthesized, 
my $synth_list_ ref = $$Sys { synth_.fi le„list} ; 

push (@$synth_list_ref , 

w $$Sys{system_directory} /$chipselect_reg__module . v" ) ; 

# & Emi t_C ommen t 

<q[ 

Registered chip-select signals 

A module may optionally request one (or more) -registered- chip-select 
signals (by declaring a port of type "registeredselectn" , and by 
setting the "Uses - _Registered_Select_Signal ,, assignment TRUE in the 
SYSTEM_BUILDER_INFO section) . 

Modules do this when they have stringent setup-time requirements 
on their select-signals. Such stringent setup requirements are 
greatly assisted by having the select-signal be produced from 
an Apex Fast-I/O register, right in the pad structure itself. 

Delaying (registering) the select-signal to a module is tricky 
business, but the PBM "absorbs" all the trickiness and does the right 
thing. Wait-states get generated (in subsequent code) when the 
(delayed) select-signal being fed to the device disagrees with its 
correct, current value. The logic is clever enough to allow successive 
accesses to this same device with no wait-penalties . This 
arrangement is emminently suitable for external asynchronous RAM 
used as main-memory. 

Registered chip-selets are always logic-negative, because that's the 
way chip-level select signals have been since the dawn of time. 
Because these come directly from fast I/O registers, there is no 
subsequent opportunity to negate them, or even copy them to other pins. 

We accomplish all this using deep voodo magic: We use a special 
"Firm Flip-Flop" module, since this is the only way to convince 
the synthesis tool to -not- optimize-out "redundant" chip-select 
registers . It also provides a handy method for assigning the 
1 FAST_OUTPUT_ REGISTER' attribute — using an ESF-file. 
]) ; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) { 

foreach $Port (&Get__Module_Port_List ($Mod)) 
{ 

next if $$Port{avalon_role} ne "registeredselectn"; 

# If we got to here, then we know %$Port is 

# of type "registeredselectn". Blurt-out an instance 

# of a properly-connected firm flip-flop with no further ado: 
# 

my $instance_name = " $ $Mod { name }_$$ Port {name}_delay_register M ; 
ScVprint (" 

$chipselect_reg_module $instance_name 

( 

.elk (elk), 



. ena ( 1 ' bl } , 
.cirri (reset_n) , 
.prn (I'bl), 

,d (~$$Mod{internal_active_signal} ) , 

.q ($$Port {system_signal} ) 

) ; 

// exemplar attribute $instance_name NOOT TRUE 
") ; 

} 

} 

} # End: if ($$Sys{has_registered_select_signals> ) 

# We -always- create an ESF file because: 

# 1) don't cost nuthin' 

# 2) Un-sets FAST-I/O req'mnt if it had been previously set. 
# 

&Create_JESF_File 

("firm_flip_flop : FAST_OUTPUT_REGISTER = $Fast_IO_Setting ; " , 
$$Sys{system_di rectory} , 
$chipselect_reg_module) ; 



} 

################################################################ 

# PBM_Emit_Read_JData__Mux 
# 

# Given a ref to the %Sys-hash, we can generate all the logic 

# to build the read-data mux path. 
# 

# This function emits all the Verilog statements which 

# implement the read-data mux structure directly into the 

# currently-selected output file. 
# 

# **** Mux structure 
# 

# We build-up a "fast mux" and a "slow mux." The "fast mux" 

# gathers-up all the readdata-type signals for zero-wait-state 

# modules (if any) . The slow-mux gathers-up all the others. 
# 

# **** The "principal" bus. 
# 

# The road to the CPU takes another twist if you have a "principal" 

# tri-state data bus. The principal data bus gets routed -directly- 

# to the CPU's read-data port — the rest of the (muxed- together) signals 

# a route "around the horn" : Driven-out onto the principal 

# databus in order to be read back in. 
# 

# If the CPU doesn't have any such "principal" tri-state busses, then 

# things are simpler--the muxes just collect the data. 
# 

# **** Widths 

# In this age of dynamic bus-sizing, all narrow data busses are just 

# zero-padded. This happens "almost invisibly 11 in Verilog syntax when 

# we assign a narrow value to a wide target. 
# 

# If a peripheral is "dynamic, " then we use the ouptut 

# from the appropriate DBS-unit in place of its data. The DBS-unit 

# itself is generated later. And, to help-out the DBS-unit, we 

# also generate its input-muxes right here, because we are already 

# engaged in the process of building mux-like things. 
# 



################################################################ 

sub PBM_Emit_Read__Data_Mux 
{ 

my ($Sys) = (@J ; 

&Emit_Comment (" \n Read-Data Multiplexer \n" ) ; 
################ 

# Loop to build-up slow- and fast-mux strings. 
# 

# Also, build-up mux strings for the dynamic bus-sizers 1 inputs. 
# 

my $f ast_mux_string = " " ; 
my $slow__mux_string = M " ; 
my $dbs_8__mux_string = " " ; 
my $dbs_ 16_mux__string = " 0 ; 

foreach $Mod (&Get_Sys_Slave„List ( $Sys) ) 
{ 

my $data_signal = &Get_Sys_Signal ($Mod, "readdata" ) ; 
$data_signal = &Get_Sys_Signal ($Mod, "data") 
if $$Mod{Uses_Tri_State_JData_JBus} ; 

next if $data_signal eq " " ; # Some peripherals are write-only (!) 

if ( $$Mod{is_dynamically_sized} ) 
{ 

# Yikes . A dynamically-sized peripheral. Its data comes from 

# the appropriately-sized DBS-unit. Note that dynamically- si zed 

# peripherals are automatically assumed to be "slow." 
# 

if ($$Mod{Data_Width> <= 8) 
{ 

$slow_mux_ string .= " $$Mod{internal_active_signal} 

dbs_8_output , " ; 

$dbs_8_mux_string . = " $$Mod{ internal_active„signal } 

$data_signal , " ; 

} else { 

$slow_mux_string .= " $$Mod{internal__active_signal} 

dbs_JL 6_output r " ; 

$dbs_16_jnux_string . = " $$Mod{internaLactive_signal } 

$data_signal, " ; 
} 



} else { 

# Not dynamic--it * s ether a slow-thing or a fast-thing. 
# 

# Principal data-bus is not (directly) part of this mux. 

# but we are accutely interested in the active-signals 

# for peripherals which sit on the principal bus. We'll 

# use these signals later to control the bus-direction, 
next if $$Mod{Uses_Tri_State_JData_Bus} 

( $$Mod{Tri_State_Data_Bus} eq $$Sys {Principal_Tri_State_Data_Bus} ) 

if ($$Mod{Read_Wait_States) == 0) { 

$ fas t_mux_st ring .= " $$Mod{internal_active_signal } 

$data_signal, " ; 

} else { 

$slow_mux_string .= " $$Mod{internal__active_signal} 

$data_signal , 11 ; 
> 

} 

} # End: $Mod-loop. 



# There may or may not be input-muxes to the DBS-units: 

# if SO; we declare the DBS-unit's output wire here 

# (becuase we have to) . But the DBS-units themselves are made later. 
# 

if { $dbs__ 8__mux„string) 
{ 

&Modif ied__Mux( "dbs_8_muxed_input , type -unary , w=8, $dbs_8_mux_string" ) ; 
&PBM_Wire ( "dbs__8 — output " , $$Sys {master„data_width} ) ; 

} 

if ( $dbs_16_mux_string) 

{ 

&Modif ied_Mux { " dbs_16_muxed__input , type=unary , w=16 , 

$dbs_16„mux_string" ) ; 
&PBM_Wire ( " dbs_16_output " , $ $Sys {mas ter_data_width> ) ; 

} 

# There may or may not be a slow mux: 
# 

if ($slow_mux_string) 
{ 

&Modif ied__Mux ( " slow„read„data_mux_output , type=unary , 

w = $$Sys{master_data_width} , $slow_mux — string 

"); 

# The "default" input to the fast-mux is, of course, the output 

# of the slow-mux: 
# 

$f ast_mux_string , = " --> slow_read_data_mux_output , 11 ; 

} 

# There is always a fast -mux: 

ScModif ied_Mux ( "read„data_mux_output, type=unary, 
w = $$Sys{master_data_width} , 
$ f a s t_mux_s t r ing 

") ; 

################ 

# Data-in to CPU. 
# 

# Well, gee. There are two cases here. Let's start with the 

# easiest: 
# 

# **** -no- principal tri-state bus. 
# 

# In this case, the fast-mux ouptut goes right to the 

# CPU's data-input, and that's that. 
# 

# **** Principal tri-state bus. 
# 

# The principal tri-state bus actually drives the CPU's 

# read-data input directly. The fast-mux output gets registered. 

# The output of this register gets driven-out onto the principal 

# bus (and, therefore, to the CPU) . Thus, perversely, we -drive- 

# data out onto this bus at the end of any bus read- transact ion 

# which did not get data from the principal bus {and, even then, 

# we do it if there's dynamic bus-sizing) . 
# 

&PBM_Wire ( " data^driveback^active 11 ) ; # These Declare here, compute later, 
&PBM__Wire ( " data_driveback_asserted" ) ; 
&PBM_Wire ( "dbs_8_active" ) ; 
&PBM_Wir e ( " dbs„l 6_ac t ive " ) ; 



f ( 1 $$Sys{Principal_Tri_State_Data„Bus} } 

# The easy case: Mux feeds CPU, period. 
# 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "readdata") , 
"read^data^ux^output" } ; 

else { 

# Ugh. 

# To start with, hook-up principal bus directly to CPU's data-in: 
# 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "readdata") , 
"$$Sys{Principal_JTri_State„Data_Bus}_data u ) ,- 

# Next, run the result of the read-data mux into a holding 

# register: 

&Delay(" in = read_data_mux_output , 

w = $$Sys{master_data„width} , 

reset = , 

11 ) ; 

################ 

# What to drive? 
# 

# We can drive one of two things out on the principal data 

# bus: 

# 1) Outbound write-data from the CPU. 

# For this purpose, we use the same "dbs__adjusted_write__data" 

# that every other tri-state bus gets. This is suboptimal 

# in the same way that it is for every other tri-state bus . 
# 

# 3) Data from the read-mux being sent "back out" to the CPU. 
# 

# Those are the only two possibilities, and we can tell which 

# to use just by looking at the masters' writen-signal : 
# 

my $master_write_n = &Get_Sys_Signal { $$Sys {master} , "writen" ) ; 

&Mux ( "principal„data_drive_yalue, type^unary, declare=l, 
w = $$Sys{master_data_width} , 

(~$master_write_n) --> dbs_adjusted_ - write_data / 
— > dl_read_data_mux__output , 

a ) ; 



################ 

# When to drive? 
# 

# Like every other tri-state bus, we drive data during actual 

# bona-fide write-operations . We also drive data during the 

# "driveback" phase, as-determined by a signal named: 
# 

# data_driveback„asserted 
# 

# which (we presume) gets comupted by the wait-state generator. 
# 

# **** Interaction: Dynamic Bus Sizing 
# 

# And, of course, there's a bit of strangeness when a device 

# on the principal databus is dynamically-sized. The easiest 

# way to think about this: Set aside dynamic -sizing for a 

# moment, and think only about narrow peripherals on the 

# principal databus (be they dynamically sized or no) . 



# 

# Narrow peripherals, by definition, only drive low 

# bits (e.g. LS-byte or LS-halfword) of the databus . So, 

# when reading from (say) an 8 -bit device on a tri-state databus, 

# the high-order bits [31.. 8] aren't driven by anyone. There's 

# no harm in -us-driving these bits, now, is there? If we 

# don't, then they'll just read as <undefined> ('Z*, in 

# simulation), and that's not really any help to anyone. 
# 

# So let's suppose we decide to be good citizens and "nail-down" 

# the high-order address bits when a narrow peripheral is 

# accessed on the principal tri-state bus. This gives us a warm 

# feeling inside, and, as an added bonus, makes dynamic bus 

# sizing work for devices on the principal bus {the high-bits 

# get driven from the appropriate dbs-holding registers. Yay. 
# 

# So, despite the heft of this comment, the actual solution is 

# both simple and tidy: 

&PBM_Wire ( " do_drive_jprincipal_data__bus_byte_0 " , 1 , 

" (~$master_write_n) | j data_driveback_active" ) ; 

&PBM__Wire ( " do_drive_principal_data__bus_byte_l " , 1, 

"do_drivejtrincipal_data_bus_byte„0 | | dbs_8_active" ) ; 

&PBM„Wire ( " do_drive_principal_data__bus_jDytes_2„and_3 11 , 1 , 
"do_drive_principal_data_bus_byte_0 | | 
dbs_16„active | | dbs_8_active" ) ; 

# Assign principal databus in bytewise-chunks . 
# 

&PBM_Assign { " $$Sys {Principal_Tri_State_J)ataJBus }_data [7:0]", 
" (do_drive__principal_data__bus_byte_0 ? 
principal_data_drive_value [7:0] : 
8'bZ ) 

") ; 



&PBM_Assign("$$Sys{Principal_Tri_State_Data_Bus}_data[15:8] " , 
" (do drive. principal_data bus_ bvte_l ? 
principal_data„drive_value [15:8] : 
8'bZ ) 

") ; 



if ($$Sys{master_data__width} ==32) { 

&PBM_Assign< " $$Sys{Principal_Tri_State__Data__Bus}_data [31 : 16] " , 
" (do_drive__principal_data_bus_bytes_2_and_3 ? 
principal_data_drive_value [31:16] 
16'bZ ) 

") ; 

} 

} 

################ 

# "memis32bits n 
# 

# Somebondy needs to tell the master when it's fetching 

# 32-bit data--that's just one of the inputs that an Avalon master 

# might require. 
# 

# I couldn't say for sure that this really belongs in the "Read Data Mux" 

# generator, but I can't think of where else to put it, so here 

# it is. 



# Note that 16 -bit dynamically- si zed devices appear as 32 bits 

# -unless- "ifetch" is asserted, in which case they don't, 8-bit 

# dynamically-sized devices always just appear as 32-bits wide. 
# 

# It might be more efficient to say when something -doesn't- return 

# a 32-bit value. But For now, I do the logic-true computation: 
# 

my $if etch_signal = &Get_J3ys„Signal ( $$Sys {master} / "ifetch"}; 

my @memis32bits_terms = ("I'bO"); 
foreach $Mod {&Get_Sys_Slave_List ($Sys) ) 
{ 

if <$$Mod{Data__Width} > 16) { 

push (@meittis32bits__terms, $ $Mod{ interna l_ac t ive__s ignal } ) ; 
} else { 

if ( $$Mod{is__dynamically_sized} } { 
if ($$Mod{Data_Width> <= 8) { 

push (@memis32bits_terms, $$Mod{internal__active_signal } ) • 
} else { 

push (@memis32bits_terms / 

" ($$Mod{internal_active_signal) && ( ~$if etch_signal) ) 

> 

} 

} 

} 

&PBK__ Assign (&Get„Sys_Signal ($$Sys {master} , "memis32bits" ) , 
join {" (j ff , @memis32bits_terms) ) ; 



################################################################ 

# PBM_Emit_Wait_jState_Generator 
# 

# Given a ref to the %Sys-hash, we generate all the logic 

# to build the read-data mux path. The logic gets 

# dumped-into the currently- selected output file, 
# 

################################################################ 

sub PBML_Emi t_Wa i t_S tat e_Gener a tor 

{ 

my ($Sys) = ; 

&Emit_Comment ( " \n Wait-State Generator \n" ) ; 

# This function seems preternatural ly-concerned with the read- 

# and write-strobes . Assign their signal-names to some 

# handy local variables : 
# 

my $sys__readn = &Get__Sys___Signal { $$Sys {master} , "readn"); 
my $sys__writen = &Get_Sys__Signal ( $$Sys {master} , "writen" ); 



################ 

# Peripheral -Control led Wait 
# 

# If the currently- selected peripheral has a wait-request 

# signal, and it's asserting it, then we definitely want to 

# wait. This is pretty easy to compute: 
# 

my @periph_controlled_ wait_terms = ("I'bO") ; # I'bO fixes empty 1 

foreach $Mod (&Get_Sys_Slave_List ( $Sys ) ) 
{ 



my $request_signal = &Get_Sys_Signal ($Mod, " waitrequest " ) ; 
############### 

# @periph__controlled_ wait_terms is one of the very few things 

# (only one at the moment) that gets an 

# extemal_active_signal . We cut off the external select 

# after the peripheral lowers its wait pin. It doesn't get to 

# change its mind later on in the same bus cycle. 

push (@periph_controlled_wait_terms , 

" $$Mod{external__active__signal} $request__signal 
(~$sys_writen) " 

) if $$Mod{Write_Wait_States} eq "peripheral_controlled" ; 

push ( @periph_controlled_wait_terms , 

" $$Mod{external_active__ signal} $request_signal && (~$sys„readn) " 
) if $$Mod{Read_Wait_States} eq "peripheral_con trolled" ; 



&PBM_Wire ( "periph_wait_asserted" , 1, 

join ( 11 || 11 , @periph_controlled_wait__ terms) ) ; 



################ 

# Calculate minimum wait states. 
# 

# Each module has a certain minimum number read/write wait-states, 

# perhaps even including zero. This is the sum of the 

# user-supplied wait-states and, IN ADDITION, 

# any setup- and hold-times the module may require . 
# 

# It may seem a bit strange, but even modules with 

# "peripheral_controlled" wait-states can also have a 

# minimum number of fixed wait-states — that's because they may 

# also require setup/hold time. 
# 

# The minimum number of wait-states we calculate here (and save 

# as part of each %Mod-hash) DOES NOT INCLUDE delays due to 

# dynamic bus sizing or principal -databus driveback. 
# 

# Here we just compute the minimum number of clocks -In A Single 

# Bus Cycle-. If the peripheral requires multiple bus cycles 

# (via dynamic bus sizing) or requires an extra clock for databus 

# drive-back, that's not our problem here. 
# 

# The values we compute here (minus 1) get loaded into the 

# wait-state counter when any of these peripherals are selected. 
# 

# while we're looping through the values, take note of the 

# largest number we'll see — this number (less 1) will be the biggest 

# value we ever load into the wait-state counter. 
# 

# **** Hold-time policy: 
# 

# Giving a peripheral extra hold-time doesn't make much sense 

# following a read-cycle- -though one can contrive a case where 

# you need it. We could define it either way — hold-times apply 

# only to write-cycles, or they apply to both read- and write-cycles . 

# I've defined it so that hold-times only apply to write-cycles. It 

# makes computation of the "bus__cycle_data_ready" signal simpler. 
# 



# Deal with, nasty case of no wait-states whatsoever, whch will 

# result in a zero-bit mux/counter. To deal with that case, we 

# just always assume at least one wait-state: 
# 

my $max_c ounter_va lue = 1 ; 

foreach $Mod (&Get_Sys_Slave_List C$Sys) } 
{ 

my $min__read = $$Mod { Read_Wai t_ States } ; 
my $min_write = $$Mod{Write_Wait_States) ; 

$min_read = 0 if $min_read eq "peripheral_c on trolled" ; 
$min_write = 0 if $min„write eq " per ipheral_cont rolled" ; 

$min_read += $$Mod{Setup_Time} ; 

$min_write += $$Mod£Setup_Time) + $$Hod{hold_time_ - f ull_c locks } ; 

$$Mod {read_min_wai testates) - $min_read; 
$$Mod{write__min_wai testates} = $min_write; 

$max_counter_value = 

&Find_Max ( $max_counter__value , $min_read, $min__write) ; 

} 

my $wait_counter_bits = &Bits_JTo__Encode ( $max__counter_yalue) ; 

################ 

# Counter-load mux 
# 

# Select what value goes into the wait-state counter 

# based on the peripherals' active-signals (and, of course, 

# whether we're reading or writing) . 
# 

# Notice that we load the counter with the modules 1 number of 

# wait-states MINUS ONE. 
# 

# Trick: All these muxes are very similar, so we use the same 

# description-string with a different word at the front, 

# which gives each a different output -s ignal : 
# 

my $ count er_jnux_string = " counter^ load__value, 

w = $wait_counter_bits, 

type = unary, 

— > 0, 



my $write_counter_mux_string = "write_" . $ count er_mux_st ring; 
my $read — count er_mux_string = "read_" . $ count er_mux_string; 

foreach $Mod (&:Get_Sys„Slave_List ( $Sys) ) 
{ 

my $read_load_val = $$Mod £reacL_min — wait_states) - 1; 
my $write__load__val = $$Mod{write_min„wait_states) - 1; 



$ readme ounter_mux_st ring " $$Mod{ in ternal„active_s ignal) 

$ r ead_l oad_va 1 , 11 

if ($read_load_val >= 0) ; 
$write_counter_mux_string . = " $$Mod{ internal_active_s ignal) 

$write_load_val, " 

if { $write_load_val >= 0) ; 

} 



&Modif ied_Mux ( $read„counter_mux_string) ; 



&Modif ied__Mux ($ writ e_counter_mux_st ring) ; 

&Mux ( " $counter_mux_string , declare-1, 

(~$sys_writen) --> write_counter__load_value, 
(~$sys_readn) read_counter_load_value, 

"); 



################ 

# Wait-state counter. 
# 

# There are two interesting questions about this counter: 
# 

# — When should it load? 

# -- When should it count? 
# 

# **** when to load: 
# 

# This counter gets loaded at the beginning of every bus-cycle 

# for which a fixed wait is required. We already have a signal 

# which tells us when it's the beginning of a bus-cycle, so we 

# need some additional logic to tell us if a fixed-wait is required. 

# We build that logic herein below, before the counter proper. 
# 

# **** When to count: 
# 

# This counter "sticks" at zero. This makes the whole scheme 

# much easier to manage /under stand. Consequently, the counter 

# is only enabled when its current value is nonzero. 
# 

# The only other thing that can stop this counter from a-countin' 

# is a wait-request from the active peripheral. This 

# has the effect of extending the current Bus Cycle-- setup-time, 

# hold-time, and all. 
# 

# Note that there is a question of interpretation here: Do 

# we want to allow a peripheral to extend a bus-cycle during its 

# own setup-time? Or should we not listen to it unitl we actually 

# issue it an active read/write strobe? This is largely a question 

# of definition. I chose to -always- listen to peripheral-controlled 

# waits, even during setup/hold periods. Because it makes the logic 

# easier. So there. 
# 

my @f ixed_wait_active_terms = (" 1'bO"); # 1'bO fixes empty-strings. 

foreach $Mod (&Get_Sys_Slave_List { $Sys) ) 
{ 

if { $$Mod{read_min_wait_states} > 0) { 
push (@f ixed__wait_active_terms , 

" ( (~$sys„readn) && $$Mod{intemal_active_signal} ) " ) ; 

} 

if ($$Mod{write_min_wait_states> > 0) { 
push (@f ixed_jwait_active„terms , 

" ( (~$sys_writen) && $$Mod{internal__active_signal} ) " ) ; 

} 

} 

# This signal stays true during the entire bus -cycle 

# for which a fixed (counter) wait-state applies. 
# 

&PBM_Wire ( " fixed_wai tractive " , 1, join (" || " , @f ixed„wait_active_terms) ) 



# The counter itself, per-se. 
# 

# I use one call to "&Delay" to build a whole counter. Nobody else 

# seems to appreciate the mighty "ScDelay" function — the fools. 
# 

&PBM_Wire { " count er_ne_zero " ) ; 

&PBM__Wire ( "wait„count„enable" , 1, " (~periph_wait„asserted) && 

(counter_ne__zero) "); 

&PBM_Wire ( "bus_cycle_start " ) ; # declared here, computed later. 
&PBM__Wire ( " wait_load_enable" , 1, "bus_cycle_start 

f ixed_wait_active " ) ; 

# Optimization: Avoid emitting the counter-register if the maximum 

# counter load-value happens to be zero. This often happens 

# when we have a bunch of one-wait -state peripherals in the 

# system. In this case, the single wait-state is controlled 

# by the "wait_load_„enable " signal, and we can do away with the 

# counter per-se in its entirety. A clever synthesis tool might 

# figure this out on its own, but... why risk it? 
if ( $max_counter_value <= 1) { 

&PBM_Wire { "wait_counter " , 1 , " 1 ' bO " ) ; 
} else { 

&Delay ("out = wait_counter, 

in = (wait_counter - 1) , 

enable = (wait_load__ enable | | wait_count — enable) , 
sync_set = wait_load__enable, 
set__value = count er_load_value, 
width = $wait„counter_bits, 

reset = , 

") ; 

} 

&PBM_Assign ( "count er__ne_zero 11 , "wait_counter 1= $wait_counter__bits\ 1 bO n ) 
&PBM_Wire { " f ixed__wait_asserted" , 1, " count er_ne„zero || wait_load_enable 

################ 

# Registered chip-selects. 
# 

# This is a nuissance, but at least it's easy. 
# 

# While we're listing all the reasons to extend a bus cycle, 

# let us not forget registered chip-selects. They blow! 
# 

# Whenever the registered (delayed) version of a chip-select 

# differs from the current (un-delayed) version, we view 

# this as a bad thing. We extend the current bus cycle until 

# the signals agree (i.e. we wait 1 clock) . 
# 

my <areg_select_wait__terms = ("l'bO"); # Ah, the old "l'bO" trick. 

foreach $Mod (&Get_ 4 Sys_Slave_I J ist ( $Sys) ) 
{ 

next unless $$Mod{Uses_Registered_Select_Signal} ; 

# Modules -might- have more than one registered select signal, 

# but we don't really care. They all have the same time-behavior . 
# 

my $reg_signal = &Get_Sys_Signal ($Mod, " regis teredselectn" ) ; 
push (@reg_select_wait_ terms , " ( (~$reg_signal) 

$$Mod{internal_active_signal} ) " ) ; 
} 



&PBM_Wire ( "reg_select„wait_asserted" , 1, 

join (" |j ", @reg_select_wait_terms) ) ; 



################ 

# Bus-Cycle Status. 
# 

# One of the major responsibility of the wait-state generator 

# is to tell the rest of the world (not the least, the CPU) 

# where we are in the bus cycle: Beginning, middle, or end. 
# 

# So. How do we know when a bus cycle begins? The only thing 

# we know for sure is that one bus cycle begins when another one 

# ends—it's like a Zen koan, isn't it? 
# 

# But seriously. A bus -cycle always ends when there is no longer 

# any reason to extend it. Said more prosaically, the signal 

# "extend_bus_cycle" will always be zero during the last clock 

# of any bus-cycle. 
# 

# So, our only means for deciding that this is the -beginning- of 

# a cycle is to notice that "extend_Jbus_cycle" was false (0) . 
# 

# Bonus reason. 

# Well, there's another way, too, that we can tell if this is 

# the start of a bus-cycle: If the CPU (master) is -idle- 

# (both read-strobe -and- write strobe inactive) . Masters 

# sometimes do this. If so, we consider that whole long 

# time the "start" of the bus-cycle. 
# 

# **** Reasons To Extend. 
# 

# There are three "ordinary" reasons to extend a bus-cycle, and 

# one "special" one. Let's start with the ordinary (slave_driven) reasons 
# 

# 1) The peripheral, itself, can request wait-states. 

# 2) We can have a fixed (counted) number of wait-states, 

# due to both traditional wait-states and setup/hold times. 

# 3) That whole sorry business about registered chip-selects. 
# 

# And here's the "special" reason 
# 

# *4) Data has to percolate through the principal databus drive -back 

# register. 
# 

# But the only way we know when it's time to do (*4) is when 

# the bus-cycle is no longer extended for any of the other reasons (1..3) . 

# But (*4) still counts as extension of the current bus-cycle. 

# Therefore , we have to account for (1..3) and (4) separately. 

# That's OK — I'm an amateur accountant. 
# 

# 

# As long as the master is just sittin 1 there, we take that to 

# mean a cycle "is in the process of starting". 
&PBM„Wire f "master_is_idle" , 1, 

" ( " . &Get_Sys_Signal ($$Sys {master} , "readn" ) . " ) 

" ( " . &Get_Sys_Signal ($$Sys {master} , "writen" ) . " ) " ) ; 



&PBM_Wire ( " slave_wait_asserted" , 1 , " 

reg_select_wait_asserted | | 

f ixed_wait_asserted j | 

periph_wait_asserted " ) ; 



# The slave gets its chance to wait, or talk, or whatever. Then 



# it's over — for good. 

# Orion hates &Delay because he never knows which of sync_set or 

# sync„reset or any of the other options gets priority. 

# reg slave_phase is defined above because the outgoing chip 

# selects need to be gated by it. 

&Vprint ( " 

always @ (posedge elk) 
begin 

if ( (-reset_n) | | (bus_cycle_end) ) 
begin 

slave_phase <= {1 {1'bl}}; 

end 

else begin 

if (~slave_wait_asserted & -*master__is„idle) begin 
slave_phase <= {1 {1'bO}}; 

end 

end 

end 



# Don't extend a cycle when the master is idle! 
&PBM_Wire ( " ext end_bus_cycle u , 1 , 

" (slave_wait__asserted && slave j>hase) | | 

{data__driveback__asserted ) "); 

# And a bunch of different names for the same thing (used elsewhere) 
# 

&PBM_Assign ( "bus_cyc legend " , "~extend_bus__cycle && ~master_is 

&PBM_Assign ( "bus_cycle — data__ready " , "bus_cycle__end" ); 



# Generate a privately-named version, then assign to global wire: 
ScDelay ("out = bus_cycle_start_reg, 

in = bus_cycle_end, 

sync__set = master_is__idle , 
set = reset, 

"> ; 

&PBM_Assign ( "bus__cycle_start " , "bus_cycle_start_reg" } ; 



################ 

# Data drive -back timing 
# 

# We are responsible for coming up with this nasty-little signal 
# 

# — data — driveback_asserted. 
# 

# this is true when: 
# 

# 1) This is a read-cycle. 
# 

# 2) The currently-selected peripheral is -not- on the 

# "principal" databus 
# 

# 3) There is no longer any other reason to extend the current 

# bus cycle (slave__wait_asserted is zero) . 
# 

# 4) We're not still gathering-up a data-value as part of a 

# multiple -bus -cycle dynamic -bus-sizing operation. 
# 

# ... and, lest we forget (which we did) . . . 
# 



# 5) M data_driveback_asserted" wasn't true last time, otherwise 

# conditions (1) . * (4) above will persist forever, and the 

# master will hang-up indefinitely. 
# 

# First, come up with a signal that tells us about {2} : 
# 

my @driveback_active„terms - ( " 1 ' bO " } ; 
if ( $$Sys{Principal_Tri_State_JData_Bus} ) { 
foreach $Mod (&Get_Sys_Slave_List ($Sys)) { 
if { ($$Mod£Uses„Tri„State_Data_Bus} ) 

($$Mod{Tri_State_Data_Bus} eq $$Sys{Principal__Tri_ State_Data_Bus} ) ) 

{ 

next ; 

} 

push (@driveback_active„terms, $$Mod{internal_active_signal} ) ; 

} 

} 

&Delay ("out = data__driveback_last_time, 
in = data_driveback_asserted, 
reset = , 
") ; 

&PBM_Assign ( n data_driveback_active" , join( n | | " , @driveback_active_terms) ) 

&PBM_Assign ( l, data_driveback__asserted 1 ' , " 

data„driveback__active && 
(-$sys_jreadn) && 
(~slave„wait_asserted) 
(~dbs_wait_asserted) 
(~data„driveback_last_time) " ) ; 

################ 

# Transaction status 
# 

# The wait-state generator is responsible for the transaction-level 

# timing as well as the bus -cycle-level timing. Recall that a transaction 

# can take multiple bus cycles. 
# 

# And, once again, we are faced with the same question: How do 

# we know when a transaction starts? It starts when another 

# transaction ended (search for "Zen koan, " above) . 
# 

# At this time, there's only one way a transaction will keep going 

# even when a bus-cycle has ended—if we're in the middle of a 

# dynamic -bus- si zing operation. 
# 

&PBM_Wire ( " extend_bus_transaction" , 1 , 

"extend__bus_cycle jj dbs_wait_asserted" ) ; 

# And a bunch of different names for the same thing (used elsewhere) : 
# 

&PBM_Jtfire ( "bus_transaction_end" , 1, " ~extend_bus_transaction w ) ; 

# Generate a privately-named version, then assign to global wire: 
ScDelay ("out = bus_transaction_start_ reg, 
in - bus_transaction_end, 

set = reset, 
") ; 

&PBM_Assign ( "bus_transaction — start" , u bus_transaction_start_reg" ) ; 

# Lookie here: The --FINAL-- wait-request signal to the master: 
# 



&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , waitrequest) , 
" extend_bus_transaction" ) ; 

} 

################################################################ 

# PBM_Emit_Setup_Hold_Logic 
# 

# Given a %Sys-hash (reference) , emits all the logic to implement 

# "custom 11 readn / writen-strobes . 
# 

# **** Custom Read / Write strobes 
# 

# If your module requests setup- or hold-times, then it 

# gets its own private readn- or wri ten-signal , which is only 

# active for a sub-portion of the bus cycle (unlike the masters' 

# control signals, which are asserted for the entire cycle) . 
# 

# Each "custom strobe" is generated by an S-R flip-flop. We 

# need to assert the strobe at a particular point in the cycle, 

# then deassert it at some later point. We use the counter-value 

# (and the load-counter signal) to determine when to assert /deassert 

# the custom write-strobe (i.e. when to set/reset the flip-flop). 
# 

# We can only use this scheme because we previously guaranteed that 

# all "custom" strobes have at least one clock's worth of setup time. 

# This gives us enogh time to compute the S/R inputs to the 

# custom-strobe register, (see "Funny setup/hold rule" in 

# StCheck_Avalon_Rules) . 
# 

################################################################ 

sub PBM„Emit_Setup_Hold_Logic 

{ 

my ($Sys) = (&_) ; 

&Emit — Comment ("\n Setup- / Hold-Time Logic \n" }; 



################ 

# First, do full-clock setup/hold times. 
# 

# previous rule-checks guarantee no overlap with fractional case . 

# But check anyway. 
# 

foreach $Mod (&Get_Sys_Slave_List ($Sys) ) 
{ 

# All the modules we care about will have setup- times . 
next unless $$Mod{Setup__Time} > 0; 

&Debug (0, "Generating setup/hold-logic for $$Mod{name} " ) ; 

$$Mod{Hold__Time} !~ /half/ or die " 

Module $$Mod{name} : internal hold-time consistency check violation"; 

# Come up with an expression that says when to 

# assert the strobe (separate for read- and write-strobes) 
# 

# The strobe is actually asserted on the clock -after- the 

# $read/write_assert_expr goes true, because we have to 

# propogate through the custom-strobe register. 
# 

my $master_read_expr =" (-" . &Get„Sys__Signal ( $$Sys {master} , "readn" ).")"; 
my $master_write_expr =" . &Get_Sys_Signal ( $$Sys {master} , "writen" ).")"; 
my @read__assert_terms = ( $$Mod{internal_active_signal } , 

$rnaster_read_expr) ; 



my @write_assert_terms 
$master_write_expr ) ; 



($$Mod{internal_ active_signal } , 



if 
{ 



($$Mod{Setup_Time} == 1) 
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Justifying this numerical expression is a bit tricky-- 
I used little text-tables to "simulate" some example 
# count sequences : 

Example: Tsu = 2, Th = 0 , min_wait -states = 2 

wait-counter j expr true? | output write- strobe 



# Because of the prop -de lay (above) we have to order 

# our strobe on the first clock of the bus-cycle. Fortunately, 

# there's a signal just for that purpose: 
# 

push (@read_assert_terms , bus_cycle_start) ; 
push (@write__ assert_terms , bus_cycle__start ) ; 
} else { 

# If we got to here, notice that Setup_Time is 2 or greater. 

# In this case, we have to use the output of the wait counter. 

# Recall that the wait-counter counts down, so this makes 

# the math a bit of a head-scratcher . 
# 

# 
# 

# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 



-load- 
1 
0 



assert 
deassert 



idle 
idle 
ACTIVE 



Example: Tsu = 2, Th = 0, min_wait -states = 5 

wait-counter | expr true? | output write-strobe 



-load— 
4 
3 
2 
1 
0 



assert 



deassert 



idle 

idle 

ACTIVE 

ACTIVE 

ACTIVE 

ACTIVE 



Example: Tsu - 2 , Th = 3 , min_jwait- states = 5 

wait-counter | expr true? | output write-strobe 



# 
# 
# 
# 
# 

my 
my 



— load — 

4 assert 

3 deassert 

2 

1 

0 

$read_assert_count = 

$$Mod {read_min_wait_states} - 1 
$write„assert_count = 

$$Mod{write_min__wait_states} - 1 



idle 
idle 
ACTIVE 
idle 
idle 
idle 



{$$Mod{Setup„Time} - 2) ; 
($$Mod{Setup„Time) - 2); 
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push {@write_assert_terms, " {wait_counter == $write„assert_count ) " ) 
push (@read_assert_terms, " (wait_counter == $read_assert_count )") 



} 
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&Debug (0, " \@read_assert_terms is: fl 
&Debug (0, " \@write_assert_terms is: 



@read__assert_terms) ; 
@write__assert_terms) ; 



my $read_assert_expr = join ( 11 && @read_assert_terms ); 
my $write_assert_expr = join ( " " , @write__assert_terms) ; 



# Judging from the tables (above) , the expression for when to 

# deassert the strobe is pretty easy. We still have to 

# do a special-case when hold- time is zero, because testing for 

# (wait_counter ==0) is problematic --it 1 s zero at the beginning 

# of the cycle 1 
# 

# Also remember: As a matter of POLICY, we don't use any hold- 

# time for read-cycles. We may want to revisit this policy later. 
# 

my $read__deassert_expr = "bus_cycle_end" ; 
my $write__deassert_expr = "bus_cycle_end" ; 
$write__deassert_expr = 

" (wait — counter == $$Mod{hold_time_full_clocks } ) " 
if ($$Mod{hold_time_full_clocks) > 0) ; 

# One of these days, we're actually going to have to build 

# the strobe-output registers. Recall that readn/writen strobes 

# are logic-negative (assert — > 0) . Provide an asynchronous 

# "set" so they power-up inactive. 
# 

# FUTURE: Make these "firm flip-flops" if we determine that 

# these are off -chip. 
# 

my $readn_strobe = &Get_Sys„Signal ($Mod, "readn"); 
&Delay ("out = $readn_strobe, 

sync„reset = ( $read„assert„expr) , 

sync_set = ($read_deassert_expr) , 

set = reset, 

" ) if $readn__strobe; 

my $writen_strobe = &Get_Sys„Signal ($Mod, "writen"} ; 
&Delay {"out = $writen__strobe, 

sync_reset = ($write_assert_expr) , 

sync_set = ($write_deassert_expr) , 

set = reset, 

" ) if $writen_strobe; 

} # End: foreach $Mod. . . 

################ 

# Now generate narrow write-strobes where a fractional hold-time 

# was requested. 
# 

my $has__f ractional_hold_times = 0; 

# logic-positive "name" for master strobe, to ease understanding: 
# 

my $master_write = " . &Get_Sys_Signal { $$Sys {master} , "writen" ).")"; 

my $made__do_shorten_write_strobe = 0; 
foreach $Mod {&Get__Sys_Slave_List ($Sys)) 
{ 

next unless $$Mod{Hold_JTime} =- /half/; 

ScDebug (0, "Generating narrow write-strobe for module $$Mod{name}") 
$has_f ractional_hold_times++ ; 

$$Mod{Setup_Time} == 0 or die " 

Module $$Mod{name} : internal ho Id- time consistency check viol at 

if ( I $made_do_shorten_write„strobe) 
{ 

&PBM_Wire ( " do__shorten_write__strobe ,r ) ; # forward-declared 
#here . 

$made_do„shorten_write_strobe = 1; 



} 

&PBM_Assign (&Get_Sys_Signal ($Mod, "writen"), 

"~ { $master_write && ~do_shorten_write_strobe) " ) ; 

} 

5 

if ( ( $has_fractional_hold_times) ) { 

&Emit_,Comment (" A little dab of shortening for the write-pulse" ) ; 
&Delay ("out = write_second_half , 
in = $master_write, 

10 edge = negedge, 

reset = reset , 
") ; 

&PBM_Assign ( "do_shorten_write_strobe" , 

"write_second_half && bus_cycle_end" } ; 

15 } 

} 

################################################################ 

# Generate__PBM 
20 # 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a PBM, including opening the output-file, blorting 

# all logic into it, and subsequently closing the output file 

# again. 
25 # 

################################################################ 

sub Generate_PBM 

{ 

my ($Sys) = (@_) ; 

30 

# Open the output file: 
# 

&PBM_Progress ("Creating PBM module: $$Sys {pbm_f ile} . " ) ; 

open (ALTERA_FILEHANDLE2, "> $$Sys {pbm_f ile} " ) or die "can't open 
35 $$Sys{pbm_file} : $!"; 

my $old_out = select (ALTERA.JFILEHA3SIDLE2) ; 
print " $GLOBAL_COPYRIGHT__NOTICE\n" ; 
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&Emi t_Modul e_Header ( $ $ Sy s {pbm__name } ) 



&PBM_Emit_Simple_Assignrnents ($Sys) 

&PBM_Emi t_IRQL_Pr ior i tizer ( $Sys } 

ScPBM„Emi t_Address_Decoder ( $ Sy s ) 

ScPBMJEmi t_Read_Dat a JMux ( $ Sys ) 

45 &PBM_Emit_Dynamic_Bus_Sizer ( $Sys ) 

&PBM_Emit__ Wait_S tate_Generator ( $Sys ) 

&PBM_Emit_Setup__Hold_Logic ( $Sys ) 



&Vpr in t ( " \ n endmodul e / / $ Sy s { pbm_name } \ n 11 ) ; 

Close ( ALTERA_FILEHANDLE2 } ; 
select ($old_out) ; 



my $synth„list_ref = $$Sys{synth_f ile_list } ; 
55 push (@$synth_JList__ref , $$Sys {pbm_f ile} ) ; 



################################################################ 

# Generate_Core 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system-level "core" module, including opening the output-file, 

# blorting all logic into it, and subsequently closing the output file 



# again. 
# 

#fl ############################################################## 

sub Generate_Core 

{ 

my ($Sys) = (@_) ; 

# Open the output file: 
# 

ScPBM_Progress ("Creating Core module: $$Sys {core_f ile} . " ) ; 
open ( ALTERA_J? ILEHANDLE , "> $$Sys {core_f ile} " } 

or die "can't open $$Sys {core_f ile} : $ 1 " ; 
my $old__out = select (ALTEKAJF ILEHANDLE ) ; 
print " $GLOBAIi_COPYRIGHT_NOTICE\n " ; 

&Emit_Module_Header ($$Sys{core_name} ) ; 

&Core„Emit_Wi redeclarations ($Sys) ; 
&Core__Emit_Instances {$Sys}; 
&Vprint (" \n endmodule // $$Sys{core_name}\n" ) ; 

Close (ALTERA_FILEHANDLE) ; 
select ($old_out) ; 

my $synth_JList„ref = $$Sys{synth_f ile_list } ; 
push (@$synth_list„ref , $$Sys {core_f ile} ) ; 

} 

################################################################ 

# Generate_Wrapper 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system wrapper -module, including opening the output-file, 

# writing its contents, and subsequently closing the output file 

# again. 
# 

# This function actually does a very simple thing: Create a 

# wrapper -module with a single black-box instance in it. It looks 

# scary and complicated because it's tri-lingual, and the language 

# constructs to do this simple thing are more structurally different 

# than reason would dictate . 
# 

################################################################ 

sub Generate__Wrapper 

{ 

my ($Sys) = (%_) ; 

# Open the output file: 
# 

&PBM„Progress ("Creating Wrapper module: $$Sys {wrapper_f ile} . " ) ; 
open (WRAPOUT, "> $$Sys {wrapper_f ile} " ) or die 

"can 1 1 open $$Sys {wrapper^ f ile} : $ I " ; 
my $old_out = select (WRAPOUT) ; 

my $ core__ins t ance_jaame = " the_$ $ Sys { core_name } " ; 
&Emit__Top_C eminent ( $$Sys {name} , $$Sys {hdl_language} ) ; 

# AHDL is funny, and requires that we do a semi -C- like "extern" 

# (FUNCTION) declaration of the thing we're about to instantiate: 
# 

&Declare_Ports_For ( $$Sys {core_name} , 0, $$Sys{hdl_language} ) 
if $$Sys{hdl_language> =~ / A ahdl/i; 



&Emit_Module„Header ($$Sys{name} , $$Sys {hdl„language} , 1) ; 



# Some languages require a little opening dance before the 
5 # instantiation: 

if ($$Sys{hdl_language} =~ /~vhdl/i) { 
&Emi t„VHDL_Component ( $ $ Sy s { core_name } ) ; 
&Vprin t ( " BEGIN\n " ) ; 

10 } elsif ($$Sys{hdl„language} =~ / A ahdl/i) { 

&Vprint ( 11 VARIABLE \n" ) ; 

&Vprint ( " $core_instance_name : $$Sys{core_name} ; \n\n M ) ; 
&Vprint ( "BEGINXn" ) ; 

} 

15 

# The instantiation per-se: 
&Instantiate_And — Connect {$$Sys{core_name} , 

$core_instance_name, " n , 0, 
20 $ $ Sys { hdl„language > ) ; 

# And then, of course, everyone requires a little closing-dance: 
if ($$Sys{hdl_language} =~ /vhdl/i) { 

&Vprint ("END behavior ; \n n ) ; 
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} elsif {$$Sys{hdl_JLanguage} =~ /~ahdl/i) { 
fcVprint ( " EHD ; \n " ) ; 



} elsif ($$Sys{hdl„language} =~ / A verilog/i) { 
30 &Emit_Comment ( 11 \n exemplar attribute $core_instance_name NOOPT TRUE \n" 

&Vprint ( n \n // synopsys translate_on \n" ) ; 
&Vprint ("\n endmodule // $$Sys{name} \n" ) ; 

} 

35 close (WRAPOUT) ; 

select ($old_out) ; 

} 

^ ############################################################### 
40 # Generate__Inc__File 
# 

# If we're generating an AHDL wrapper, then it's customary to 

# also make an " . inc" -f ile . This is, I suppose, the AHDL -equivalent 

# of a C-language header (".h" ) file. 

45 # 

# This function generates such a wrapper for the system if 
# 

################################################################ 
sub Generate_Inc_File 
50 { 

my ($Sys) = <£_) ; 

if ($$Sys{hdl_J_anguage} !~ /"ahdl/i) { 

warn { " Suspicious call to Generate_Inc_File . 
55 (language is $$Sys {hdl_JLanguage} , not AHDL)"); 

return; 

} 



$$Sys{inc_f ile}= " $$Sys{system_di rectory} /$$Sys {name} .inc" ; 

&PBM_Progress ("Creating AHDL include-f ile : $$Sys {inc_f ile} . " } ; 
open (INCOUT, "> $$Sys {inc„f ile} " ) or die 
"can't open $$Sys {inc_f ile} : 



my $old„out = select { INCOUT) ; 



&Emi t_Top_C ommen t ( $ $ Sys { name } , $ $ Sys { hdl_ language } ) ; 
&Declare_Ports_For ( $$Sys {name} , 0, $$Sys{hdl_language} ) ; 

Close (INCOUT); 
select ($old_out) ; 

} 

################################################################ 

# Generate_Symbol 
# 

# Given a ref to the %Sys-hash, this routine generates a Quartus 

# BSF-file (schematic symbol) suitable for representing %Sys in a 

# schematic. The actual work of symbol-layout and geometry is done 

# by Aaron Ferrucci ' s mighy "ScGenerate_BSF" function in the library 

# module "mk__bsf.pm". 
# 

# We get to say how the ports are arranged by building a list of 

# port -descriptions . We hand this off to Aaron, and he gives us back 

# a string, which is the entire contents of a valid BSF-file (not yet 

# created). We then create the file, write Aaron's string into it, 

# and we 1 re done . 
# 

################################################################ 
#### 

# Segment -ordering 
# 

# The top-to-bottom order that the symbol -segments is a little 

# bit important, and there are many subtle issues, both subjective 

# and practical, that come into play. One could write an entire 

# program, I'm sure, just fiddling -around with the perfect ordering. 

# But it's pretty clear that whatever hash-ordering comes out of 

# "keys" is probably not what the user wanted. 

# I'm going to sort thus: 
# 

# --If you're the master, you're first. 

# — Any module with "use_tri„state__bus " takes priority. 

# — alphabetical by class -name 

# -- alphabetical by module name. 
# 

# We're sorting a list of %Mod-refs, so $a and $b are like "$Mod" 
# 

sub segment_sort 
{ 

return -1 if $$a{Is_Bus__Master} ; 
return 1 if $$b{Is_Bus__Master} ; 

# Ho one was the master. The guy with the tri-state databus wins. 

return -1 if $$a{Uses_Tri_State_Data_Bus} && \ $$b{Uses__Tri_State_Data_Bus} 
return 1 if I $$a{Uses„Tri_jState_Data_Bus} && $$b{Uses_Tri_State_Data__Bus} 

# It's a tie! Whoever has the alphabetically-first class-name wins: 
my $class_result - $$a{class} cmp $$b{class}; 

return $class_result if $class_result != 0,- 

# It's still a tiel Whoever has the alphabetically- first module name wins: 
return $$a{name} cmp $$b{name} ; 

} 

sub Genera te_Symbol 
{ 



ray ($SysJ = (<£_) ; 



&PBM_Progress {"Generating Symbol $$Sys {name} .bsf ' ' ) ; 

# There will -always- be a group at the top with the unwavering 

# elk/reset ports on it. 
# 

my @symbol_segments = ("elk | 1 | input, 

reset_n j 1 | input,"}; 

# It sure would be nice if there were, say, a database of all the 

# widths and directions of every port on the system-module. 
# 

# HEY I It's our lucky day! 

# Someone already did "&List_Ports_For" on the system-module. Get 

# handy hashes of directions and widths : 
# 

my $width_hash = &Get_Port_Widths { $$Sys {name} } ; 

my $dir__hash = &Get_Port„Directions ( $$Sys {name} ) ; 

# Put all shared-port groups first: 

foreach $bus„name ( $$Sys { tri_state_bus_list } ) { 
my @bus_ports = ( ) ; 

my $shared_port_table = $$Sys{shared_port__table} ; 
foreach $ shar ed_por t_naiue (keys (%$shared_j?ort_table) ) { 

my $w = $ $width_hash{$ shared j)ort_name } ; 

my $d = $$dir_hash { $shared_jport_name} ; 

push (@bus_i)orts f "$shared„port_name | $w | $d" ) ; 

} 

# A null string here should not happen, but don't risk it: 
my $segment_ description = join {" ,\n n , @bus ports) ; 

push (@symbol_segments, $segment_description) if $segment_de script ion; 



# Now go through the system, module-by-module, and make 

# a segment for each one's external (non-shared) ports. 

# Note that we even include the master. Uioses don't have any 

# external ports, but who knows what the future may bring? 
# 

foreach $Mod (sort segment_sort &Get_Sys_Module_List { $Sys) ) { 
my @mod_ports = ( ) ; 

foreach $Port (&Get_Module_Port_List ( $Mod) ) { 
next if $$Port{is_shared} ; 

next unless $$Port {is„external} ; 

my $pin__name = $$Port {system_signal} ; 
my $w = $$width_hash{ $pin_name} ; 

my $d = $$dir__hash {$pin__name} ; 

push (@mod_ports, " $pin_name | $w | $d" ) ; 

} 

# Avoid asking for a "segment" for modules that don't have any ports: 
my $segment_description = join (",\n", @mod_jports) ; 

push (@symbol_segments , $segment_description) if $segment_description 

} 

# Mr. Ferrucci, if you please... 
# 

my $bsf_contents = &Generate_BSF ( $$Sys {name} , @symbol_segments) ; 

# Do the usual file-opening mechanics: 
# 

my $bsf_f ilename = " $$Sys{system_directory} /$$Sys {name} .bsf " ; 



open (BSFOUT, "> $bsf_f ilename" ) or die 

"Generate_Symbol: Couldn't open $bsf_f ilename for output. $1"; 
print BSFOUT $bsf_contents ; 
close BSFOUT; 

} 

######################### ####################################### 

# Sys_Gen_Housekeeping 
# 

# Well, this is a fine how-do-you-do, isn't it? 
# 

# There are a handful of annoying little things we need to do 

# to prepare for the great, glorious business of sys tern- genera ti on . 
# 

# Perhaps most importantly, we use a lot of the handy-dandy 

# logic-generation routines from "generator_functions .vpp'' (e.g. &Mux) . 

# That's swell, but this here file (that you're reading) is a 

# Perl -module- which gets "use"d. That's pretty civilized, and 

# there are several good reasons for doing it that way: 
# 

# * Perl line-numbers and error-reporting actually work. 
# 

# * We don't have to "eval" this file TWICE through Vpp ' s 

# two-pass process. 
# 

# But, since this logic-generation program doesn't get Vpp'd, 

# how can we be sure that " genera tor_f unctions .vpp" ever got loaded? 

# Well, we can be sure by -loading it ourselves-. We do so 

# by calling &Vpp on our own behalf — not to generate logic, but 

# just to load a library of handy Perl functions. Truth 

# is stranger than fiction. 
# 

# And that's not all. All of the generator- functions have an 

# oddball output -behavior: They don't actually print anything into 

# the output file unless a special vpp-variable says it's "safe". 

# That variable is "$vpp„pass", which must be '2' for any of the 

# generator-functions to print. So, sneakily, we set this 

# global variable here, after we've read- in the library using 

# &Vpp. Because this is sneaky, it's also implement at ion -dependent 

# and error-prone. This will break some day when somebody 

# changes the way Vpp works inside, I guarantee it. Global variables 

# truly are evil . 
# 

# FUTURE WORK: 
# 

# I respectfully suggest that the approach used by "generator Junctions . 

# could use a good overhaul. Phrasing all that stuff as a real Perl 

# module would have several advantages — not the least of which would 

# be eliminating the need for this kludge you see here. 
# 

################################################################ 

sub Sys_Gen_Housekeeping 

{ 

my ($Sys) = (&_) ; 

my @Synth_File_List = (); 

$$Sys{synth_file_list} = \<£Synth_File_List ; 

$PBM_VERBOSE = $$Sys {verbose} ; # More evil globals . 

# run Vpp, but just to "import" the generator-functions library: 
&Vpp ("-Q" , 

" -D " , $$Sys{system„directory} , 



" -H" , 11 $$Sys {sopc_directory} /bin /vpp/ gene r at or_f uric t ions .vpp" 
) ; 

# Aren ' t I sneaky? 

# !!BANG!1 ... Ouch! My foot! 

$vpp_ pass =2; # this lets all the vpp-libraries actually print. 

} 

###### ########################################################## 

# Genera te„PBM_And_Sys tern 
# 

# Given a reference to the system- level PTF section (and 

# an %arg-hash that we inherit from mk_syst embus) , this 

# function does everything necessary to: 
# 

# * Create an HDL implementation of the system PBM 

# * Create an HDL implementation of the system-level "core" module. 

# * Create an HDL wrapper. 
# 

# This task involves rummaging- through the PTF data, opening all the 

# appropriately-named files in the appropriate places, writing all the 

# HDL -code into them, and tying a bow around the whole mess. 

# ^ . 

# Once you've done this, the only thing left for you to do is 

# synthesize it and include it in your design. 
# 

# This function returns {by reference) the constructed database 

# known as H %Sys." This way, our caller can snoop on all the 

# excellent work we've done on his behalf. 
# 

################################################################ 

sub Generate_PBM_And_System 

{ 

my {$arg, $db_Sys) = (©_) ; 

my %Sys; undef %Sys; 

%Sys = %$arg; # Start off by knowing everything that 

# mk_systembus knows. 



&Sys_Gen__Housekeeping (\%Sys) ; 

&Get_Sys tem_Data_From„PTF ( \%Sys , $db„Sys ) ; 

&Check_Avalon_Rules ( \%Sys ) ; 

&Create_System_Port_Lists (\%Sys) ; 



&Generate_PBM 
&Generate_Core 
&Generate_Wrapper 
&Genera t e_Inc„F i 1 e 
&Generate_Symbol 



(\%Sys) ; 
(\%Sys) ; 
(\%Sys) ; 
(\%Sys) 
(\%Sys) ; 



if $Sys{hdl_language} =~ /^ahdl/i 



return (\%Sys) ; #caller may want to know new info too; 



1; # Perl modules have to say " 1" . 



ptf — parse. pm 



fuse strict; # dont check in with enabled 

5 

# 

# Each Section consists of a 

# Type, a Name (which can be 

# be blank) , and an unordered 
10 # list of Elements. 

# 

# Each Element can be either 

# a Name and a Value, or another 

# Section. 
15 # 

# An Element list is an associative 

# array where the key is the name of 

# a value, or the name of a module kind. 
# 

20 # For a value, the value at that key is just the value. 
# 

# FOr a module kind, the value is another associative 

# array whose keys are the module names, and whose 

# contents are each element lists. 
,25 # 

f # PTFHash -> 

f # { 

# name => name of assignment, or kind of section if section, or name of 
j file if outer 

130 # data => value of assignment, or name of section if section 

# kind => "section" or "file" (or nothing means "assignment") 
5 # section => PTFHash if section 

J # } 

# 

. 35 

1 # 

# arrayRef ptf_ReadSectionElements (string) 

I # 

I 40 # returns a reference to 

# an array of elements . 

sub ptf_ReadSectionElements 
{ 

45 my $data = shift; 

my @-elementList ; 



50 



55 



while ($data) 
{ 



# 

# Find the next thing, which is either 

# a name= n value" ; pair, or a SECTION name {} block. 
# 

if ($data =~ 



# beginning of string 
([ A ; \{]*) # the element, up to the next ; or { 

# terminating semi 

50 (.*) # and the whole rest of the string. 



$/sx) 

{ 

# 



# It's a value, since it ends with a semicolon 
# 

my $ element Line ; 
my $elementName; 
my $elementData; 

$data = $2 ; 
$elementliine = $1; 

if {$elementLine =~ / A \s* (.*?) \s*\=\s*\ "(.*?) \ " /s ) 
{ 

my %newElement ; 

$elementName = $1; 
$elementData = $2; 

$newElement{name} = $elementName ; 
$newElement {data} = $elementData; 
push(@elementList , \%newElement ) ; 
} 

} 

elsif ($data =~ 

(.*> 

$/sx) 

{ 
# 

# It's a section, 
# 

my $sectionKind; 
my $sectionName; 
my $sectionKindName; 
my $sectionContents ; 

$data = $2 ; 

$sectionKindName = $1; 

if ($sectionKindHame =~ / A \s* ( . *?) \s*$/s) 
{ 

$sectionKind = $1; 
$sectionName = ""; 

# 

# See if the section has a name or no. . . 
# 

if ($sectionKind =~ / A \s* (\S*?) \s+(\S*?) \s*$/) 
{ 

$sectionKind = $1; 
$sectionName = $2; 
} 

$sectionKindName = $sectionKind . " " . $sectionName; 
# 

# Find matching curlybrace ending 
# 

{ 



# beginning of string 

# the element, up to the next ; or { 

# section beginning 

# and the whole rest of the string. 



since it ends with a left-curly 



my $braceDepth = 1; 

my $dataLen = length { $data) ; 

my $i; 

my $ch; 

my %newElement; 
$i = 0; 

while ($i < $dataLen and $braceDepth > 0) 
{ 

$ch = substr ($data, $i, 1) ; 
$braceDepth++ if($ch eq " { " ) ; 
$braceDepth — if($ch eq "}"); 
$i++; 
} 

# Bust in half, neither half gets the last 
$sectionContents = substr ( $data, 0 , $i-l) ; 
$data = substr ($data, $i) ; 



# 

# Recursively descend, and get the tree 

# for this section, and add it to the list. 
# 

$newElement{name} = $sectionKind; 
$newElement {data} = $sectionName; 
$newElement { section} 
ptf_ReadSectionElements ($sectionContents) ; 

push(@elementList, \%newElement } ; 
} 

} 

} 

else 

{ 

$data = " " ; 
} 

} 

# 

# Return reference to this whole tree. 
# 

return \@elementList ; 
) 

# 

# ptf new__p t f _f r om_f i 1 e 
# 

# returns a ptf hashref 

sub new_ptf_f rom_f ile 
{ 

my $fileName = shift; 
my $f ileContents ; 
my %ptfHash; 

$f ileContents = readFile ( $f ileName) ; 
return " " if ( $f ileContents eq " 11 ) ; 



# strip comments completely 

$f ileContents =~ s/\s*#.*?\n/\n/sg; 



# 

# Populate top level of the ptf-ref 
# 

$ptfHash{name} = $f ileName; 
$ptfHash{kind} = "file"; 

$ptfHash{section} = ptf JLeadSectionElements ($f ileContents) 

return \%ptfHash; 
} 

# 

# ptf new_ptf_f ile (f ileName) 
# 

# returns a ptf hashref 

sub new_j?tf_f ile 
{ 

my $f ileName = shift; 
my %ptfHash; 

$ptfHash{name} = $f ileName; 
$ptfHash{kind} = "file"; 

return \%ptfHash; 
} 

# 

# ptf new_ptf (name, data) 
# 

# returns a ptf hashref with the 

# new assignment ptf. (It becomes 

# a "section" if you add any children 

# to it.) 

sub new_j?tf 
{ 

my %ptfHash; 

my $name = shift; 

my $data = shift; 

$ptf Hash {name} = $name; 
$ptfHash{data} = $data; 
return \%ptfHash; 
} 

# 

# get__child_count 
# 

sub get„child_count 
{ 

my $ptfRef = shift; 
my $childCount = 0; 

my $sectionRef - $$ptfRef {section} ; 

$childCount = $#$sectionRef + 1; 

return $childCount; 

} 

sub get_data 
{ 



my $ptfRef = shift; 



return $$ptf Ref {data} ; 
} 

sub get_name 
{ 

my $ptfRef = shift ; 

return $ $pt f Ref {name} ; 
} 

sub set_data 
{ 

my $ptfRef = shift; 
my $new__data = shift; 

$$ptf Ref {data} = $new_data; 

return ; 

} 

sub set_name 
{ 

my $ptfRef - shift; 
my $new_name - shift; 

$$ptfRef {name} = $new„name; 

return ; 

} 

# 

# get„child 
# 

sub get_child 
{ 

my $ptfRef = shift; 
my $ index = shift; 
my $key; 
my $sectionRef; 

$sectionRef = $$ptf Ref {section} ; 

return $$ sect ionRef [$ index] ; 
} 

# 

# get_child_by_name (ptfRef , childName, [returnlndexToo] ) 
# 

# childName = "*" : return first child 

# childName = "fish": return child named "fish" 

# childName = "fish blue": return child section type "fi 
# 

sub get__child„by_name 
{ 

my $ptfRef = shift; 

my $name = shift; 

my $ returnlndexToo = shift; 

my $ sect ionRef; 
my $childRef; 



my $nameFront; 
my $nameBack; 
my $i? 

5 ( $nameFront , $nameBack) = split (/ /,$name,2); 

if ($$ptfRef {section} ) 
{ 

$sectionRef = $$ptfRef {section} ; 

10 } 
else 

{ 

return " " ; 
} 



15 



55 



60 



for($i =0; $i <= $#$sectionRef ; $i++) 
{ 

$childRef = $$sectionRef [ $i] ; 



20 # easy case 

last if ($name eq »*»); 

# harder case for named section 
last if ($nameFront eq $$childRef {name} 
25 and ( $nameBack eq " " or $nameBack eq 

$$childRef {data}) ) ; 

$childRef = 
} 

30 return ( $childRef , $i) if $returnIndexToo; 

return $childRef; 
} 

35 # 

# sub get_child_by_path(ptfRef , path [, buildlf Absent [ , returnParentToo] ) 
# 

# path is slash-separated of names as above 
# 

40 sub get„child_by_path 
{ 

my $ptfRef = shift; 
my $path = shift; 
my $buildlf Absent = shift; 
45 my $ returnParentToo = shift; # if true, return 2 element list 

my $pathFront; 
my $pathBack; 
my $childRef; 
50 my $parentRef; 

my $ index; 



# In case path is null, or nearly so 
$childRef = $ptfRef; 

while ($path ne " " and $path ne V") # paths dont really have a leading 
slash. . . but . 

{ 

{ $pathFront , $pathBack) = split ( / \ / / , $path, 2 ) ; 

($childRef , $index) = get_child„by_name ( $ptfRef , $pathFront , 1) ; 
if{$childRef eq "» and $buildlf Absent } 
{ 

my % child; 



my $sectionRef; 

# Build new child, then take its reference 
{ 

my ($childName, $childData) = split (/ / , $pathFront , 2 ) 

$child{name} = $childJSTame ; 
$child{data} = $childData; 
$childRef = \%child; 
} 

if (not $$ptfRef {section} ) 
{ 

$$ptfRef {section} = []; 
} 

$sectionRef = $$ptfRef {section} ; 
push(@$sectionRef , $childRef ) ; 
} 

return " " if($childRef eq " " ) ; 

$path = $pathBack; 
$parentRef = $ptfRef; 
SptfRef = $childRef; 
} 

return ($parentRef , $childRef, $ index) if $returnParentToo ; 

return $childRef; 

} 

# 

# sub get_f irst_children„of_type (ptfRef , type) 

# 

# returns an array of all ptfRef 1 s first children 

# that have type ($type) ; 

sub get_f irst_children_of__type 
{ 

my C $db__parent , $type) = @_; 

my $num__children = &get_child_count ($db_parent) ; 

my @child_array ; 

for ( $child_index = 0; 

$child_index < $num__children; 
$ chi ld_index++ ) 

{ 

my $db_child = &get_child ( $db_parent , $child„index) ; 
next if &get_name ($db_child) ne " $type" ; 
push (@child_array, $db_child) ; 

} 

return (@child_array) ; 

} 

# 

# sub delete_child (ptfRef , path) 
# 

# path is si ash- separated of names as above 
sub delete_child 

{ 

my $ptfRef = shift; 
my $path = shift; 
my $childRef; 
my $parentRef ; 



my $ index; 

my $sectionArrayRef ; 

( $parentRef , $childRef , $ index) = get_child_by_path ( $ptf Ref , $path, 0,1) 
5 extra flag to return parent, too 

$sectionArrayRef = $$parentRef {section} if $parentRef ne " " ; 
splice (@$sectionArrayRef , $index, 1) ; 

10 

return " ,T ; 
} 

# 

15 # sub get_data_by_path(ptfRef , path) 
# 

# path is slash-separated of names as above 
# 

sub get_data_by_path 

20 { 

my $ptfRef = shift; 
my $path = shift ; 
my $childRef; 
my $result = " " ; 

25 

$childRef = get_child_by_path ($ptf Ref , $path) ; 
$result = $$childRef {data} if $childRef; 

i return $result; 

i30 } 

# 

# sub add_child_data(ptfRef , path, data) 
# 

35 sub add„child_data 
{ 

my $ptfRef = shift; 
my $path = shift; 
my $data = shift; 
I 40 my $childRef ; 

$childRef = get_child_by_j)ath($ptfRef ,$path,l) ; # build if absent 
$$childRef {data} = $data; 

45 return ; 

} 

# 

# sub add_child(ptfRef , path, childPTFRef) 
50 # 

sub add_child 
{ 

my $ptfRef = shift; 
my $path = shift; 
55 my $childPTFRef = shift; 

my $childRef; # reference down in the path 

my $sectionRef; 

60 $childRef = get_child_by_path($ptfRef , $path, 1) ; # build if absent 

$$childRef {section} = [] if (not $$childRef {section} ) ; 
$sectionRef = $$childRef {section} ; 



push (@$sectionRef , $ ch.il dPTFRef ) ; 



return ; 
} 

5 

# 

# toString (ptfRef [ , indentLevel] ) 
# 

# (helper routine: sectionToString (ptfRef , indentLevel) 
10 # 

sub toString 
{ 

my $ptfRef = shift; 
15 my $ indentLevel = shift; 

my $result = " " ; 

if ($$ptfRef {kind} eq "file" 
20 and $ indentLevel eq " " ) 

{ 

$result .= n #\n" ; 

$result .= "# file: " . $$ptfRef {name} . "\n ,f ; 
$result .= 11 # date: " . dateTime ( ) . " \n" ; 
25 $result .= 11 # generated by a perl script \n"; 

$result .= "nn"; 

$result .= childrenToString ($ptf Ref , $indentLevel) ; 
} 

elsif ($$ptfRef {section} ) 
30 { 

$indentLevel += 3; 

$result .= indentSprint ($indentLevel , $$ptfRef {name} , 

" ,$$ptf Ref {data}) ; 

$result . = indentSprint ( $ indentLevel ,"{"); 
35 $result .= childrenToString ($ptf Ref f $indentLevel) ; 

Sresult * = indentSprint { $ indentLevel ,"}"); 
} 

elsif ($$ptf Ref {name} ne " " ) 
{ 

40 $ indentLevel += 3; 

$result .= indentSprint {$ indentLevel, $$ptf Ref {name} , " 

\ » " , SSptf Ref {data} , " \ " ; " ) ; 
} 

return $result; 

45 } 

sub childrenToString 
{ 

my $ptfRef = shift; 
50 my $indentLevel - shift ; 

my $result = " " ; 

my SchildCount; 
my $i; 

55 my $childRef; 

SchildCount = get_child_count ($ptfRef ) ; 
for($i - 0; $i < SchildCount; $i++) 
{ 

60 $childRef = get_child($ptfRef , $i) ; 

$result .= toString ( $childRef ,$ indentLevel ) ; 
} 

return $result; 



} 



sub indent Sprint 
{ 

5 my $ indent Level = shift; 

my $a; 
my $ result; 

$result = " " x $ indent Level ; 

10 

for($a = 0; $a < 15; $a++) 
{ 

$result .= shift; 
} 

15 

$result .= "\n"; 
return $result; 
} 

20 # 



sub ptf_indent 
{ 

25 my $a = shift; 

my $ re suit; 

$result = sprintf (" [%02d] " ,$a) ; 
$result .= " 1 " x $a; 
30 return $result; 

} 

# 

# write_ptf__f ile {ptfRef [ , f ileName) 

35 # 

# Write the ptf to a file, optionally to a new filename 

# Return "ok" if success, " " if fail. 
# 

sub write_ptf_f ile 
40 { 

my $ptfRef = shift; 
my $f ileName = shift; 
my $ptfString; 
my $ re suit; 

45 

$f ileName = get_name ( $ptf Ref ) if !$f ileName; 

$ptf String = toString ( $ptfRef ) ; 

$result = writeFile ($f ileName, $ptf String) ; 

50 

return $result; 
} 

# 

55 # ptf_PrintRef (a reference) 
# 

# Print an indented view of the reference 
# 

# This is only useful as a debugging aid 
60 # 

sub ptf_PrintRef 
{ 



my $theRef = shift; 
my $ indent = shift; 

my $refType = ref $theRef; 

if ( ! $refType) 
{ 

print $theRef , " \n K ; 

return; 

} 

if ($refType eq "HASH") 
{ 

my $key; 
my $value; 

print " (HASH) \n" ; 
$ indent ++; 

foreach $key ( sort (keys (%$theRef) ) ) 

print ptf_indent( $indent) ,$key, 11 = " ; 

$ value = $$theRef {$key} ; 

ptf _PrintRef ( $value , $ indent) ; 

} 

return; 
} 

if ($refType eq "ARRAY") 

my $arraySize = scalar @$theRef; 

my $i; 

my $value; 

print " (ARRAY) \n" ; 
$ indent ++; 

for($i =0; $i < $arraySize; $i++) 
{ 

$value = $$theRef [$i] ; 
if (def ined($ value) ) 

print ptf_indent ($ indent) , " [$i] : " ; 
ptf_PrintRef ($value,$ indent) ; 

} 

} 

} 

} 



# 

# dateTimeO 

# *- . 

# returns a relatively nice date & time string 

# 

sub dateTime 

my ($sec, $min, $hour , $mday, $mon, $year f $wday, $yday, 

localtime(time) ; 
$mon++ ; 

$year += 19 00; 



my $d = sprintf ("%04d.%02d.%02d" ,$year, $mon,$mday) ; 
my $t = sprintf ( ,, %02d:%02d:%02d'\$hour,$min,$sec) ; 

return " $d $t"; 
5 } 

# 

# readFile (f ileName) 
# 

10 # returns the complete file contents 
# 

sub readFile 
{ 

my $f ileName = shift; 
15 my $ bunch; 

my $result; 
my $did; 

if (open (FILE, $f ileName) ) 

20 { 

binmode FILE; # Bite me, Windows I — dvb 

whi le ( read ( FILE , $bunch ,32000)) 
{ 

$result .= $bunch; 
25 } 

close FILE; 
} 

return $result; 

30 } 



# writeFile (f ileName, contents) 
35 # 

# creates new file and writes entire 

# file contents. Return "ok" if so, 

# or " " if not. 
# 

40 sub writeFile 
{ 

my $f ileName = shift; 
my $contents = shift; 
my $did; 

45 

# 

# Delete existing file, if any. 
# 

unlink ($fileName) if(-e $ f ileName ) ,- 

50 

Sdid = open (FILE, ">$f ileName" ) ; 
if (Sdid) 
{ 

binmode FILE ; # Bite me, Windows I — dvb 

55 print FILE $contents; 

close FILE; 
return "ok"; 
} 

60 return " " ; 

} 



# 



# copyFile (sourceFile,destFile) 
# 

sub copyFile 
{ 

my $sourceFile = shift; 
my $destFile = shift; 
my $f ileContents ; 
my $result; 

$f ileContents = readFile ($sourceFile) ; 
return if ! $f ileContents ; 

$result = writeFile ($destFile, $f ileContents) ; 

return $result; 
} 

# 

# copyDirContents { sourceDir , destDir) 
# 

# If there's any files in sourceDir, 

# then ensure that destDir exists, and 

# copy the files over, but don't bother 

# with ones which are already there. 
# 

sub copyDirContents 
{ 

my $sourceDir - shift; 
my $destDir = shift ; 

my ©sourceDir; 
my ©destDir; 
my $file; 

opendir (DIR, $ sourceDir) or return; 
©sourceDir = readdir(DIR) ; 
closedir (DIR) ; 

opendir (DIR, $destDir ) or return; 
©destDir = readdir(DIR) ; 
closedir (DIR) ; 

foreach $file (©sourceDir) 
{ 
# 

# Skip files starting with . or underscore 
# 

if{ (!($file =- &Sc ($file ne "vssver.scc") ) 

{ 

# (allow overwriting) if ( (scalar grep ( / A $ { file} $/, ©destDir) 

) == 0 ) 

{ 

mkdir ($destDir, 511) ; 

copyFile ("$ {sourceDir }/$ {file} » , "$ {destDir} /${ file} " ) ; 
} 

} 

} 

return " ok"; 
} 



# 

# killDirectory 
sub killDirectory 
{ 

return; 

my $dir = shift; 
my @dirContents ; 
my $file; 
my SfullFile; 

return if (! (-e $dir) ) ; 



opendir (DIR, $dir) or return; 
©dirContents = readdir (DIR) ; 
closedir (DIR) ; 

foreach $file (@dirContents) 
{ 

next if($file eq " . " or $file eq " . . " } ; 
SfullFile = n $dir/$file" ; 

if { -d $fullFile) 
{ 

killDirectory (SfullFile) ; 
} 

else 

{ 

unlink (SfullFile) ; 
} 

} 

rmdir($dir) ; 
} 

# 

# All routines go above this line. 

return 1; # modules just do this 

# End Of File 
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search authority. 

IMPORTANT 

While this matter is being prosecuted, **ALL** foreign mail should be 
directed to the Managing Sun Attorney, but address the envelope as 
follows: 

Patent Operations Manager 
Sun Microsystems, Inc. 
M/S: UPAL01-521 
901 San Antonio Road 
Palo Aito, CA 94303 



LAWFIRM REF.: SUN1P264 



SERIAL NO.: 09/608,312 



FILING DATE: 06/30/00 
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This includes the letter assigning this case to foreign associates. 
Your cooperation in helping to keep our files current and accurate is 
appreciated. 

If you have any questions concerning this matter, please call me at 
(408) 343-1619. 
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Ellie Gilbert 
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Patent Specialist 
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408.343.1757 Fax 
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eleanor.gilbert@sun.com 


\ 


\\\ 
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CC: 



<foreign.docket@kat.corp.sun.corn>, <eleanor.gilbert@eng.sun.com> 



ptf _update .pm 



use ptf parse; 



1} Update all the signal-type names to their new version. 

2) Make sure every module has the following required assignments 
in its SYSTEM_BUILDER__INFO section: 

- Data_Width 

- Address_Width 



################################################################ 

# PTF„Translate_01d_Version 
# 

# Sometimes we will find ourselves in the unfortunate position 

# of reading a PTF-file generated by an older version of the 

# kit. This function is a pre-filter which is called before anything 

# else happens to the PTF-file. 
# 

# This script has these jobs: 
# 

# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

################################################################ 
my %avalon__role__translation; 

$avalon_role_translation {reset__n} = 
$ aval on__role_translat ion {read_data} = 
$avalon__role__translation {write__data} = 
$avalon__role_translation {r_wn} = 
$avalon_role_tr anslat ion {w_rn} = 
$avalon_role_translation {be„n} 

$avalon_role_translation {chip__s elect} = 
$avalon_role_translation {wait_„re quest} = 
$avalon_role_translation {bus_wait> = 
$avalon_role_translation (registered_chip_select_n) = 
$avalon_role__translation {irq} = 
$avalon_role__translation {address} = 



3) 



Make sure every module has a correct "class" assignment at its 
top-level . 



"resetn" ; 
"readdata" ; 
"writedata" ; 
"writ en" ; 
"readn" ; 
"byteenablen" ; 
"chipselect " ; 
11 wait request " ; 
"wait request" ; 
ff regis teredselectn" 
"irq" ; 
"address" ; 



my %master_type__translation; 

$master_type_translati on {elk} = "master. 

$master_type__tr anslat ion {reset_n} = "master. 

$master_type_translation {bus_wait} = "master. 
$master__type___translation {mem__is_32__bits} = "master, 

$master_type__translation {if etch} ~ "master. 

$master__type__translation {data_to__cpu} - "master. 

$master_.type_translation {data_f rom_cpu> = "master 

$master„ type_.tr anslat ion {mem_addr } - "master 

$master__type__translation {mem_wr_n} = "master 

$master_type_translation {mem_rd_n} = "master 

$raaster_type_translation {mem_be_n} = "master 

$master__type_translation {irq} = "master 

$ma ster__type_.tr anslat ion {irq_number} = "master 



JLnput_clk" ; 
_input_resetn ,f ; 
_input_wait request" ; 
_inpu t_memi s 3 2 b i t s " ; 
,output__if etch" ; 
,input_readdata " ; 
_output_writedata" ; 
„output_address " ; 
_putput__writen" ; 
_output„readn" ; 
_output_byteenablen" ; 
_input_irq ,r ? 
_input_irqnumber" ; 



my %class_translation_f rom_l_0 ; 
$class„translation_f rom„l„0 {nios } 
$class_translation_f rom„l_0 {uart} 
$class_translation_f rom_l_0 {pio } 
$class_translation_f rom_l_0 {timer} 
$class__translation_f rom_JL_0 {onchip_rom} 
$class_translation_f rom__l_0 {onchip_ram} 



" jnioswizard" ; 
" juartwizard" ; 
" jpiowizard" ; 
" j t imerwi zard " 
" jramwizard" ; 
" jramwizard" ; 



• %class_translation_f rom_jw 


— f 

- \ 


3 nios wizard 


— > 


"altera_nios " , 


3 uar tw 1 z ard 


— > 


"altera_avalon„uart " , 


jpiowizard 




" al tera_avalon„jpio " , 


j t imerwizard 


=> 


" altera_avalon timer"" , 


j ramwi z a 3rd 




" altera_avalon onchip_Tn.emo T~y " , 


J XiCWlACli.U, 


— >. 


aiLera avajion , 


j spiwizard 


=> 


gl LeXg aval Oil to^-L / 


jusersocketwizard 


=> 


" altera__avalon_user_def ined_inter f ace " , 


j 2 xi dt 7 1 vO 1 6 s awi z ar d 


=> 


" altera_nios_dev_board_sram32 " , 


j am2 9 1 v8 0 Ob_smal 1 wi z ard 


=> 


11 al tera_nios_dev_board_.f lash_small " , 


j am2 9 lv8 0 Obwizard 


=> 


11 altera_nios_dev — board„f lash" , 


j idt71v016_smallwizard 


=> 


"altera__nios_dev_board_sraml6 " , 



) ; 



my $PTF_CHANGES = 0; 



s ub PTF_Tr ans 1 a t e_F r om__Ve r s i on_l_0 
{ 

my ($ptf__filename, $db_PTF_File) = (@__) ; 

my $db_Sys = &PTF_Get„Required_Child_By_Path { $db_PTF„File, "SYSTEM"); 

my $db_Sys_WSA = ScPTF_Get_Required_Child__By_Path ($db_Sys, 

"WIZARD_SCRIPT„ARGUMENTS") ; 

&Rename__01d_edf_File ( $ptf_f ilename) ; 

printf STDERR " ****PTF_Translate_0ld_Version: 
Updating old-format PTF-file: $ptf_f ilename\n" ; 

$ PTF__CHANGES += &PTF_Update_Boolean_Values ($db_Sys) ; 

# Get some old-tyme global parameters which we now want to poke 

# into the CPU: 

my $reset_module = &get„data_by_path ( $db_Sys_WSA, 11 reset__module" } ,* 

my $ r e s e t_o f f s e t = &ge t_da t a„byj a th { $ db__3y s_WSA f 11 r e s e t_o f f s e t " ) ; 

my $vecbase__module = Scget_data__by_path($db_Sys_WSA, "vecbase_module" ) ; 

my $vecbase_of f set = &get_data_by__path ( $db__Sys__WSA, " vecbase__of f set " ) ; 

my $ ma i nmem_mo du 1 e = &get_data_by_path($db__Sys„WSA / "mainmem__module " ) ; 

&add_child_data ($db_J3ys_WSA, "dtatmem„module" , $mairimem__module) ; 

my $num__modules = &get_child„count ($db_Sys) ; 

for (my $module_index = 0; $module_index < $num_modules ; $module_index++ ) 
{ 

my $db_Module = &get_child ($db_Sys, $module_index) ; 

next if &get_name { $db„Module) ne "MODULE"; # ignore non -modules . 

################ 

# Blast HDL_INFO file-list assignments, 

# Any files that we need will be created by the new class 1 s 

# generatorjprogram . 
# 

my $db_HDIiI = &get_child_by_path($db__Module, "HDL_INF0" ) ; 
&add_child_data { $db_HDLI , n Simulation__HDL_Files " , " " ) ; 
&add_child„data ( $db_HDLI , " Synthesis__HDL_Files » , " " ) ; 

my $old„module_type = &get_data_by__path ($db_Module, 

M HDL_lNFO/Module_Type" ) ; 

my $is__master = $old_module„type eg; "nios" ; 



my $db_Types = &get_child_by_path ( $db_Module f " PORT JWIRING/ TYPE" ) ; 

my $db_Widths = &get_child_by_path { $db__ Module , " PORT_WI RING /WIDTH" ) ,- 

my $db__WSA = &get_child_by_path( $db„Module, "WIZARD_SCRIPT_ARGUMENTS 

my $db_J3BI = &get_child_by_path($db_Module, ,f SYSTEM„BUILDER_INFO" ) ; 



my $ addre s s_wi dth = " — unknown — 

my $data__width - " — unknown--" ; 

my $has„reg_sel = 0; 

my $has_irq = 0; 

my $has_tr instate = 0; 



################ 

# Poke-in some Nios CPU-specific parameters, 
if ($is_master) { 

($db_JtfSA, 
($db„WSA, 
($db_WSA f 
($db_WSA, 

} 



5cadd__chi ld_data 
&add_chi ld_da ta 
&add_chi ld_da t a 
&add_child_data 



"reset_module" , 
n vecbase_module n , 
l, reset_of f set" , 
"vecbase__of f set" , 



if this is the CPU: 

$reset_module) ; 
f $vecbase_module) ; 

$reset__of f set) ; 
f $vecbase__of f set) ; 



################ 

# Translate all the old avalon-roles into new avalon-roles . 
# 

my $num_j?orts = &get_child_count ($db_Types) ; 

for (my $port„index = 0; $port_index < $num_ports; $port_index++ } 
{ 

my $db_Assignment = &get_child ($&b_JTypes, $port_index) ; 
my $port_name = &get_name ($db_Assignment) ; 

my $type = &get_data_by_j>ath ( $db_Types , $port_name) ; 

my $width = &get_data_by_path ($db_Widths, $port_name) ; 



my $new_type = $type; 



if ($old_iuodule_type eq "nios" && 

($new__type =- /( input | output ) / )) 

{ 

# The old nios module had a very strange port -wiring section, 

# where no special types were given for the master's signals. 

# We have to use a special table to give the master some 

# port-types, based on the (known) port-names on the Nios: 
# 

$new_type = $master_type_translation { $port__name} ; 

} 



foreach $old_role (keys (%avalon_role_translat ion) ) 
{ 

my $new_role = $avalon_j:ole_translation{$old__role} ; 
$new_type =~ s/$old_role$/$new_role/ ,* 

} 

$data__width = $width if $new_type =~ /data$/; 
$address_width = $width if $new_type =~ /_address$/; 
$has_irq =1 if $new_type =~ /_irq$/; 

$has„reg_sel =1 if $new_type =~ /_registeredselectn$/ ; 

$has_tri_state =1 if $new_type =~ /_data$/; 

$new_type =~ s/„shared_of f_phip_/_shared_/ ; 

if ($new_type ne $type) 
{ 

print STDERR " $port_name : obsolete port type $type found. \n n ; 
print STDERR " automatically replaced by new type $new_type . \ 
$PTF_CHANGES++ ; 



&add_child_data ($db__Types, $port_name, $new_type) ; 

} 

} 



################ 

# Upgrade to new PORT-section style. 
# 

&PTF_Updat e_Port__Wiring_Sect ion ( $db_Module ) ; 
################ 

# Use " HDL„INFO/Module__Type " assignment to figure-out new "class". 
# 

# We use the "Module_Type" assignment. Note that the old 

# "usersocket" megawizard allowed the user to type -anything - 

# into this field — so any ModuleJType we don't recognize must 

# be a user-socket. 
# 

my $class = Stget_data_by_path ($db_Module, "class"); 

if (!$class) 

{ 

Sclass = $class„translation_f rom_l_0 {$old_module__type} ; 
#JWIZ NAME CHANGE 

$class = " jusersocketwizard" if [$class; 
&add_child_data ($&b_Module, "class", $class) ; 

print STDERR "Added 'class' assignment $class to obsolete MODULE \n n ; 
$PTF„CHANGES++; 

} 

################ 

# Add absolutely-required sections to PTF: 
# 

&PTF_Addit_And_Warnem( $db_SBI , "Data.Width" , $data_width) ; 
&PTF_Addi t — And_Warnem ( $db_SBI t " Addres s_Widlth " , $addres s__wid th ) ; 
&PTF_Addit_And„Warnem($db_SBI, " Is_Enabled" , 1) ; 
&PTF_Addit_And_Warnem { $db_SBI , " Is_Bus_Master " , $is_master ) ; 
&PTF_Addit_And_JArarnem($db„SBI, " Da te — Modified" , scalar (localtime) ) ; 
&PTF„Addi t__And_Warnem ( $db_SBI , " Ins tantiate„In„System_Module 1 ) ; 

if ( ( ! $is_master) ) { # Checks for slaves-only: 
&PTF_Addi t_And_Warnem { $db_SBI , 

,, Uses_Tri_State_Data_Bus" , $has_tri_state) ; 
&PTF„Addi t_And_Warnem ( $db_SBI , 

"Uses^Registered^JSelect^ignal" , $has_reg_sel } 

&PTF„Addi t„And„Warnem ( $db_SBI , " IRQ__Number n , "N/A" ) ; 

&PTF_Addi t_And_Warnem ( $db_SBI , " Has_IRQ " , $has_irq) ; 

&PTF_Addit_And_Warnem{$db_SBI, M Address_Alignment " , "native" ) ; 

} 



################ 

# Here are some module -specific updates: 
# 

if { ($old_module_type eq "onchip_rom" ) ) { 

# All old ROMs were 16 bits wide, so size = depth * 2 
my $size = &get_data_by_^ath ($db_WSA, "depth") * 2; 
my $file = &get_data__by_path ($db_WSA, "contents" }; 

# All old rom-files were copied to the local directory. 

# use them there: 

$file =~ s/.*?{[*\\\/]+)$/$l/; # Strip-off leading path 

&PTF_Addit_And_Warnem ($db_WSA, "Writeable" , 0 }; 

&PTF_Addit„And„Warnem ( $db_WSA, "Contents " , " file n ) ; 



&PTF_Addit_And„Warnem ($db_WSA, "Initfile", 
&PTF_Addi t_And_Warnem ( $db_SBI , " Is„Memory__Device 
&PTF_Addit_And_Warnem ($db_SBI, " Address_Span" , 

} 

if ( ($old_jxiodule_type eq K onchip_ram" ) ) { 

# All old ROMs were 16 bits wide, so size = depth 
my $size = &get_data„by_path ($db_WSA, "depth") * 
&PTF_Addit„_And_Warnem ($db_WSA, "Writeable" , 

($db_WSA, 
<$db_SBI, 
( $db_SBI , 



&PTF_Addi t„And_Warnem 
& PTF_Addi t__And_Warnem 
&PTF_Addi t __And_Warnem 



"Contents 1 ' , 

11 1 s _Memo r y __D e v ice 

"Address„Span n , 



$file } 
1 ) 
$size ) 



($data_width/8) 
1) ; 

'blank") ; 
1 ) ; 
$size ) ; 



} 



if ( { $old_jnodule_type eq "uart")) { 

# Uarts are the only old "printable devices" . 
&PTF_Addit__And_Warnem ( $db_SBI , " Is_Printable„Device " , 

} 



1 ) ; 



if ({$class eq " jusersocketwizard" ) ) { 

# Whatever ports are in this PTF-file, the user gets to keep. 
&PTF_Addit__And_Warnem ($db_WSA, "keep_legacy_ports 11 , 1) ; 
&PTF„Addit_And„Warnem {$db_SBI, " Tri_State_Data„Bus " , 

" shared__of f _chip " ) if $has_tri_s tate ; 
Sc P T F__Ad d i t __An d_Wa r n em ($db_SBI, " Is_Memory_Device" , 1 ); 

} 



################ 

# And some other oddball system-level things : 
if ($freq = &get„data_by_path ( $db„WSA, " clock_f req" ) ) { 
&PTF__Addit__And_Warnem ( $db_Sys_WSA, " clock_f req" , $freq) ; 

} 



if ( $has_tri_state) { 

&PTF_Addit_And„Warnem ( $db_Sys„WSA, 

11 Principal_Tri„State_JData_Bus " 
" shared_pf f_chip" ) ; 

} 

} 



} 



sub PTF_Translate_01d_Version 
C 



my ( $ptf_f ilename) = ( @_) ; 



$PTF_CHANGES = 0; 



my $db_PTF_File = &PTF_New_Required_Ptf_From_File ( $ptf_f ilename) ; 

my $db_Sys = &PTF_Get_Required_Child_By_Path ( $db_PTF_File , "SYSTEM") 

my $db_Sys_WSA = &PTF_Get_Required_Child_By_Path ($db_Sys, 

"WIZARD_SCRIPT__ARGUMENTS" ) 

################ 

# Decide if this is an "old" PTF at-all. 

# Because the version number was not in the PTF for release 1.0 of 

# the kit, we have to use an heuristic: If the SYSTEM module 

# doesn't have a clock frequency, then it must be old. 
# 

&PTF_Translate_From_Version_l_0 ( $ptf_f ilename , $dbJ?TF_File ) 
if l &get„data„by_path ( $db_Sys_WSA, " clock_f req" ) ; 



my $num_modules = &get_child_count ($db_Sys) ; 

for (my $module„index = 0; $module„index < $num__modules; $module_index++ 
{ 

my $db_Module = &get_child ($db_Sys / $module_index) 
5 next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules. 

my $class_name = Scget_data__by_path( $db_Module, "class"); 
my $updated__name = $class_translation_f rom__jw{ $class_name} ; 
next unless $updated_name ; 

10 

5cadd_child_data ($db_Module, "class", $updated„name) ; 
$PTF„CHANGES++ ; 

} 

15 if ($PTF__CHANGES 1= 0) 

{ 

print STDERR "PTF__Translate_01d_Version: 

Made $PTF_CHANGES changes to obsolete PTF file $ptf„f ilename\n" ; 
&write_ptf__f ile ( $db__PTF_File) or die "Couldn't write PTF File 
20 } else { 

# print STDERR " PTF_Translate_01d_Version : No changes made . \n" ; 

} 

} 

25 ################################################################ 

# PTF_Addit_And__Warnem 
# 

# Add a missing assignment to a (presumably-old) PTF-file 

# if it isn't already there. If we have to add it, then emit a 
30 # scolding. 

# 

# Return "1" if we had to alter the PTF , "0" otherwise. 
# 

################################################################ 
35 sub PTF_Addit_And_Warnem 
{ 

my ($ptf_ref, $path, $value) = (@_) ; 

if <&get_data_by__path ($ptf_ref, $path) eq " " ) { 
40 &add_child__data ($ptf_ref , $path, $value) ; 

my $name = &get_data ($ptf_ref ) ; 

print STDERR "Added assignment <$path=$ value) to old PTF file $name.\n 
$PTF_CHANGES++ ; 
return 1; 

45 } 

return 0; 

} 

50 

################################################################ 

# PTF_Update_Boolean_Values 
# 

# Recursively loops through the PTF and all its children. 

55 # If the value of any leaf -level assignment is "TRUE" or "FALSE" 

# or "yEs" or "no" or some such, then we update to the new value: 

# 1/0. 

################################################################ 
sub PTF_Update_J3oolean__Values 

60 { 

my ($ptfRef) = (@_) ; 



my $num_corrections - 0; 



my $num_children = &get„child_count ($ptfRef ) ; 

for {my $child_index = 0; $child_index < $num_children; $child_index-(-+} 
my $child_j?tf = &get_child ($ptfRef , $child_index) ; 

if {&get_child__count <$child_jptf ) »= 0) { 

$num_corrections += &PTF_Update__Boolean_Values ($child_ptf ) ; 
next ; 

} 

# We only want to correct boolean values in SBI and WSA sections 

# (better safe than sorry) 

my $section_type = &get„name ($ptfRef ) ; 

next unless ($section_type eq "WIZARD_SCRIPT_ARGUMENTS" ) || 
($section_type eq " SYSTEM_BUILDER_INFO" ) 

my $child_name = &get_name ($child_j?tf ) ; 
my $value = &get„data ($child_ptf ) ; 

if ({$value =- /~TRUE$/i) |j 
($value =~ /^yes$/i ) ) 

{ 

print STDERR "Replacing $child_name value ' $value ' with ' l'\n"; 
&add_child__data ( $ptf Ref , $child_name , " 1 " ) ,- 
$num_corrections++ ; 
next ; 

} 

if (($value =~ /*FALSE$/i) || 
($value =~ / A no$/i ) ) 

{ 

print STDERR "Replacing $child„name value Rvalue' with ' 0 ' \n" ; 
&add_child_data { $ptf Ref , $child__name, " 0 " ) ; 
$num_corrections++ ; 
next ; 

} 

} 

return $num_corrections; 

} 

################################################################ 

# PTF_Update_Port_Wiring_Section 
# 

# PORT__WIRING section: how it used to be. 
# 

# In the old days, all the WIDTHS of the ports were together in 

# a WIDTH section. The assignment -names were the port-names, and 

# the values were the widths . 
# 

# All the TYPES were together in the TYPES section. The 

# assignment -names were (again, and redundantly) the port-names, and 

# the values were a twisted mutation of a little descriptor which 

# contained a number of attributes like " avalon role" and "direction" 

# embedded in it. 
# 

# PORT_WIRING section: how it is. 
# 

# Now each port has its own PORT section, where the assignment names are 

# its attributes, and the values are the values. Just like it should 

# be. 
# 

# This function converts the old into the new, including parsing-apart 

# the descriptor-string into useful data. When it's done, it deletes 
t the old WIDTH and TYPE sections, to avoid confusion. 



################################################################ 

sub PTF_Update_Port_Wiring_Section 
{ 

my ($db_Module) = (@„) ; 
my $ changes = 0 ; 

my $db_Port_Type = &get„child„by_j?ath ( $db_Module , " PORT_WIRING/TYPE" ) ; 
my $db_Port_Width = &get_child_by_path ( $db_Module ," PORT_WIRING/ WIDTH n ) ; 

$db_Port_Type or 

die ( " PTF_JJpdate_Port_Wiring_Section : no * TYPE * section . " ) ; 
$db_Port_Width or 

die ( " PTF_Update_Port_Wiring_Section : no ' TYPE ' section . " ) ; 

my $num_ports = &get_child_count ($db_Port_Type) ; 

for ( $port„index = 0; $port_index < $num__ports; $port_index++) 

{ 

my %port„hash = (); # put all PORT'S assignments into here. 

my $port_name = &get„name (&get_child ($db_Port_Type, $port_index) } ; 

$port_hash{width} = &get_data_by__path ($db_Port_Width, $port_name) ; 
my $old„type = &get_data_by_path < $db_Port_Type, $port_name} ; 

$old_type =~ 

/ (master | internal | external ) _ ( input | output | inout ) _? { shared_) ?(.*)/ 
or die "Update: Port $port_name has malformed type: $old_type" ,- 

$port_hash{direction} = $2; 
$port_hash{is_shared} = $3 ne " " ; 
$port_hash{avalon_role} = $4; 

&delete_child ( $db_module , " PORTJWIRING/ PORT $port_name " ) ; 

print "Adding PORT section: $port_name\n" ; 
foreach $assignment_name (keys (%port_hash) ) { 
next if $port_hash{$assignment_name} eq ""; 

my $value = $port_hash{$assignment_name} ; 

&add_chi ld_dat a 

{$db_Module, 11 PORT_WIRING/PORT $port_name/$assignment_name" , $value) ; 

} 

) 

&delete_child ($db_Module, "PORT_WIRING/TYPE" ) ; 
&delete_child ( $db_Module , n PORT_WI RING /WIDTH" ) ; 

} 

############################################################################### 
# 

# Rename_01d_edf_File 

# If leonardo was run on nios 1.0, there's a $ptf .edf 

# lying around that will totally hose the user. 1.1 kit updates 

# will not take effect in the synthesis design because qaiartus 

# will find the .edf file before it finds the wrapper. The 

# solution is to rename the edf file to something safe and warn 

# the user. 

sub Rename_Old_edf„File 
{ 

my ($ptf_f ilename) = @_; 



my $malignent_edf__f ile = $ptf_f ilename ; 
$malignent__edf„f ile =~ s/\ .ptf $/\ . edf / ; 

my $benign_edf_f ile = " $malignent_edf „f ile\_old" ; 

while (-e " $benign_edf_f ile" ) {$benign_edf_f ile = 

" $benign_edf_f ile_old" ; } 

print STDERR "Renaming $malignent_edf_f ile to $benign_edf_f ile\n" ; 

if (rename $malignent„edf_f ile, $benign_edf_f ile) 

{ 

print STDERR "Renamed $malignent_edf_f ile to $benign_edf_f ile\n" ; 

} 

else 
{ 

print STDERR "Rename Failed ($!). Quartus will try to use\n" ; 
print STDERR " $malignent_edf _f ile instead of your design unless\n" ; 
print STDERR "it is specifically in the Quartus Project File list\n" 

} 

} 

################################################################# 

# Set_Avalon_Defaults 
# 

# Takes the port list from every module in db_Sys and sets default 

# width and direction for each port that does not have it defined. 

# this function should not be called in 1 . 1 

sub Set_Avalon_Defaults 
{ 

die "Set_Avalon_Defaults you should not call this function\n" ; 
#do not use this function 
my ( $db_Sys , 

$db_PTF_File) = @_; 

warn "in SAD\n" ; 

my $default_hash = &Get_Avalon_Requirement_Table; 

my @db__Module_Array = &get_f irst_children_of__type ( $db„Sys , 

"MODULE" ) ; 

warn "dbma is @db„Module_Array\n" ; 

my $Mod; 

my %Sys_Hash; 

my $Sys = \%Sys_Hash; 

foreach $db (@db_Module_Array) 
{ 

my $db_SBI = &PTF_Get_Required_Child_By_Path ($db, 

11 SYSTEM_BUILDER_INFO" ) 

$Mod = &PTF_Build_Hash„From_Section ($db_SBI) ; 
&PTF_Check_Bool ( $Mod, " Is_Bus_Master " , 0 ) ; 
&PTF_Eval ($Mod, " Address„Width" ) ; 

&PTF_Eval ($Mod, ,, Data_Width" ); 

$$Mod{name} = &get_data ($db) ; 

$Sys_Hash{master__data_width} = $$Mod{Data_Width} ; 
last if $Mod->{Is_J3us_Master} ; 

} 

die " Set_Avalon_Def aults, lSIo Master Found\n" 

unless ($$Mod{name> ) ; 
warn " SAD found master $$Mod{name}\n" ; 

#now we know which module is master 

#loop through again and get port data for each module 
my $def ault_di recti on; 



for each $db__Mod (@db_Module_Array) 
{ 

my $ modul e_name = &ge t„da t a ( $ db__Mod ) ; 
print STDERR "port $module_name\n" ; 



$default_direction = $default_hash->{required__slave_dir} ; 
$default_direction = $def ault_hash->{required_master_dir} 
if ($module_name eg $$Mod{name} ) ; 

my $db_Port_Wiring = &get_child__by_path ( $db_Mod, " PORT_WIRING" , 0 } or die 
J, Set_Avalon_Defaults, No PORTJWIRING SECTION FOUND FOR\n" 
. "MODULE $module_jaame\n" ; 

my @db_Ports = &get„f irs t_ch.il dren_of_type ( $db_Port_Wiring, 

"PORT") or die 

,, Set_Avalon_Defaults, No PORTS FOUND in PORT_WIRING SECTION FOR\n " 
. "MODULE $module_name\n" ; 



foreach $db_Port (@db_Ports) 
{ 

my $port_ name = &get_data { $db_Port) ; 

my $avalon_role = &get_data_by — path ( $db__Port , "avalon„role" ) ,- 
if ( ! $avalon__role) 

{print STDERR " did not find avalon role for port $port_name\n" ,-next} 

my $direction - &get_data„by_^>ath($db__Port , "direction" ) ; 

if ( ! $direction) 

{ 

$direction - $def ault_direction->{$avalon_role} ; 

print STDERR ■ did not find direction for port $port_name 
( $avalon_role) \n n ; 

print STDERR " going with $direction\n" ; 

my $test = &get_child__by_path( $db_Port, "direction" , 1) ; 

print STDERR "so here is direction $test\n"; 

&add_child_data($db_Port, "direction" , $direction) ; 

my $after„test = &get_data_by_path($db_Port , "direction" ) 

print STDERR "after assigning direction, $af ter_test\n" ; 

> 

lor 

#$default_direction->{$avalon_role} ; 

my $W = &get_data_by_path($db_Port f "width" ); # or 
if (l$W) 
{ 

eval ( $def ault__hash-> {width__de fault} {$avalon__role} ) ; 
print STDERR " did not find direction for port $port„name 
{ $avalon_role) \n" ; 

print STDERR " going with $W\n" ; 

&add_child__data ( $db„Port , "width" , $W) ; 

my $test = &get_child_by„path ($db_P or t, "width" , 1) ; 

print STDERR "so here is width $test\n" ; 

my $after_test = &get_data_by_path ( $db_Port, "width" ) ; 

print STDERR "after assigning width, $af ter_test\n" ; 

} 

} 



} 

#&write _ptf_file ( $db_PTF_File) or die 

# " ERROR Set_Avalon_Def aults, could not write ptf file ($[)\n" ; 



1; 



# Modules must say "1"— mustn't they? 



s dr am_pbm_gen 



########^####################################################### 

# pbm_and__sy s t em_mo dul e s . vpp 
# 

# This file contains a bunch of VPP-code which generates 

# the systems' PBM module and top-level system-module. 
# 

# It builds the system as-specified by the PTF-file you 

# indicate . You do so indicate 
# 

# Generate„System__Logic 
# 

# This one happy Perl function is the top-level call for 

# creating syn the sizable Verilog which implements the 

# "system 11 (e.g. Nios system) described by a single 

# PTF-file. 
# 

# The one-and-only argument is, of course, the name 

# of the PTF-file itself. 
# 

# The result is a bunch of Verilog (and other) files 

# deposited in the users' Quartus project directory. 
# 

# Naturally, &Generate_3ystem_Logic is a pretty complex 

# Perl function which relies upon various dedicated Perl subroutines 

# and utilities to do its many jobs. Those sub-functions are 

# also defined in this module. 
# 

################################################################ 

use ptf_update; 
use mk_Jbs f ; 

################ 

# Things to document: 
# 

# Philosophy, including overview of data- structure 
# 

# difference between "active 11 and "asserted" 
# 

################ 

# Notes for my friends: 
# 

# Add to system-level WIZARD„SCRIPT_ARGUMENTS section: 

# " Principal_Tri_State_Data_Bus 11 
# 

# Add to module-level SYSTEM_BUILDER_INFO sections: 

# "Uses_Registered_Select_Signal " 

# " Uses_Tri_Stat e_Da ta_Bus " 
# 

# Master 1 s SBI needs : 

# "Data_Width" 

# "Address_Width tt 
# 

# 

# Narrow accesses from non-dynamic tri-state peripherals are filled 

# with "undefined." Sorry. That's life. 



################ 

# Funny Things to test: 



# 

# System with absolutely zero wait-states . 
# 

# Systems with -all- tri-state peripherals. 
# 



################ 
## ERRORS TO CHECK: 
# 

# Funny chip-selects {base not a multiple of span, span not power of two) . 
# 

# Warn about unknown assignments in PTF/SDF file 
# 

# Check assignments as much as possible when PTF/SDF is parsed, 

# give line numbers. 
# 

# Check to be sure all "instances" have unique names. 

################################################################ 

# numerically, a subroutine that enables us to sort by numeric order instead 

# of alphabetic order. 

################################################################ 
sub numerically {$a <-> $b; } 

sub Find__Max 
{ 

my $max = " " ; 
foreach $val (@„) 

{$max = $val if $val > $max || $max eq " " ; } 
return $max ; 

} 

################################################################ 

# &Debug 
# 

# First arg turns message (s) on/off. 
# 

################################################################ 

sub Debug 

{ 

my ($doit, ©messages) = (@_) ; 

return if l$doit; 

my $ space = " 11 ; 

foreach $msg (©messages) 

{ 

print STDERR "DEBUG: $space$msg\n" ; 
$ space = " " ; 

} 

} 

################################################################ 

# PBM_Progress 
# 

# Our own private progress -printing routine. 

# Uses the one in "wiz_utils .pm, " except that it 

# qualifies the output so that it only shows-up if the 

# PBM_VERBOSE flag is on, and if this is pass 2. 
# 

################################################################ 

sub PBM__Pr ogress 

{ 



my $old_out = select (STDOUT) ; 
^.Progress (@_) ; 
select ($old_out) ; 

} 

5 

################################################################ 

# PTF_Err 
# 

# In the future, I'd like to put a little more informative 

10 # gingerbread around error messages--like the line number and such. 

# This'd be the place to do it. 
# 

################################################################ 
sub PTF_Err 
15 { 

my $ms g ; 
($msg) = <@_); 

die {"Error while reading PTF file.\n 
20 $msg" ) ; 

} 

################################################################ 

# Get_Port_By_Role 
,55 # 

# Simple utility-function for acting on %Mod-hashes. 

i # You say what "aval on role" you want, and this returns 

= : # a %Port-hash (by reference) for the corresponding module port. 

s # 

■■=330 # If there's more than one port with the avalon-role you asked for, 

# then you get one of them at-random. This is only reliable if the 
O # avalon-role uniquely describes one of the module 1 s ports . 

Ft # 

# If you set the "$strict" option, you get an error if the port 
=-~35 # doesn't exist. 

"Si # 

:v ################################################################ 

if" sub Get_ Port_By_Role 

Lj40 my ($Mod, $avalon_role , $strict) = (@_) ; 

# Do step-by-step hash-dereferencing using temporary variables 

# otherwise the syntax gets impenetrable. 
# 

45 my $avalon_port_table - $$Mod{avalon_port_table} ; 

my $Port = $$avalon_port_table{$avalon_role} ; 



50 



die "Get_Port__By_Role : No port of type $avalon_role on module $$ Mod { name } . ' 
if $strict && l$Port; 

return $Port; 



} 



################################################################ 
55 # Get_Sys_Signal 
# 

# This is a utility-function that works on one of our 

# def ined-by-convention %Mod-hashes (which, you certainly remember, 

# is a hash containing various useful information about each module) 
60 # 

# In particular, each module has a bunch of ports, some of which 

# have an "avalon role." Any port with an "avalon role" connects 

# to some ritualistically-named signal at the system level . 



# 

# Sometimes, given a module and an avalon role, it is useful to 

# know what system-level signal 11 serves" that role. As an example, 

# it is useful to be able to answer the question: 
5 # 

# — Which system-level signal drives the "address" -type port 

# on the module "Uart_3?" 
# 

# This function here answers that very sort of question by 

10 # digging the appropriate information out of the %Mod-hash you 

# pass-in (by reference, of course) . 
# 

# If you set the 11 $strict" -option argument, then we complain if 

# no such port is found on the indicated module. Otherwise, we 
15 # return " " (null) for nonexistent ports, 

# 

################################################################ 

sub Get__Sys__Signal 

{ 

20 my $Port = &Get_Port JBy_Role (&_) ; 

return 11 n if !$Port; # Explicit null-string return if port doesn't exist, 
return $$Port {system_signal} ; 

25 } 

yQ ################################################################ 

00 # Get„Sys_Module_JList 

CO # 

H30 # This is a utility- function that works on one of our 

£7 # def ined-by-convention %Sys-hashes (which, you certainly remember, 

^ # is a hash containing various useful information about the system- 

# under -const ruction) . 

m # 

* 35 # This returns a list of %Mod-hash refs. This list includes 
D # -all- modules in the system, including the master, 

m # 

M, # The astute reader will note that a call to this function 

:i = # can be replaced by a single expression: 

FJ40 # 

r** # values % { $ $Sys {module_table } } 

^ # 

# But that's one ugly expression. This function adds a bit 

# of self -documentation, and a much-needed dose of object-oriented, 
45 # implementation-hiding, pseudo-access -method methodology. 

# 

################################################################ 

sub Get_Sys„Module_JLrist 

{ 

50 my ($Sys) = (@_) ; 

my $module_table = $$Sys {module_table} ; # Just for nice syntax, 
return values (%$module_table) ; 

} 

55 

##################### ########################################### 

# Get_Sys__Slave_List 
# 

# Just like "Get__Sys_Module_List, " above, except that the list 
60 # you get doesn't include the master. 

# 

# Many times, this is what you really wanted. And this function 

# saves you the trouble of having to put a master-exclusion test 



# in your otherwise- tidy loop. 
# 

################################################################ 
sub Get_Sys_Slave_List 
5 C 

my ($Sys) = (@_) ; 

my ©result = ( ) ; 

10 foreach $Mod (&Get_Sys__Module_List ( $Sys) ) 

{ 

push (©result, $Mod) unless $$Mod{Is_Bus_Master} ; 

} 

15 return ©result ; 

} 

################################################################ 

# Get_Module_Port_List 
20 # 

# Just like "Get__Sys_Module_„List, " above — and intended to 

# serve the same dubious code-beautif ication purpose. 
# 

# The difference is: this function gets all the %Port-hashes 
.25 # out of a %Mod-hash, instead of all the %Mod-hashes out of a 

# %Sys-hash. 
# 

################################################################ 
sub Get_Module_Port_List 
30 { 

my ($Mod) = (©_) ; 

my $port__table = $$Mod{port_table} ; # Just for nice syntax, 
return values (%$port_table) ; 

35 } 



################################################################ 

40 # Emi t_Comment 
# 

# Emit the user- supplied string as a verilog comment directly 

# into the output file. As a courtesy, we put //-characters 

# at the beginning of every line, sparing the user the trouble. 
45 # 

# We call "&Vprint, " so the user must previously have "selected" 

# their destination verilog-file as STDOUT. 
# 

################################################################ 
50 sub Emit_Comment 
{ 

my ($ comment, $ language) = (©_) ; 
Slanguage = "verilog" if !$language; 

55 my $cstart = " — " ; 

$cstart = "// " if $ language =~ / "verilog/ i ; 

$comment = $cstart . $comment ; 

$comment =- s | \n | \n$cstart |mg; # Put ' // 1 in front of every line. 

60 

ScVprint ( " $ comment \n" ) ; 

} 



################################################################ 

# Emit_Top„Comment 
# 

# Writes module -name, date-stamp, and legal notice into the 

# currently-selected output file, trilingually . 
# 

################################################################ 

sub Emit_Top_Comment 

{ 

my ( $module_name , $lang) = (@_) ; 

$lang = "verilog" if !$lang; 

my $date = scalar (localtime { ) ) ; 

my $magic_altera_string = ' % Alt era Excalibur Nios(tm)% 1 ; 

my $top_comment=«EOM; 
// mega function wizard: $magic_altera_string 
//// GENERATION: STANDARD 
//// VERSION: WM1 . 0 
// Module: $module_name 
// 

// Automatically-generated file: **** DO NOT EDIT **** 

// Generated by Excalibur SOPC-Builder [$date] 

// 

$ GDOBAL__COPYRIGHT_NOTICE 

// 

EOM 

$top_comment =- s j / / | — |mg if $lang =- / A (vhdl | ahdl ) /i ; 
&Vprint ($top„comment) ; 

} 

################################################################ 

# Emit_Module_Header 
# 

# You give the name of the module ("Foo") / and this function 

# emits the ritualistic top-of -module stuff, which we once would have 

# done this way: 
# 

# module Foo ( /* {&Declare_ Ports_For ( "Foo" ) } */ ) 

# /*{ &Def ine^Ports.For ( "Foo" ) }*/ 
# 

# Emits the module- and port-delcarations for the named module into 

# the currently-selected output file. 
# 

# Naturally, you have to have already done a ScList_Ports__For the named 

# module. 
# 

################################################################ 

sub Emit__Module_Header 

{ 

my ($module__name, $lang, $do__bb_declaration) = (<a_) ; 
$lang = "verilog" if !$lang; 



if <($lang =- /^vhdl/i) ) { 

ScVprint ( "LIBRARY ieee; \n" ) ; 

&Vprint ("use ieee . std_logic_1164 . all; \n" ) ; 

ScVprint ("ENTITY $module_name IS\n" ) ; 

&Def ine_Ports_For ($module_name, 0, $lang) ; 

&Vprint ( " END $module_name ; \n" ) ; 

ScVprint ("ARCHITECTURE behavior OF $module_name IS\n" ) ; 



} elsif ($lang =~ /^ahdl/i) { 

ScVprint ( ■ SUBDESIGN $module_name\n 1 ' ) ; 
ScVprint (" (\n"); 

&Def ine_Ports„For { $module_name, 0, $lang) ; 
ScVprint (") \n") ; 

} elsif ($lang /^verilog/i) { 
# Verilog: 

my $synplify_bb__string = ' /* synthesis syn — black_box */' 
if $do_bb_declaration; 

ScVprint ("module $module_name (\n H ); 
ScDeclare_Ports_For ( $module__name) ; 
ScVprint (") $synplify__bb_string ; \n" ) ; 
&Def ine_ Ports_For ( $module_name , 0, $lang) ; 
&Vprint ("\n // synopsys translate_of f \n" ) 

if $do_bb_declaration; 
ScVprint ( " \n" ) ; 
} else { 

die "Emit_Module_Header : Foul language ($lang) tr ; 

} 

} 



################################################################ 

# Emit__VHDL_Component 
# 

# You must declare all your VHDL black-boxes ( "COMPONENT" s) in 

# the "ARCHITECTURE" section of your module, before the first 

# "BEGIN." OK, so be it. 
# 

# You must have previously done a ScList_Ports_For -call for this 

# module. 
# 

################################################################ 

sub Emit_VKDL__Component 

{ 

my ($comp__name) = (@_J ; 

ScVprint ("COMPONENT $comp_name IS\n" ) ; 
StDef ine__Ports_For ($comp_name, 0, "vhdl" }; 
ScVprint ( " END COMPONENT ; \n" ) ; 

} 

################################################################ 

# PBM_Assign 
# 

# Emit a simple assignment into the PBM-file (which we presume 

# to be the currently- selected output file) . 
# 

# We take special measures to avoid redundant assignments (we 

# keep our own private hash of past assignments) . We check to make 

# sure the same signal is never assigned to two different things. 
# 

# The arguments are the target-signal and the value we want 

# assigned to it. 
# 

# Also, note that we -explicitly- do nothing if the assignment -target 

# is NULL (""). This deals gracefully with, for example, broadcast- 

# assignments to modules that don't have a recipient port. For example, 

# you can go ahead and ScPBM_Assign the write-data bus to a module that 

# doesn't actually have a "writedata" -type port, and it still works 

# out OK (nothing happens) . 



# 

################################################################ 

% Private_PBM__Assign_Hash ; 

sub PBM_Assign 
{ 

my ($ targe t_s ignal, $assignment_value) = (@_) ; 

return if $target_signal eq " " ; # Deal with null -ass ignment , per comment. 

my $previous_assignment = $ Private_PBM_Assign_Hash { $target„s ignal } ; 

# Ignore truly- redundant assignments : 

return if $pr eviou s_as s ignment eq $assignment_value ; 

$previous_ass ignment eq " " or die " 

Inconsistent assignments to signal $ targe t_s ignal : 

($previous_ass ignment) and ( $assignment„value) " ; 

&Vprint ("assign $ targe t_s ignal = $assignment_value ; \n" ) ; 

$ Private_PBM_Assign_Hash {$target_s ignal} = $assignment_value ,- 

} 

################################################################ 

# PBM_Wire 
# 

# Emit a Verilog "wire" declaration into the currently-selected 

# output file. You give the name and width of the wire you 

# want to decalre. Deals gracefully with the null wirename ( " " ) and 

# with zero-width wires: No declaration is emitted. 
# 

# Also allows you to pass -in an optional n $ assignment" Veri log-express ion, 

# so you can declare a wire and assign a value to it in one stroke . 
# 

############### ################################################# 

sub PBM_Wire 

{ 

my ($wirename, $width, $assignment) = (@_) ; 

$width = 1 if $width eq " " ; 

return if $ width == 0; 
return if !$ wirename ; 

my $range = &W($width) ; 

&Vprint ("wire $range $wirename; \n" ) if $wirename $width; 
&PBM_Assign ($wirename, $assignment) if $assignment; 

} 

################################################################ 

# Va 1 i da t e_And_Re s e rve_Addr e s s_Range 
# 

# Given a reference to a %Mod-hash, we compute the 

# address-range allocated to that module and make sure that 

# somebody else doesn't already live there. If so, we 

# print an error. 
# 

# Also, while we're thinking about the address, we do some sanity-checks. 

# That's why the %Sys-hash (ref) is also passed- in, so we can 

# check to be sure the module is in-bounds . 
# 



# We also declare the silly "& with in" -function for code-beautv 
# 

sub within { my ($test, $lo, $hi) ; return ($test >= $lo) && {$test <= $hi) ; } 
% Private_Address_Range__Hash ; 

sub Val idate_And_Reserve_Addres s_Range 
{ 

my ($Mod, $Sys) = (@_) ; 

$$Mod{Base„Address} ne n " or die 

"Error: bad Base_Address setting for module $$Mod{name} " ; 

$$Mod{address_span} = 2** ($$Mod{highest_address_bit_used) + 1) ; 
$$Mod{end_address} = $$Mod{Base_Address} + $$Mod{address_span} - 1; 

$$Mod{end_address} <= ( $$Sys {address_span} - 1) or die " 

End-address of module $$Mod{name} is greater than maximum system 
address ( $$Sys {address_span} - 1)"; 

foreach $inst (keys (%address__range_list ) ) 
{ 

my ($min,$max) = split (A,/,$ Private__Address_Range_Hash {$inst}); 

die "Address-range conflict between $inst and $$Mod{name} . 
$inst occupies : [ $min . . . $max] 

$$Mod{name} occupies: [$$Mod{Base_Address} $Mod{end_address} ] " 
if &within ( $$Mod{Base_Address} , $min, $max) || 
&within ($$Mod{end_address} 7 $min, $max) 

} 

$ Private_Address_Range_Hash {$$Mod{name} } = 

H $$Mod{Base_Address> , $$Mod{end_address } ,r ; 

} 

# Resolve_Address_Alignments 
# 

# In the PTF-file, the user can specify "dynamic" and "native" 

# address-alignments. In these cases, the system-generator (that'd be 

# me) needs to "do something smart" to reconcile peripherals with 

# nonnative data-widths . 
# 

# We can only do that after all modules have been read-in (including, 

# significantly, the master) , and some system-level info has been 

# set-up. 
# 

# Consequently, this function is called at the end of 

# &Get_System_Data_From„PTF, after all the modules have been read 
# 

######################################## ######################## 

sub Resolve_Address_Alignments 

{ 

my ($Sys) = {@_J ; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
{ 

# Figure out what kind of address will ultimately be presented to this 

# module. This is slightly tricky because of the special "dynamic" case, 

# in which case we have to look at the data width 
# 

if (S$Mod{Address_Alignment> eq "dynamic") 
{ 



# Dynamic alignment: address-type depends on the data size: 
$$Mod{address_type_used} = 

$$Mod{Data_Width} > 16 ? "word" 

$$Mod{Data_Width} > 8 ? "halfword" 

"byte" 



} elsif ( $$Mod{Address_Alignment} eq "native") { 
$$Mod{address_type_used} = 

$$Sys{master__data_width} — 16 ? "halfword" : 

"word" ; 

} else { 

# "Normal" old-style alignment: 
warn ( " 

Old-style Address_Alignment ( $$Mod{Address_Alignment } ) 
found for module $$Mod{name} . \n" ) if $$Sys {verbose} ; 
$$Mod{address_type_used} = $$Mod{Address_Alignment } ; 

} 

# When is a "dynamic" module -not- "dynamic"? When it happens 

# to be the same width as the master. Check width here, and set 

# a per-module flag which tells us whether to really, truly use 

# dynamic bus-sizing for this module. 
# 

if < ( $$Mod{Address_Alignment } eq "dynamic" ) && 

($$Mod{Data_Width) < $$Sys{master_data__width} ) ) 

{ 

$$Mod{is_dynamically__sized} = 1; 
} else { 

$$Mod{is__dynamically_sized} = 0 ,- 

} 

# It's nice to know if the system has any dynamic bus-sizing: 
$$Sys {has_dynamic_bus_sizing} = 1 if $$Mod{ is_dynamically_sized} ; 



# This is a handy thing to know about a module: 

$$Mod{highest_address_bit_used} = 

$$Mod{address__type_used} eq "byte" 
$$Mod{address_type„used} eq "halfword" 



? ($$Mod{Address_Width} 
? ($$Mod{Address_Width} 
( $$Mod{Address_Width} 



################################################################ 

# Get_System_Data__From„PTF 
# 

# Given a reference to a mostly-empty %Sys-hash, we read the 

# PTF file, build a %Mod-hash for every module and a %Port-hash 

# for every port, and stuff the results back into the %Sys 

# data structure . 
# 

# We do as much "peephole" error-checking as we can while 

# reading-in ports -- confirming allowed values for PTF fields, 

# screening out "impossible" port types, etc. 
# 

# But there is a certain amount of checking that we -can't- do 

# until we've read-in the entire system — checing to be sure no 

# module's data bus is wider than the master, for example, has to 

# wait until all modules are read-in. Those kinds of checks 

# -do not- get executed here. 
# 



# Plus, we don't actually "do anything" with the data. We do 

# only pre-processing on the %Sys-hash, so that it will be 

# easier, later on, to do what we need. 
# 

################################################################ 

my % PBM_HDL_EXTENS I ON ; 
$ PBM_HDL_EXTENS I ON {verilog} 
$ PBM_HDIi_EXTENS I ON {vhdl} 
$ PBM_HDL_EXTENS ION { ahdl } 

sub Get_System__Data_From_PTF 
{ 

my <$Sys, $db_Sys) = (©_) ; 

# A hash of listref s . The hash-keys are shared-port names : 
my %shared port table; 

#keys : shared port-names . Values : bus-group names . 
my %bus_membership„table; 
my @tri_state_bus_list = (); 

# For Perl syntax-niceness , build these hashes up in the 

# module loop, then add them to the %Sys datastructure when 

# we're all done: 
# 

my %module_table; undef %module_table; 

################ 

# Module loop 
# 

# Accumulate a hash of direct and derived information about each 

# module . 

# When we're all done, we'll add a reference to this hash to 

# %Sys. 
# 

my $num_children - &get_child_count ($db_Sys) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++) 
{ 

my $db_Module = £cget_child ($db_Sys, $child_index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules. 
################ 

# Read SYSTEM JBUILDER_INFO section 
# 

# This will form the basis for our own private cache of 

# useful info about this module. Also, now would be a good 

# time to pre-digest and validate all the settings we read 

# from the PTF file. By this I mean: Converting "TRUE /FALSE" 

# strings into testable bits, evaluating numerical expressions, 

# and checking for illegal values . 
# 

my $db_SBI = &PTF_Get_Required_Child__By_Path ($db_Module, 

" SYSTEM_BUILDER_INFO " ) 
my $sbi = &PTF_Build_Hash_From_Section ($db__SBI) ; 
my %Mod = %$sbi; 

$Mod{name} = &get_data ( $db_Module) ; 

$Mod{class} = &PTF_Get_Reguired_Data„By„Path ($db_Module, "class") ; 
&PBM_Progress (" Processing module $Mod{name} . " } if $$Sys {verbose} ; 



= " v " ; 
= "vhd" ; 
= "tdf"; 



&PTF_Check_Bool (\%Mod, " Is_Enabled" , 1) 
next unless $Mod{Is_Enabled} ; # Quit early for disabled modules. 



&PTF_Check_Bool ( \%Mod, 

&PTF_Check__Bool (\%Mod, 

&PTF_Check_Bool ( \ %Mod , 

&PTF_Check_Bool ( \%Mod, 

&PTF_Check_Bool ( \%Mod, 

_PTF__Eval ( \%Mod, 

&PTF_Eval ( \%Mod, 

&PTF_Eval ( \%Mod, 

&PTF__Eval ( \ %Mod , 

&PTF„Eval { \ %Mod , 

&PTF_Eval ( \ %Mod , 

&PTF__Eval (\%Mod, 

&PTF__Eval ( \%Mod, 

ScPTF_Allow ( \%Mod, 



" Instantiate_In_System„Module " , 1 ) 

"Uses__Registered_Select_Signal ,I , 0 ) 

"Uses_Tri_.State__Data_.Bus " , 0 ) 

" Has_IRQ " , 0) 
" Is JBusJMaster " , 0 ) 

"Base_Address n ) 
" IRQ Number" , "N/A" ) 

M Addr es s_Width " ) 
u Data_Width n ) 
"Read_Wait_States n , " per ipheral_cont rolled" ) 
"Write_Wait_States" , " p er iphe r a l__cont rolled" } 
"Setup_Tiiue" ) 
"Hold_Time n , "half„clock n } 

" Addres s_Alignment " , " dynamic " , " native " , 



"byte" , "word" , "half word" ) 



# Name module, if so far unnamed: 
$Mod{Instance_Name} = " t he_$ Mod {name} n 
if ( ($Mod{Instance_Name} eq " " 

($Mod{Instance_Name} eq "--unknown--" 



) ; 



$module_table{$Mod{name} } - \%Mod; # Put reference into system hash. 

################ 

# If this is the master-module, 

# set a system-level variable, and check to see 

# that this is the only one. 
if ( $Mod{Is_Bus_Master} ) 

{ 

$ $ Sys {mas ter_name } eq " " or die " 
$$Sys{name} has multiple masters: $Mod{name} and $$Sys {master_name} " 

$$Sys{master_name} = $Mod{name} ; 
$$Sys {master} = \%Mod; 



$$Sys {has_registered_select_signals} = 1 
if $Mod{Uses_Registered_Select_Signal} ; 

$$Sys {has__tri_state_data„busses} = 1 
if $Mod{Uses_Tri_State_Data_Bus } ; 



############################################################ 

# Port Loop 
# 

# Look at each port on this module. Build-up a hash 

# of useful information. For most "normal" ports, we 

# can add a corresponding port on the PBM and/or the system. 

# Shared ports get recorded in a hash, so we can 

# add them to the system/ PBM later, after all the port data 

# has been gathered for all modules. 



if (&get_child_by__path($db_Module, 9 PORT__WI RING /TYPE" ) ) { 

warn ("pbm_gen: old-style PORT_WIRING section for $Mod{name} . " ) 

if $$Sys {verbose} ; 
&PTF_Update__Port_Wiring_Section ($db_Module) ; 

} 

my $db_Port_Wiring = &get_child„by_path{ $db_Module, " PORT_WIRING" ) ; 



# Hashes which are included, by reference, in the %Module 

# data structure. We build them up as temporary variables 

# and stick them into the %Mod-hash at the end — otherwise, 

# the Perl dereferencing syntax becomes impenetrable: 
# 

my %avalon_port_table = ( ) ; 
my %port__table = ( ) ; 

my $num„ports = &get_child__count ( $db_Port_Wiring) ; 

for ($port_index = 0; $port_index < $num_ports ; $port_index++) 

{ 

my $db_Port = &get_child ( $db_Port_Wiring, $port_index) ; 
next unless &get_name { $db_Port } eq "PORT"; 

# Whatever the PTF says about this port, we want to know, 
my $Port = &PTF_Build_Hash_From_Section ($db_Port); 
$$Port{name} = &get_data ($db_Port); 

my $who_died = "$$ Port {name} on module $Mod{name} " ; # for errors. 

# Test some basic stuff: 

$$Port {direction} (input | output | inout) $/ or 

die "$who_died: Bad direction 1 $$Port {direction} 1 " ; 

# Port-record has pointer to module parent, and module 

# record has table of all Port-records: 
$$Port {parent} = \%Mod; 
$port_table{$$Port{name} } = $Port; 

&PBM_Progress (" Processing port $$Port {name} . B ) if $$Sys {verbose} ; 

# Ports -used to- have scopes . Now we can infer their scope 

# from the module's (and port's) other attributes, 
if {$$Port{scope} ) { 

warn ("obsolete port ' $$Port {name} 1 (has 'scope' ) An") 
if $$Sys {verbose} ; 

$$Port {scope} =~ ( internal | external | master) $/ or 

die "$who_died: Bad scope ' $$Port {scope} 1 " ; 

$$Port{is_external} = $$Port {scope} eq "external"; # Testable bool . 

} 

# Decide whether this port is esxternal or internal. We used 

# to require that the user tell us, but now we can figure it 

# out for ourselves : 
# 

if ( ($Mod{Instantiate_In_System„Module}) ) { 

# For modules -inside- the system-module, all their 

# avalon-ports are internal. All their non-avalon ports 

# are external 

$$Port{is_external} = 1 if I $$ Port {aval on_role} ; 
} else { 

# For modules -outside- the system-module, all their 

# avalon-ports are external . All their non-avalon ports 

# are none of our business 

$$Port {is_external} = 1 if $$Port {avalon__role} ; 

} 



# Some consistency-checking: 

# * Only external signals can be "shared": 

# * All internal (or master) signals must have an avalon-role. 
die "$who„died: only external ports may be shared." 



if ( $$Port {is_shared} && ! $$Port {is__external } ); 
################ 

# What does this port connect to? 
# 

# For a "typical" system- internal module with nothing "shared," 

# each port gets connected to a unique, dedicated wire in the 

# system module. That wire will go to one of two places: 

# a like-named port on the PBM (for avalon signals) or be 

# promoted to a system-level port. Easy enough. 
# 

# There are two wrinkles to consider: modules which are -not- 

# instantiated in the system, and modules which have shared 

# ports . 
# 

# *** External Modules 
# 

# If the module is not instantiated inside the system, then 

# we do twp special things : 



# 

# 1) Ignore any signals which don't have an avalon_role, 

# because they're not our responsibility, anyhow. 
# 

# 2) Promote its PBM-ports to system-level I/Os with the 

# same direction and name . 



# 

# **** Shared Ports 
# 

# Ports are only "shared" if they're part of a tri-state 

# bus structure. All tri-state busses are named. Here 

# are some examples of system- level signals which are part 

# of a shared tri-state bus: 
# 

# memo ry_bu s_addr e s s 

# memory_bus_byteenablen 
# 

# ide_data 

# ide_writen 
# 

# In this case, the signal names are a concatenation of the 

# tri-state bus group name and the avalon role. We don't 

# add these ports to the PBM/system -yet-, because we don't 

# really know their widths until all the modules have been 

# processed. Instead, we just record our %Port as a "client" 

# of this shared port in a hash. Later, we'll work out 

# exactly how the shared ports show up on the system module. 
# 

if ( $ $ Port { is_shared} ) 
{ 

die " 

Shared port $$ Port {name} on module $$Mod{name} has no 
'Avalon role ' " 

if ( ! $$Port {avalon__role} ) ; 

die " 

Shared port $$Port{name} found on module $Mod{name}, but 
module does not use tri-state data bus" 

if ( ( ! $Mod{Uses_Tri_State_Data_Bus} ) | | 
( $Mod{Tri_State_Data__Bus} eq " " ) ); 

my $shared_port = " $Mod{Tri__State„Data_Bus }_$ $Port {avalon__rol 
$$Port {system__signal} = $shared_jport ; 



# Record the fact that this %Port is a client of 

# this shared port. Push a reference to this %Port-hash 

# onto this shared-port client list: 

# 

push { @ { $ shared_port_table { $ shared_port } } , $ Port ) ; 

# also record which tri-state bus group this shared port 

# belongs to. (true, you could figure it out by looking 

# at it's name, but that just sounds risky to me: 
# 

$bus„membership_table{$shared_port } = $Mod{Tri_State_Data_Bus} ; 
} else { 

# This is -not- a shared port, so we make one of those 

# much-beloved machine-generated port names 

# (e,g. bidir port to and_from_.the._lcd pio) . 
# 

my $transf er_str = ($$Port {direction} eq 11 input") ? "to" 

($$Port{direction} eq "output") ? "from" 

" to_and_f rom" 

$$Port {system_signal} = 

" $$Port{ name} _$ trans fer„str\ _$ Mod {Xnstance_Name } " ; 

} 

# Construct an inverse hash so we can look-up ports 

# -by avalon role- for this module: 
# 

$avalon_port_table {$$Port {avalon_role} } = $Port 
if $ $ Port { avalon_r o 1 e } ; 

################ 

# Record some useful system- level and 

# module-level information as the ports 

# go by: 
# 

$$Sys {master_address_width} = $$ Port {width} 
if ($Mod{Is_Bus_Master} ) && 

( $$Port {avalon_role} eq "address" ) ; 

$$Sys {master_data_width} = $$Port {width} 
if ($Mod{Is_Bus_Master} ) && 

($$Port {avalon_role} eq "writedata" ) 

} #end: %Port-loop 

# Attach the hashes we built-up in the % Port -loop into the 

# %Mod data structure: 
# 

$Mod{port__table} = \%port_table; 

$Mod{ avalon. port, table} = \%avalon__port_table ; 

################ 

# Derived Module Info 
# 

# Pre-digest some useful facts about this module: 
# 

# It's nice to have a list of all tri-state busses in the system: 
push (@tri__state_bus_list, $Mod{Tri_State_Data_Bus} ) 

if $Mod{Uses_Tri_State_Data_JBus} ; 

# Predigest hold-time values: handle "half -clock" case. 
$Mod { ho ld__time_full_c locks} = $Mod{Hold_Time} ; 



$Mod{hold_time_full_clocks} = 0 if $Mod{Hold_Time} =~ /half/; 
} # End: %Mod-loop 

# Add the hashes and lists we just built into the system "database": 
# 

$$Sys {module_table} = \%module_table ; 

$$Sys{shared__port_table} = \%shared__port_table ; 

$$Sys{bus_membership_table} = \%bus_membership_table; 

$$Sys{tri_state„bus_list} « \@tri_state — bus_list ; 

################ 

# Derived system-info 
# 

# Pre-digest some useful facts about the system: 
# 

$$Sys{address_span} = 2**$$Sys {master_address_width} ,- 

$$Sys{pbm_name} = $$Sys{name} . "_pbm n ; 

$$Sys{core_name} = $$Sys{name> . "_core"; 

$$Sys{pbm_file} = " $$Sys (system_di rectory} / $$Sys {pbm_name} .v" ; 

$$Sys{core_file} = " $$Sys{system_di rectory} /$$Sys {core_name} .v" ; 

# Wrapper-file needs correct extension for target language. 
S$Sys{hdl_language} = lc ( $$Sys {hdl_language} ) ; 

my $ ex t ens i on = $ PBM__HDL_EXTENS ION { $ $ Sy s { hdl„l anguage } } ; 

$extension or die "Unrecognized 1 hdl_language ' : $$Sys [hdl_l anguage }" ; 
$$Sys{wrapper_file} = " $$Sys {system_di rectory} /$$Sys {name} . $extension" ; 
# Only used if AHDD: 

&Resolve_Address_Alignments ($Sys) ; 

# ... might want to put code here to figure out 

# "principal" tri-state bus... 

# This will probably be a call to some function that has 

# a bunch of heuristics. 



} 



################################################################### 

# Get_Avalon_Requirement„Table 
# 

# Returns a handy table that we use as a verification 

# template. Then check each avalon-role port to be sure 

# it agrees with what we expect. The table should be evalled in 

# a function that has $Sys and $Mod set accordingly 
# 

# (Isn't error checking a big pain?... Code was so much 

# simpler in the Wild West) : 
# 

# It's easier to check errors if you set defaults. 

# That way you don't punish the user for supplying 

# data you know already. I've added Width Default to the table. 

# Sorry Tim, you'll have to maximize your screen to see all the 

# data. Not like the good old days with your acoustic coupler eh? 
# 

sub Get„Avalon„Requirement_Table 
{ 

my $requirement_ table - 

# Aval on Role | Slave | Master | Width Requirement 

Width Default 

# + + + 
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my %required„slave_dir ; 








my %required_master__dir ; 








my %width requirement ; 
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my %width_def ault ; 








$requirement_table =-~ s/\s+/ 


/sg; 





foreach $reg (split ( / \s* \ , \s* /s , $requirement_table) ) 
{ 

55 my ($role, $slave_dir, $master_dir # $width_condition, 

$ wi d t h_de f au 1 1 _s t r ing ) = 

split {/\s*\[\s*/s, $req) ; 

$ r equir ed_s lave_dir {$role} = $slave_dir unless $slave_dir eq "N/A" ; 

60 $required_master_dir {$role} = $master_dir unless $master_dir eq "N/A" ; 

$width_requirement {$role} = $width_condition; 

$width__default {$role} - $width_de faulty string; 



my %retum_hash; 

$return_hash{required_slave_dir} = \%required_slave„dir ; 
$return_hash{required_master_dir} = \%required__master_dir; 
$return_hash{width_reciuirement} = \ %width_requirement ; 
$ return Jmsh{width„default} = \%width__def ault ; 

return ( \%return_hash) ; 

} 

################################################################ 

# Check_Avalon_Rules 
# 

# Given a (the?) system-hash, this function loops over the 

# data structure module-by-module and port -by-port and checks 

# that no system-level Avalon rules have been violated. 
# 

# These are rules like: All "chipselect " -type ports on a module must 

# be 1 bit wide, all "address" -ports must be inputs, and all 

# data ports must be narrower than the masters ' . 
# 

# This function replaces the section of inline-code formerly known 

# as "The Parade of the Port Types." 
# 

################################################################ 

sub Check_Avalon_Rules 

{ 

my ($Sys) = {©_) ; 

my $requirement„hash_table = &Get_Avalon_Requirement_Table; 

my %recjuired_slave_dir = % {$requirement_hash„table->{required_slave_dir} } ; 
my %required_master„dir - % { $requirement_hash_table->{requ.ired„master_dir} } ; 
my %width„requirement = % { $requirement_hash_table->{width„requirement } } ; 
my %width_de fault = %{$reg^iirement_hash_table->{width_def ault} } ; 

# Now consider each avalon-port on each module 

# and see if it lives up to our expectations. 

# If port is not defined, set it to default value. 

foreach $Mod {&Get_.Sys_Module_List ( $Sys) ) 
{ 

my $avalon_port_table = $$Mod{avalon_port_table} ; 

foreach $role (keys (%$avalon_port_table) } 

{ 

my $Port = $$avalonjport_table{ $role} ; 
my $W = $ $Port {width} ; 

my $required_dir = $$Mod{Is_Bus_Master} ? \%recjuired_master_dir : 

\%required_slave_dir 

#set default width 
eval ($width_def ault{$role} ) 
if ($W eg " " ) ; 

#set default direction 

$$Port {direction} = $$required_dir { $role} 
if ($$Port {direction} eq " " } ; 

die " 

Illegal avalon-role : $role 

for port $$Port{name} on module $$Mod{name} . " 
if { I $$required_dir { $role} ) ; 



die " 

Illegal direction: $$Port {direction} . 
Expected: $$ require d_dir { $role} 
for port $$Port{name} on module $$Mod{name} . " 
if ($$Port {direction} ne $$required_dir { $role} ) ; 

my $width_ok = eval ( $width_requirement {$role} ) ; 

die "Bad check-expression: $width_requirement {$role} ($@)" if $@; 

die 11 

Illegal width: $W 

for port $$Port{name} on module $$Mod{name} . " 
if ( ! $width_ok) ; 

################ 

# Per-port Consistency- checks 
# 

# Does this port agree with things that were said in the 

# module's SBI section? 
# 

if ($role =~ /data$/) { 

$$Mod{Data_Width} == $$Port {width} or die " 

Width of data port $$Port{name} ( $$Port {width} ) is inconsistent 
with 'Data_Width' setting for module $$Mod{name} . " ; 

} 

if ($role eq "address") { 

$$Mod{Address_Width} == $$Port {width} or die " 

Width of address port $$Port {name} ( $$Port {width} ) is 
inconsistent with 1 Address_Width ' setting for 
module $$Mod{name} . " 

} 



# Half -clock hold-time only allowed with zero setup-time: 
if ( ($$Mod{Hold__Time} =~ /half/)) { 

$$Mod{Setup_Time} == 0 or die " 

Error in module $$Mod{name} : half-clock *Hold_Time' setting 
allowed only if l Setup_Time' is 0 (zero)."; 

} 

next if $$Mod{Is_Bus_Master} ; # The following checks are for mere slaves. 

################ 

# Funny Setup /Ho Id Rule 
# 

# Here 1 s the rule : 
# 

# — If you have a nonzero hold-time, then you get a nonzero 

# setup-time, whether you asked for one or not. 
# 

# Here ' s the explanation : 
# 

# You may recall that the masters 1 readn- and writen- signals come 

# directly from the Q-output of registers. Timing -wise, this is 

# a good and happy thing. Peripherals which don't explicitly request 

# setup/hold times get the masters' registered strobe signals, and 

# life is good. 
# 

# But now consider the plight of the poor module who requests 

# setup/hold time. Necessarily, he now gets his own customized 



# (narrower) version of the read- and write- strobes . It would be 

# oh-so-nice if his custom strobes also came directly from Q-outputs 

# of registers. (And, I note, it would also make the 

# strobe-customization logic easier for your humble implementor ) . 

# So now we have the custom readn- and writ en- strobes coming from 

# register outputs. But, obviously, this happy register introduces 

# a one-clock delay between the time we decide to assert the custom 

# strobe and the time it gets asserted. That's fine — we have 

# (at least) one clock-cycle of slack before we need to assert the 

# strobe — as long as there's a (nonzero) setup-time. That gives 

# us the clock we need to "customize" and still have a register. 

# So. Phrased concisely: 
# 

# Custom strobes want registers 

# registers imply delay 

# nonzero setup- time accomodates delay 
# 

# — > custom strobes need a nonzero setup-time. 
# 

# We print a warning when we encounter such a case . 
# 

if ( ($$Mod{Setup_Time} == 0) && 

( $$Mod{ ho ld_time_full_c locks} > 0) 
) 

{ 

$$Mod{Setup_Time} = 1; 
warn ( " 

Setup- time (1 clock) automatically added for module $$Mod{name} . 
Modules with nonzero hold- time automatically get at least 
one clock of setup-time . \n 

") ; 

} 

# Some extra module -level consistency-checking between 

# "System Builder Info" and port-types. 
# 

&Validate_And_Reserve_Address_Range ($Mod, $Sys) ; 

die "Module $$Mod{name} ' Has_IRQ ' , but no pin is of type 'irq 1 ." 
if $$Mod{Has_IRQ} && ! $$ava Ion _j?ort_t able {irq} ; 

die "Module $$Mod{name} has an irq-pin, but 1 Has_IRQ ' is FALSE." 
if I $$Mod{Has_IRQ} && $ $avalon_port_t able { irq} ; 

die "Module $$Mod{name} has word-alignment, but master is not 32 bits, 
if ($$Mod{address_type„used} eq "word" && 
$$Sys{master_data_width} < 32 ) ; 

die "Module $$ Mod { name } : Data is too wide for dynamic alignment." 
if ( $$Mod{is_dynamically_sized} && 

$$Mod{Data_Width} > ( $$Sys {master_data_width} / 2) ); 

die "Module $$Mod{name} : must set SBI/Uses_Registered„Select_Signal . " 
if ( 1 $$Mod{Uses_Registered_Select_Signal} && 
$$avalon_port_table{registeredselectn} ) ; 

die "Module $$Mod{name} : peripheral controlled wait \n" . 
"not supported for registered chip selects \n" 
if ($$Mod{Uses_Registered_Select_Signal} && 

( ($$Mod{Read_Wait_States} =~ /peripheral_controlled/i) | | 
($$Mod{Write_Wait„States} =- /peripheral_controlled/i) ) 
) ; 



#hold time means theres a setup time, 

die "Module $$Mod{name}: peripheral controlled wait not\n" . 

"supported for peripherals with non-zero setup and/ or hold times \n" 
if ( ($$Mod{Setup_Time} ) && 

( {$$Mod{Read_Wait_States} =- /peripheral__controlled/i) || 
($$Mod{Write_Wait_States} =- /peripheral_controlled/ i) ) 
) ; 

die "Module $$Mod{name} : can't find ' registeredselectn 1 -type port." 
if ( $ $Mod{Uses_Registered_Select_Signal } && 

! $$avalon„port_table{registeredselectn} ) ; 

my $Port_writen = $$avalon_port_table{writen} ; 

die "Module $$Mod{name} : shared writen port illegal if setup/hold > 0." 
if ($$Port_writen{is_shared} && 

{$$Mod{Setup_Time} + $ $Mod { ho ld_time_full_c locks} > 0) ); 

my $Port_readn = $$avalon_port_table{readn} ; 

die "Module $$Mod{name} : shared readn port illegal if setup/hold > 0." 
if {$$Port_readn{is_shared} && 

($$Mod{Setup_Time> + $$Mod{ ho ld_time_full_c locks} > 0) ) ; 

# ... Add more, please. . . 

# Check: 

# Uses_Registered_Select_Signal vs. actual "registeredselectn" ports. 

# Uses_Tri__State_Data_Bus vs. actual shared/data ports. 

# if principal bus declared, system -should- have tri-state busses. 

# principal tri-state bus must be as wide as CPU. 

# if we have principal bus, at least one module must be on it. 

# You may -not- have shared readn/writen signals with nonzero 

# setup/hold times. 

# system data width should be only -exactly- 16 or 32. 
} # End: $Mod-loop 

} 

########^####################################################### 

# Create_System_Port_Lists 
# 

# Given a reference to a (the?) system-hash, this function 

# builds a "List_Ports_For- " definition of the system-module 

# and the PBM. 
# 

# For the most part, this is easy: We look through the list of all ports 

# on all modules. If any have an avalon-role, then their complement 

# shows up on the PBM. If any are "external", then they show up on 

# the system module. 
# 

# The one nasty little wrinkle is shared-ports. We have kept a separate 

# record of all shared ports, and now we use it to compute the appropriate 

# width — then we can add the shared ports to both the PBM and system modules. 
# 

# And then shared ports have one more trick: The width of shared address 

# ports. For most shared ports, the width is just the width of the largest 

# client. For address ports, we need to take -alignment- into account. 
# 

################################################################ 

sub Create_System_Port_Lists 

{ 

my ($Sys> = (@_) ; 

# The elk and reset_n ports are magic. They -always- appear 



# on both the system and the PBM. 
# 

$$Sys{pbm_list^ports_for„string} = "elk | 1 | input, 

reset_n j 1 j input,"; 
$$Sys{system_list_ports_for_string} = $$Sys {pbm_list_ports_f or_string} ; 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod)) 
{ 

next if $$Port{is_shared} ; # Do shared ports later. 

if ( $ $ Port { avalon_role } ) 
{ 

my $pbm_port_dir = $Complementary_Direction { $$Port {direction} } ; 
my $pbm_port_de script ion = 

"$$Port{system_signal} | $$Port {width} | $pbm_port_dir , 11 ; 

$$Sys{pbm_list j)orts_for_string} . = $pbm_port_description; 
$$Sys{system_list_ports_for_string} .= $pbm_port„description 
if ( ! $$Mod{Instantiate_In_System_Module} ) ; 
} else { 

# OK, this port doesn't have an avalon role. For 

# externally-instantiated modules, we just ignore it. 

# for internally- instantiated modules, we promote it 

# to a top-level system port with the -same- direction 

# as the port on the module. 
# 

# All non- aval on -type ports must be external 
$ $Sys { sys tem_list jiort s_f or_string} . = 

" $$Port{system_signal} | $$Port {width} | $$Port {direction} , " 
if ($$Mod{Instantiate_In_System_Module} ) ; 

} 

} # End: $Port-loop 
} # End: SMod-loop 

################ 

# Now do the shared ports . 

# 

my $shared_port_table = $$Sys{shared_j?ort_table} ; 

foreach $ share d_port„name (keys (%$shared__port_table) ) 
{ 

my $client_list = $$shared_port__table{ $shared_port_name} ,- 

# Look at all the clients . Build-up enough information 

# to calculate the port-width (below) . Also, check that 

# all the clients have a consistent direction, avalon-role, etc. 
# 

my $client_dir = " " ; 

my $shared__port_role = " " ; 

my $ shared port. width = 0; 

foreach $client_port (@$client_list ) 

{ 

$shared_port_role = $$client__port {avalon„role} if !$ share d_port_rol 
$client_dir = $$client_port {direction} if ! $client_dir ; 

$client_dir eq $$client_port {direction} or die 11 

Shared port $shared_port_name has client $$client_port {name} 
(direction is $$client_port {direction} ; expected $client„dir) 

$shared_port_role eq $$client_port {avalon_role} or die " 

Shared port $ shared _j?ort_name (role: $shared__port„role) has 



client $Sclient_port{name} (role: $$client_port {avalon.role) ) . 



################ 

# Computing the width is tricky, but only for address ports. 

# For everybody else, it's just the width of the widest client. 

# For address ports, we have to take into account the fact that 

# -all- shared address ports present the full byte-address, 

# all the way down to A[0] (even if none of the clients use 

# A[Oj ) . Thus, the width of the shared port might be greater 

# than the width of any (all) of the client address ports. 
# 

if ($shared_jport_role eq "address") 
{ 

# Address port. Now we must inquire about its ancestry: 
my $parent_module = $ $cli en tjort {parent } ; 

my $net_width = $$parent_module{highest_address_bit_used} + 1; 

$shared_port__width = $net_width 

if $net_width > $shared_jport_width; 
} else { 

# Normal, non-address port: Width is just the max of clients: 
# 

$shared_port_width = $$clientjport{ width} 

if $$client_port {width} > $shared_port_width; 

} 

} # End: Client -port loop. 

################ 

# Shared data-bus ports. 
# 

# There's one weird circumstance where a shared-port is actually 

# wider than the max of its clients: When it's the main 

# tri-state data bus to the CPU. In this one case, the bus 

# must be at least as wide as the CPU 
# 

if ( ($$Sys{Principal_Tri_State_Data_Bus} ) && 
($shared_port__role eq "data" ) 

($shared_port_name =~ /~$$Sys{Principal_Tri_State_Data_Bus} / ) ) { 
$shared_port_width = $$Sys{master_data_width} ; 

) 



# Shared ports always have an avalon-role, so they always show up 

# on the PBM as the -complimentary- match for the client -port . 

# also, shared ports are always external, so they are always promoted 

# to like-named system-level ports . 
# 

my $shared_port_dir = $Complementary„Direction{ $client_dir} ; 

my $shared_j?ort_description = 

"$shared_port_name | $shared_port_width | $shared_port_dir , " ; 

$$Sys{pbm_list_^>orts_f or_string} . = $ shared„port__de scrip t ion ; 
$$Sys{system_list_ports_for_string} .= $shared_port_description; 

} 

# We've built those nice list-ports-f or string, so let's use 'em: 

&List_Ports_For ($$Sys{name} , $$Sys { system_list _ports„f or_string} ) 

&List_Ports_For ( $$Sys (core„name) , $$Sys{system_list j>orts_f or_string} ) 
ScList_Ports_For ( $$Sys {pbm_name} , $$Sys {pbm_list_ports_f or_string} ) 



################################################################ 



# Core_Emit_Wire_Declarations 
# 

# The system's "core" module is just a bunch of instances all wired-up 

# together. Some "wires" in the core-module are actually external 

# ports, so they're already declared in the cores' module 

# declaration. Other "wires" are actual Verilog wires which we 

# need to declare. They are the internal (module-to-module) signals 

# which are never seen from the outside. 
# 

# This function emits wire-delcarations for all the internal signals. 
# 

# It's easy to identify all the internal signals: there's one for 

# every module-port scoped "internal" or "master" — in other words, 

# there's a core-level wire for every non-external port on every 

# module in the system. That makes it pretty easy: 
# 

################################################################ 

sub Core_Emit„Wire_Declarations 

{ 

my ($Sys) = (@_) ; 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod) ) 
{ 

next if $$Port{is_external} ; 
my $range = &W($$Port {width} ) ; 

&Vprint ("wire $range $$Port {system_signal} ; \n" ) ; 

} 

} 

} 

################################################################ 

# Core__Emit_Instances 
# 

# The system's core-module is a bunch of instances all wired-up 

# together. This function emits the instantiation-statements 

# for all system-modules, including the PBM. 
# 

# In general, any given port on a module does not necessarily 

# connect to a core-level signal (wire) of that same name. 

# The correspondence of what -signal -goes -to -what-port , though, 

# is built-in to the %Sys-database hash. We extract this 

# information and use it to instantiate each module in the 

# system. 
# 

################################################################ 

sub Core__Emit_Instances 

{ 

my ($Sys) = (@_) ,- 
################ 

# Start with an instantiation of the PBM. 
# 

# Note that the PBM doesn't appear on the system's {module„table} . 

# Note also that all the ports on the PBM -do- connect to like-named 

# signals at the core-level. This makes instantiation a snap: 

&Instantiate_And_Connect ($$Sys {pbm_name} , " the__$$Sys {pbm_name} " ) ; 
################ 

# Now instantiate all the "regular" modules. But, before we do, 

# go through their ports and build up a correspondence ("exception") 

# table: 



# 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) 
{ 

# Skip external modules, of course. 
5 next unless $ $Mod{ Inst ant ia t e_In_Sy s t em_Module } ; 

my $list ports for string - " 11 ; 
my % except; 

undef % except; # Superstition. I have no idea if this is called- for. 

10 

foreach $Port (&Get_Module_Port_List ($Mod) ) 
{ 

$except { $$Port {name} } = $$Port {system_signal} ; 
$list_ports_f or_string .= " 
15 $$Port{name} | $$Port {width} | $$Port {direction} ," ; 

} 

&Ijist_Ports__For ( $$Mod{name} , $list_ports_for_string) ; 

&Instantiate_And_Connect ( $$Mod{name} , " the_$ $ Mod {name} " , " " , \%except) ; 

20 } 
} 

################################################################ 

# PBM_Emit_Pynamic__Bus__.Sizer 
25 # 

# The dynamic bus-sizer makes any narrow peripheral "look like" 
L 4. # it's full-width memory. For example, if you connect an 8-bit 
K # memory device to a 3 2 -bit master using DBS, the CPU will "see" 
f- T - # a full 32-bit value every time it does a LD- from the device. 
§0 # 

l=_ # This is accomplished, of course, through a bunch of sequential 
j-,,, # logic (the DBS) , which (in this example) fetches four successive 
it # bytes from the memory, assembles them into a full-width word, 
y " # and presents it to the CPU (all the while the CPU has been held 
35 # in a wait-state, of course) . 

t- # 

y' : # A similar thing happens during write-operations . When 

# writing a 3 2 -bit value to 8 -bit memory (for example) , the CPU will 
d : # wait while we execute four successive write-operations to the 

: -:-^40 # memory. The DBS -logic is sensitive to the fact that sometimes 

TV # the CPU will execute a narrow-write (e.g. a byte-write) . In these 

# cases, the DBS-logic is smart enough to execute only one 

# write-cycle. 
# 

45 # Note that all of our "successive read operations" or "successive 

# write operations" are subject to the bus -timing (wait states, 

# setup/hold-times, etc.) for the target peripheral. In other words, 

# each sub-operation of the DBS-unit is a full-fledged bus transaction 

# controlled by the wait- state generator. You could, then, think 

50 # of the DBS-operation being "laid on top of" the regular wait-state 

# logic . 
# 

# FYI, dynamic bus sizing is very handy for memory-type devices, 

# but doesn't make much sense for register-controlled peripherals 
55 # (e.g. UARTs) . 

# 

# This function here creates the dynamic bus-sizing logic. 

# Note that there are, really, two independent DBS-units — one 

# of which handles byte-wide peripherals, the other handles 
60 # half word-wide peripherals. 

# 

# KNOWN LIMITATION: 
# 



# If you have an 8 -bit memory and you do a 16-bit write to it 

# (any ST16 instruction) — you lose. 

# 3 out of 3 engineers agree that DBS should handle this case. 

# 1 1 11 do it when everything else works 
# 

# 

################################################################ 

sub PBM_Emit_DynamicJBus_Sizer 

{ 

my ($Sys) = (@_) ; 

&.Emit_Comment ( " \n Dynamic Bus Sizing \n"); 
«############## 

# First, gather-up a list of all dynamically- si zed modules. 

# segregate by 8- and 16-bits wide: 
# 

my @dbs_8_modules = ( ) ; 
my @dbs__16_modules - ( ) ; 

foreach $Mod (&Get_Sys_Slave„List ( $Sys) ) 
{ 

next if I$$Mod{is_dynamically_sized} ; # Dynamic-only, please. 

if ($$Mod{Data_Width> <= 8) { 
push (@dbs_8_modules, $Mod) ; 

} elsif <$$Mod{Data_Width} <= 16) { 
push (@dbs_16_modules, $Mod) ; 

} 

} 



################ 

# Or-together relevant peripherals' active signals. This 

# tells us "when to go." 
# 

# The result is a signal called "dbs_active , " which 

# is true whenever the currently-selected (active) peripheral 

# uses dynamic bus -si zing. 
# 

# Note that this is -not- a state- or seguencing-bit . It 

# doesn't "say" where in the DBS-process we are. We have other 

# bits, later, which do that. 
# 

# We start the active-list off with "1'bO" as a trick to make everything 

# work out, even when the lists are empty. 
# 

my @dbs_8_active__signals = ( " 1 ' bO " ) ; 
my @dbs_16„active_signals = ("1'bO"); 

foreach $Mod (@dbs_8_modules) 

{push (@dbs_8_active_signals, $$Mod{internal_active_signal} ) } 
foreach $Mod (@dbs_16_modules) 

{push (@dbs_16_active__signals , $$Mod{internal_active_signal} ) } 

&PBM_Assign ( ,! dbs_8_active" , join (" j| ", @dbs_8_active_signals ) ) 

&PBM_Assign ( "dbs_16„active" , join ( " || n , @dbs_16__active_signals) ) 

&PBM_Wire ( "dbs_active" , 1, "dbs_8_active || dbs_16_active" ) 



################ 
# Sequencing. 
# 



# We need to answer two questions : 
# 

# 1) When do we start a DBS -operation? 

# 2) When do we "advance" to the next sub-operation (chunk)? 
# 

# Well, we start a new operation (1) when: 
# 

# la) The active peripheral needs dynamic bus-sizing. 
# 

# lb) It * s the start of a new bus -transact ion 

# (indicated by the "bus_transaction_start" signal, 

# which is computed by the wait-state generator. 

# 

# lc) There's not some other special, weird cicrumstance — like 

# narrow writes or "if etch" going on which preclude the 

# need for a dynamic operation. 
# 

# And we advance to the next chunk (2) at the end of each 

# bus cycle. Happily, the wait-state generator also indicates 

# this by computing the signal "bus_cycle_end" . 
# 

&PBM_Wire ( "bus_cycle_end" ) ; # Declared here, computed later. 

&PBM_Wire ( "bus_transaction„start " ) ; # Declared here, computed later. 

my $be_bus = &Get_Sys_Signal ( $$Sys {master} , "byteenablen" ) ; 
&PBM_Wire { " write_is_narrow H , 1 , 
« j " . $be_bus) ; 

if <$$Sys{master„data_width} ==32) { 
&PBM„Wire ( " write„is_narrow_16 11 , 1 , 

"write_is_narrow && ( ($be_bus\ [3\] == $be_bus\ [2\ ] ) && 

($be_bus\ [1\] == $be_bus\ [0\] ) )' 



&PBM_Wire ( " dbs_8_half _start " , 1 , " 

dbs_8__active 
bus_transaction_start 
(write__is_narrow__16 ) "); 

} 

&PBM_Wire ( " dbs_8_f ull_start " , 1 , " 

dbs_8_active 

bus_transaction_start && 
(--write_is_narrow) " ) ; 

my $ifetch_signal = &Get_Sys_Signal ( $$Sys {master } , ifetch) ; 
&PBM_Wire ( 11 dbs_l 6_s tart " , 1 , " 

dbs_16_active && 
bus_transaction_start && 
(~$if etch_signal) && 
(~write_is_narrow) " ) ; 



################ 

# Sequencing registers 
# 

# Here are the signals we must come up with: 
# 

# dbs_8_byte„{ 0,1,2,3} 

# dbs„16_halfword__{0, 1} 
# 

# -- and— 
# 

# dbs_8„write_byte_{0,l,2,3} ("0" not actually produced) 



# dbs_16„write_halfword_{0,l} ("0" not actually produced) 

# (I think, in the absence of narrow writes, these are just 

# equivalent to the non-write versions) . 
# 

# dbs_wait_asserted 
# 

my @dbs_wait_asserted_terms = ("l'bO"); # n l'b0" fixes empty list. 



10 



15 



20 



25 



if (scalar (@dbs_8_modules) ) 



{ 



# How many additional bus cycles? 3 or 1, for 32- and 16-bit masters. 

# These cases are similar -enough that it's tempting to make 

# one piece of code that builds both, but I'm just going to break 

# them into separate cases for clarity: 
# 

if ($$Sys{master_data_width) == 32) 
{ 

&PBM_Wire ( " dbs_8_by te_3 " ) ; 
&PBM_Wire ( " dbs_8_byte_l " ) ; 



&Delay ("out 

sync_set 
sync_reset 
reset 
") ; 



dbs_8_state_byte_3 , 
dbs_8_f ull_start , 
bus_cycle_end, 



30 



&Delay ("out 
in 

enable 
reset 
") ; 



dbs_8„byte_2 , 
dbs_8_state_byte_3 , 
bus_cycle_end, 



35 



40 



# Two versions of byte-1 signal, because it can be set from 

# two different sources: The continuation of a 4-byte 

# operation, or the start of a two-byte operation. 
# 

&Delay ("out = dbs_8_continue_byte_l , 

in = dbs_8_byte_2 , 

enable = bus_cycle_end, 

reset = , 

") ; 



45 



&Delay ("out 

sync_set 
sync_reset 
reset 
") ; 



dbs_8_state_byte___l , 
dbs_8_half _start , 
bus„cyc 1 e_end , 



50 



&Delay ("out 
in 

enable 
reset 
') ; 



dbs_8_byte_0, 
dbs_8_continue_byte_l 
bus_cyc 1 e_end , 



dbs_8__state_byte_l , 



55 



60 



&PBM_Assign ( " dbs_8_byte_3 " , " dbs_8_f ull_start | | 

dbs_8_state_byte_3 " ) ; 

&PBM_Assign ( ,, dbs„8_byte__l H , "dbs„8_half_start | | 

dbs_8_state_byte_l j | 
dbs_8_continue_byte_l " ) ; 

&PBM_Wire ( n dbs_8_wait_asserted" , 1, 

" dbs_8_by te_3 |j dbs_8_byte„2 || dbs_8_byte_l" ) ; 



} else { 

# 16-bit master 



&PBM_Wire ( " dbs_8_by te_l " ) ; 

ScDelay ("out 

sync_set 
sync_reset 
reset 
") ; 

&Delay ( " out 
in 

enable 
reset 
") ; 

&PBM_Assign ( " dbs_8_byte_l " , "dbs„8„f ull_start | | dbs_8_state_byte_l 11 ) 

# Pedantic renaming for documentary purposes, I hope you're happy. 
# 

&PBM_Wire ( " dbs„8„wai t_asserted a , 1 , n dbs_8_byte_l " ) ; 

} 

push (@dbs_wait_asserted_terms , "dbs_8_wait_asserted" } ; 
} # End: registers for dbs„8_modules 

if (scalar (@dbs_16_modules) ) 
{ 

&PBM_Wire { " dbs_16_half word_l " ) ; 

&Delay ( " out 

sync_set 
sync_reset 
reset 
") ; 

&Delay ("out 
in 

enable 
reset 
") ; 

&PBM_Assign ( " dbs_16_halfword_l " , 

"dbs_16_start | | dbs„16_state_halfword_l " ) ; 

# Pedantic renaming for documentary purposes. I hope you're happy. 
# 

&PBM_Wire ( " dbs__16_wait_asserted" , 1, "dbs_16_halfword„l" ) ; 
push (@dbs_wait_asserted_terms, "dbs_JL6_wait_asserted" ) ; 

} 

&PBM_Wire ( "dbs_wait_asserted" , 1, joixiC || " , @dbs_wait_asserted_terms) ) 

################ 

# Address -output 
# 

# The DBS-unit, of course, has to compute "altered" addresses 

# for presentation to the client peripherals. We compute 

# separate altered addresses for the DBS-8/16 units. 
# 

# We also compute a "mixed" version of the address, which we 



dbs_8_state_byte_l , 
dbs_8„f ull_start , 
bus_cyc 1 e__end , 



dbs__8_byte__0 , 
dbs_8__state_byte__l , 
bu s_cy c 1 e_end , 



dbs__16_state_halfword_l , 
dbs_16_start , 
bus_cyc 1 e_end , 



dbs__16__half word_0 , 
dbs_16_state__halfword_l , 
bus_cycle_end , 



# make available to shared busses which contain -both- dynamically-sized 

# 8- and 16-bit peripherals (I expect most systems will have no such 

# bus, but we compute the address for it here, anyhow) . 
# 

# Of course, these addresses only differ in the low bit(s) 

# from the original address . 
# 

my $sys_addr_signal = &Get_Sys_Signal ( $$Sys{master} , "address"); 

i f ( scalar ( @dbs_8_modules ) ) 
{ 

# We alter the low 1 or 2 address bits, depending on whether this 

# is a 16- or 3 2 -bit system: 
# 

if ($$Sys{master_data__width} -~ 16) 
{ 

$address_lsbs_„width = 1; 

ScMux ( n dbs_8_address_lsbs, type=unary, declare=l, w=l, 

dbs_8_byte_l — > l'bl, 
dbs_8_byte_0 — > 1'bO, 

--> $sys_addr_signal\ [0] , 

") ; 

} else { # 32-bit system 
$address_lsbs_width - 2 ; 

&Mux ( "dbs.J^aO , type=unary, declare=l, w=l, 

dbs_8_byte_3 — > 1 ' bl , 
dbs_8„byte_2 — > 1'bO, 
dbs_8_byte_l — > l'bl, 
dbs_8_byte_0 — > 1'bO, 

— > $ sys_addr__s i gna 1 \ [ 0 ] , 

") ; 

# For 3 2 -bit systems, we want to leave bit 1 of the address 

# alone whenever this is a "narrow_16 " access, 
&Mux ( " dbs_8_al_raw, type-unary, declare=l, w=l , 

dbs_8_byte_3 — > l'bl, 
dbs__8_byte_2 — > l'bl, 
dbs_8_byte_l — > 1'bO, 
dbs_8_byte_0 — > 1'bO, 

— > $sys_addr_signal\ [1] , 

") ; 

&Mux ("dbs„8_al, type=unary, declare=l, w=l, 

write_is_narrow__16 — > $sys_addr_signal\ [1] , 

--> dbs_8__al_raw" ) ; 

&PBM_Wire ( " dbs_8_address_lsbs " , 2 , " {dbs_8„al , dbs_8„a0 } " ) ; 

} 

my $high_range = " $$Sys {master_address_width} - 1 : $address_lsbs„width" 
my $high_segment= " $sys_addr_signal \ [ $high_range] " ; 

&PBM_Assign ( " dbs_8_address " , " { $high_segment , dbs_8_address_lsbs } " ) ; 

} 

if (scalar (@dbs_16_modules) ) 
{ 

# This must be a 32-bit system, and we alter address-bit 1. 

# Note that, by definition, this is a half word-aligned 

# address, so A[0] is niether computed nor distributed 

# with this address. 
# 

&Mux ( "dbs_16_address_lsb, type=unary, w=l, declare^!, 



dbs_16__halfword„l --> I'bl, 
dbs_16_halfword_0 — > 1'bO, 

--> $sys_addr_signal\ [1] , 

") ; 

&PBM_Assign ( " dbs_16_address " , " { 

$sys_addr_signal \ [ $$Sys{master_address_width} -1 ; 2], 
dbs_16_address_lsb} " ) ; 

} 

# Create a verison of "adjusted 11 address suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# address value gets distributed on shared address ports . 
# 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the 11 1'bO" trick, above. 
# 

&Mux ( " dbs__adjusted_address , 
type = unary, 

w = $$Sys {master_address_width} , 
dbs_8_active --> dbs_8_address , 
dbs_l 6_ac t ive --> ( { dbs_l 6_addres s , 1 1 bO } ) , 
--> $sys_addr_signal, 

") ; 

################ 

# Read-data — registers and as sembled- output . 
# 

&PBM_Wire ( "bus_cycle_data_ready " ) ; # declared here, computed later. 

if (scalar (@dbs_16_modules) ) 
{ 

&Delay ("out = held_halfword_l , 

in ~ dbs_l 6_muxed„input , 

w = 16 , 

enable = (dbs_16_halfword_l && bus_cycle_data_ready) , 
reset = , 
"> ; 

&PBM_Assign ( " dbs_l 6_output " , " {held_halfword_l , dbs__16_muxed_input } n 

} 

if ( scalar (@dbs_8_modules) ) 
{ 

&Delay ("out = held_byte_3 , 

in = dbs_8_muxed_input , 

w =8, 

enable = ( dbs_8_by te_3 && bus„cycle__data_ready) , 
reset = , 
"> 

if ($$Sys{master_data_width> == 32) ; 

&Delay ("out - held_byte_2, 

in = dbs_8_muxed_input , 

w =8, 

enable = (dbs_8_byte_2 && bus_cycle_data_ready) , 

reset = , 
") 

if ($$Sys{master_data_width} == 32) ; 

&Delay ("out = held„byte_l, 

in - dbs„8__muxed_input , 

w =8, 



enable = ( dbs_8_by te_l && bus_cycle__data_ready) , 
reset = , 
" ) ; 

if ($$Sys{master„data_width} == 32) 
{ 

&PBM_As s ign ( " dbs_8_output " , 

" {held_byte_3 , held_byte_2 , held_byte_l , dbs_8_muxed_input } " ) 

} else { 

&PBM_As s ign ( " dbs_8_output " , 

" { held_byte_l , dbs„8__muxed_input } " ) 

} 

} # End: if ( scalar (@dbs_8_modules ) ) 

################ 

# Write-data 
# 

# Selection-mux to pick the correct segment to send. 

# This is all pretty easy, once you've got the write-control 

# signals ( dbs__8_by te_3 , etc) all figured-out. 
# 

# For now, the read- and write- phase control signals (e.g. 

# dbs_8_byte_3 and friends) are the same. In the future, it might 

# be beneficial to remove the "narrow- write" exclusion- term from the 

# read-phase-control signals, but leave it in the 

# write-phase-control signals. For today, narrow writing is a 

# term in both phase-control signals — BECAUSE THEY'RE THE SAME: 
# 

my $sys_write_data = ScGet„Sys_Signal ( $$Sys {master} , " writedata" ) ; 

if (scalar (@dbs_16_modules) ) 
{ 

&PBM„Wire ( " dbs_16_write_halfword_l " , 1 , " dbs„16_halfword„l " ) ; 

&Mux ( "dbs_16_write_data, type = unary, w = 16, 

dbs_16_write__halfword_l — > ( $sys_write_data\ [31 : 16] ) , 

— > ($sys_write_data\ [15 : 0] ) , 

lt ) ; 

} 



if ( scalar (@dbs_8__modules) ) 
{ 

if ( ($$Sys{master_data_width) == 32)) { 

&PBM_Wire ( " dbs_8_wr i te_byte__3 " , 1 , " dbs_8_Jbyte_3 " ) ; 

&PBM_Wire ( " dbs_8_write_byte_2 " , 1 , " dbs_8_byte_2 " ) ; 

} 

&PBM_Wire ( " dbs„8_writ e_byte_l " , 1 , " dbs_8_byte_l " ) ; 



my $mux„string = " " ; 

$mux_string .= "dbs_8_write__byte_3 --> 
db s_8_wr i t e_by t e_2 --> 
if $$Sys {master_data_width} == 32; 
$mux_string . = " dbs_8_write_byte_l --> 

— > 



($sys_write„data\ [31:24] ) , 
($sys_write_data\ [23 : 16] ) , 

($sys„write_data\ [15 : 8] ) 
($sys_write_data\ [ 7: 0]) 



&Mux ( "dbs_8_write_data, type = unary, w = 8, $mux_string" ) ; 

} 

# Create a verison of "adjusted" write-data suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# write-data value gets distributed on shared data busses. 
# 

# Note that, at least, this mux does collapse to something simpler 



# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the "1'bO" trick, above. 
# 

&Mux ( " dbs_adjusted_write_data , 
type = unary , 

w = $$Sys {master_data_width} , 

dbs_8_active — > dbs_8_write_data , 
dbs„16_active --> dbs_16_write__data, 
--> $sys_write_data, 

") ; 



################################################################ 

# PBM Emi t . IRQ. _Pr i or i t i z er 
# 

# Well, compared to the dynamic bus-sizer, this is sure a piece 

# of cake. 
# 

# Given a %Sys-hash (reference) , we have to emit the requisite 

# IRQ prioritization logic into the currently- open file (which, we 

# presume, is the PBM verilog file) . 
# 

# We are responsible for driving two signals : 
# 

# 1) The masters' "irq" -type input. 

# 2) The msters ' 11 irqnumber " -type input. 
# 

# (1) is just a straight logical-or of all the periphs 1 IRQ-outputs. 

# (2) is just an ordered priority-mux. 
# 

################################################################ 

sub PBM_Emit_IRQ_Prioritizer 

{ 

my ($Sys) = (@J ; 

&Emit_Comment ( " \n IRQ Prioritizer \n"); 

my @irq_signals = ( " 1'bO" ); # Trick makes it work when list is empty, 
my %irq__ hash; # Keeps track of irq signals by number, so we can sort. 

foreach $Mod (&Get__Sys__Slave_List ( $Sys) ) 
{ 

next if ! $$Mod{Has__IRQ} ; # that was a short trip. 

my $irq_signal = &Get_Sys_Signal ( $Mod, "irq"); 
$irg hash {$$Mod{ IRQ Number)) = $irq_signal; 
push (Q-irq signals , $irq signal) ; 

} 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "irq") , 
join (" || 11 , @irq_signals) ); 



# NOTE: We do not use the generator-library &Mux- function 

# because it doesn't retain the order of the terms. That's just 

# the way it works. That's OK: It's easy enough to just build 

# our own question-mark-colon expression: 
# 

my $mux_expression„string = " " ; 

foreach $irq_num (sort numerically keys (%irq_hash) ) 
{ 

$mux_expression_string . = " $irq_hash{ $irq__num} ? g < d$irq_num : 

} 

$mux„expression_string .= " 6'd63 n ; # Default: lowest priority. 



&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "irqnumber") , 
$mux_expression_string) ; 

# Mien Got, that was easy. 

} 

################################################################ 

# PBM_Emit_Simple__Assignments 
# 

# At the top of the PBM module, there are a bunch of "simple" 

# assignments. These are, for the most part, statements which 

# "broadcast" master-outputs to various slave modules. For example, 

# the master control signals are "simply" assigned to many of the 

# slave modules . 
# 

# This function handles this issue role-by-role . 
# 

# Note that no special care is needed for shared busses, because 

# we've defined the utility function &PBM_Assign so that you can 

# call it multiple times to assign the same thing to the same 

# signal, and it does something smart (ignores redundant assignments) . 

# Thus, a shared byteenablen signal, for example, will get the masters' 

# byteenablen-output assigned to it multiple times, but it won't hurt 

# anything. 
# 

# We -don't- connect writedata- or address-type ports for dynamically-sized 

# peripherals. Those are generated in the DBS-unit. For the same reason, 

# we also don't assign address- or writedata- signals to shared busses, 

# because one of the clients might require dynamic sizing. 
# 

################################################################ 

sub PBM_Emit_Simple_Assignments 

{ 

my ($Sys) = ; 

# Lots of things connect to the master, so let's keep a ref to the 

# master's data, and its avalon-ports , handy: 
my $Master_Mod = $$Sys {master} ,- 

my $master_avalon_table = $ $Master_Mod{ aval on_por t_t able } ; 

&Emit_Comment ( " \nSimple assignments. 

Connect-up signals which pass unmolested from one PBM-port to another. 

&PBM_Wire ("reset", 1, "~reset_n" ) ; # Handy: Logic-true reset. 

################ 

# Start with the very-easiest avalon roles: 

# alwaysO, alwaysl, elk, and resetn 
# 

# Even these are a little abnormal, because we have to deal with the 

# fact that there could be more than one of each type. 
# 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod>) 
{ 

if ($$Port{avalon_role} eq "alwaysO") { 

&PBM_Assign ($$Port {system_signal} , " {$$Port {width} 'bO}") ; 

} elsif ($$Port{avalon_role} eq "alwaysl") { 

&PBM__Assign ($$Port {system_signal} , " { $$Port {width} 'bl}") ; 

} elsif ($$Port{avalon_role} eq "elk") { 

&PBM_Assign { $$Port {system_signal} , "elk") ; 

} elsif ($$Port{avalon_role} eq "resetn") { 



&PBM_Assign ($$Port {system_signal} , "reset_n" ) ; 

} 

} 

} 

################ 

# Address -broadcast . 
# 

# Each peripheral with an address-port gets the appropriate 

# flavor of address — except, of course, dynamically-sized peripherals, 

# which get a special address generated by the DBS-unit. 
# 

# The byte-enable control signals could, I suppose, be considered "part 

# of" the address, so they get assigned in this same loop. Once 

# again, byte-enables for dynamic devices are handled elsewhere. 
# 

# i ! ! SUBOPTIMALITY NOTE ! ! ! 
# 

# Shared-busses are complicated, because it's a bit of an ordeal to 

# figure-out exactly -which- flavor of dynamic address they get — it 

# depends upon what's connected to them. If we were to do this in 

# some clever, optimal way, it would be a big hassle (trust me: a 

# great big hassle) . 
# 

# Instead, we always assign a dbs-adjusted 

# version of the address (which comes from logic) to shared address 

# ports. Even shared address ports that don't have any dynamically-sized 

# clients on them. Thus, we sometimes introduce more logic-delay than 

# strictly necessary. Sue me. I'll fix it if it ever becomes a 

# problem. 

# 

my $byte__range_select = " $$Sys {master_address_width} -1 : 0"; 

my $halfword_range__select = *• $$Sys {master_address_width} -1 : 1" ; 
my $word_range_select = " $$Sys {master_address_width} -1 : 2 " ; 

&Emit_Comment ( " \n Address -as signmentsXn 11 ) ; 

# Emit wire-declarations for DBS-generated addresses, whether we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-si zers, but we (might) use them here: 
# 

&PBM_Wire ( " dbs_16_address " , $$Sys {master_address_width} -1) ; 

&PBM_Wire ( "dbs_8_address" , $$Sys {master_address_width} ) ; 

&PBML_Wire ( "dbs_adjusted_address" , $$Sys {master_address_width} }; 

foreach $Mod ( &Get_Sys„Slave_List ( $Sys) ) 
{ 

next if $$Mod{Is_Bus_Master} ; # Slaves only, please 

# Go ahead and hook-up the byte -enable s . That's straightforward. 
# 

# Note: I may need to change this later to work with narrow writes 

# through the DBS -unit . 
# 

&PBM_Assign ( &Get_Sys_Signal ($Mod, "byteenablen" ) , 

&Get_Sys_Signal ($Master_Mod, "byteenablen" ) ) ; 

my $source_signal = " " ; 

my $A_Port = &Get_Port_By_Role ($Mod, "address") ; 
next if !$A_Port; 

if ($$A_Port{is_shared> ) 
{ 



# All shared addresses are dbs-muxed. How suboptimal . 
$source_signal = "dbs_adjusted_address " ; 

} 

elsif { $$Mod{is_dynamically_sized} } 
{ 

$source_signal = 

$$Mod{address_type_used} eq "byte" ? 

} else { # Non-dynamic address 

my $range_select = 

$$Mod{address_type_used} eq "byte" ? 



" dbs_8_address " 
" dbs_l 6_addres s " 



$ by t e„rang e_s elect 
$$Mod{address_type_used} eq "halfword" ? $halfword_range_s elect 

$ wor d_r ange_s elect 

$source_signal - 

&Get_Sys_Signal { $Master_Mod, "address") . " [ $range_select] " ; 



&PBM_Assign (&Get_Sys_Signal ($Mod, "address"), $source_signal) ; 



################ 

# Data-broadcast 
# 

# Pretty simple: Each peripheral gets a copy of the master's write-data, 

# unless it's dynamic — then it gets a special "tweaked" version of the 

# data. 
# 

# Shared data-ports could, in theory, have any kind of peripheral attached 

# to them, so they need to drive-out a fully "dynamically-adjusted" 

# version of the data suitable for the current occasion. Happily, the 

# DBS -unit computes this very thing for us . 
# 

# See the M ! SUBOPTIMAL ITY NOTE! I! above for addresses. 

# The same thing goes here. We're penalizing the write-data path on 

# busses that may not have any dynamic clients at all. For now: 

# tough beans. For later, maybe we'll get more clever. 
# 

# Another slight suboptimality : The way this works, we drive data out 

# on -all- tri-state busses whenever the master does a write. This 

# might involve a slight waste of power, because we'll be wiggling I/O 

# pins more than strictly necessary. Again, tough beans. 
# 

&Ernit_Comment ( " \n Data-assignments\n !I ) ; 

# Emit wire-declarations for DBS-generated write-data, whether we 

# need them or not . These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 
# 

&PBM„Wire ( "dbs_16_write_data" , 16 ) ; 
&PBM_Wire ( " dbs_8_write_data" , 8 ) ; 

&PBM_Wire ( "dbs_adjusted_write__data" , $$Sys{master_data_width} ) ; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
{ 

my $source_signal - " " ; 

my $ targe t_signal = &Get_Sys_Signal ($Mod, "writedata" ) ; 

if { $$Mod{Uses_Tri_State_Data_Bus} ) 
{ 

# The "principal" tri-state bus is managed as part of the 

# read-data path (elsewhere) . 

next if $$Mod {Tri_State„Data„Bus } eq 



$$Sys{Principal_Tri_State_Data_Bus} 



# For tri-state busses, we need to use the "data" -type port 

# instead of the "writedata" -type port as the assignment 
5 # target : 

# 

$ targe t_signal = &Get_Sys_Signal ($Mod, "data"); 

# To this bus we will assign a value which, as it 

10 # happens, incorporates its whole tri-state logic. Perversely, 

# we may " PBM_Assign" this same expression to this bus several 

# times, but it doesn't hurt anything. 
# 

my $sys_writen = &Get_Sys_Signal ( $$Sys {master} , "writen" ); 
15 $source_signal = " (~$sys_writen) ? dbs_adjusted_write_data 

$$Sys{master„data_width} 'bZ 

} 

elsif ($$Mod{is_dynamically_sized} ) 
{ 

20 $source_signal = 

$$Mod{address_type_used} eq "byte" ? "dbs_8_write_data" : 

"dbs_16_write_data" ; 

} else { # Non-dynamic address 

$source__signal = &Get_Sys_Signal ($Master_Mod, "writedata"); 

25 } 



&PBM_Assign ($ targe t_signal, $source_signal) ; 



} 



30 ################ 

# Readn/Writen -broadcast. 
# 

# Every module gets a copy of the master's "readn" and "writen" signals 

# -- unless they have a nonzero setup- or hold- time, in which case 
35 # they get their very-own custom-made, tweaked copy of these signals. 

# 

# That all happens later when the wait-state unit gets created. 

# 

&Emit„Comment ( " \n Control-assignments\n" ) ; 
40 foreach $Mod ( ScGet_Sys_Slave_List ( $Sys) ) 

{ 

next if $$Mod{Setup_Time} != 0; 

next if $$Mod{hold_time_full__clocks} 1= 0; 

45 &PBM_Assign (&Get_Sys_Signal ($Mod, "ifetch"), 

&Get__Sys_Signal { $Master_Mod, "if etch 11 ) ) ; 

&PBM_Assign (&Get„Sys_Signal ($Mod, "readn"), 
&Get_Sys_Signal ($Master_Mod 7 "readn" ) ) ; 



50 



55 } 



&PBM„Assign (&Get_Sys_Signal ($Mod, "writen"), 
&Get_Sys_Signal ( $Master_Mod, "writen")) 
unless $$Mod{Hold_Time} ; # half -cycle hold needs custom write strobe. 



################################################################ 

# PBM_Emi t_Addr e s s_JDe c oder 
# 

60 # Given a ref to the %Sys-hash, we can generate all the logic 

# to build the address decoder. 
# 

# This function emits all the Verilog statements which 



# implement the address -decoder directly into the currently-selected 

# output file. These statements include: 
# 

# * wire-declarations for modules that don't have chip-select ports. 

# * Logic-assignments to all "active-" signals. 

# * Instantiate fast I/O registers for "registeredselectn" s , if any. 
# 

################################################################ 

sub PBM__Emi t„Addr e s s__De c ode r 
{ 

my ($Sys) = (@_) ; 

&Emit_Comment ( " \n Address decoder \n"); 

# Extract the name of the masters' address signal: 
my $Master_Mod = $ $Sys {master} ; 

my $master_address - &Get_Sys_Signal ($Master_Mod, "address"); 

# external chip selects may get gated with slave _jphase below. 
&Vprint ( " reg slave^phase ; \n " ) ; 

foreach $Mod (&Get_Sys_Slave_List ($Sys) ) 
{ 

$$Mod{external_active_signal} = &Get_Sys_S ignal ($Mod, "chipselect " ) ; 

# All modules get a pbm_internal select signal regardless of if they 

# need an external chip select signal. This is because 

# we use address -decode signals to operate the 

# read-data mux and wait state timer. PBM_external signals have 

# gotten a tad more tricky. We now gate them with slave_phase. 

# This may 
# 

# All modules, including ones requiring the evil 

# "registeredselectn" -type signals also fall into this category. 
$$Mod{internal_active_signal> = " $$Mod{name}__active" ; 

# How quaint that we still call this old warhorse of a function: 
# 

&Make_Nios_Chip_Select ("out = $$Mod{internal_active_s ignal} , 

device_base = $$Mod{Base_Address} , 
device_span = $$Mod{address_span} , 
outer_span = $$Sys {address_span} , 
address_name = $master_address , 
") ; 



if ( $ $Mod { ext ernal_ac t i ve_s ignal } ) 
{ 

if ( 

($$Mod{Read_Wait_States) eq "peripheral_controlled" ) |j 
($$Mod{Write__Wait_States} eq "peripheral_controlled n ) 
) 

{ 

&PBM_Wire ($$Mod{ ext ernal_active_s ignal} , 1 , 

" $$Mod{internal_active_signal} & slave_phase " ) ; 

} 

else 
{ 

&PBM_Wire ( $$Mod{ ext ernal_active__s ignal } , 1 , 
$$Mod{internal_active_s ignal} ) ; 

} 

} 



} 



################ 

# Registered chip-selects. 
# 

# The whole dirty little business of registered chip-select signals 

# is, I suppose, part of the address -decoding job. Note 

# that modules can have more than one registered chip-select signal, 

# each of which is derived (of course) from that modules' active-signal. 
# 

# There's also a wait-state aspect to this task (wait-states 

# occur as a consequence of the chip-select delays) . That's not 

# handled here — it's handled later, when we build the wait-state 

# unit . 
# 

my $Fast_IO_Setting = "OFF"; 

my $chipselect_reg_module = $$Sys{name} . "_rg" ; 

if ( $ $ Sy s { ha s_r egi s t er ed_s e 1 ec t_s ignal s } ) 
{ 

$Fast_IO_Setting = "ON"; 

# First, we create a special flip-flop module just for the 

# purpose. It needs to be "firm" so that synthesis tools don't 

# optimize-away duplicates, and so that we can make a 

# FAST_OUTPUT_REGISTER entity-assignment to it without "losing" its 

# name. 
# 

&Create_Firm_Flip_Flop_Variant ($$Sys{system_directory) , 

$$Sys{sopc_directory} , 
$$Sys{device_family} , 
$chipselect__reg_module , 
) ; 

# Push this register onto the list of files to be synthesized, 
my $synth_J_ist_ref = $$Sys {synth__f ile„list> ; 

push ( <£ $ synt h_l i s t_re f , 

" $$Sys{system_directory}/$chipselect_reg_module .v" ) ; 

#&Emit_Comment 

(q[ 

Registered chip-select signals 

A module may optionally request one (or more) -registered- chip-select 
signals (by declaring a port of type " registeredselectn" , and by 
setting the " Us es_Registered_Select_S ignal " assignment TRUE in the 
SYSTEM„BUILDER_INFO section) . 

Modules do this when they have stringent setup-time requirements 
on their select-signals. Such stringent setup requirements are 
greatly assisted by having the select-signal be produced from 
an Apex Fast-I/O register, right in the pad structure itself. 

Delaying (registering) the select-signal to a module is tricky 
business, but the PBM "absorbs" all the trickiness and does the right 
thing. Wait-states get generated (in subsequent code) when the 
(delayed) select-signal being fed to the device disagrees with its 
correct, current value. The logic is clever enough to allow successive 
accesses to this same device with no wait-penalties . This 
arrangement is emminently suitable for external asynchronous RAM 
used as main-memory. 

Registered chip-selets are always logic-negative, because that's the 



way chip-level select signals have been since the dawn of time. 
Because these come directly from fast I/O registers, there is no 
subsequent opportunity to negate them, or even copy them to other pins . 

We accomplish all this using deep voodo magic: We use a special 
"Firm Flip-Flop" module , since this is the only way to convince 
the synthesis tool to -not- optimize-out "redundant" chip-select 
registers. It also provides a handy method for assigning the 
1 FAST_OUTPUT_REGISTER ' attribute — using an ESF-file. 
] ) ; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) { 

foreach $Port (&Get_Module„Port_List ($Mod)) 
{ 

next if $$Port {avalon_role} ne "registeredselectn" ; 

# If we got to here, then we know %$Port is 

# of type "registeredselectn". Blurt-out an instance 

# of a properly-connected firm flip-flop with no further ado: 
# 

my $instance_name = " $$Mod{ name} _$$ Port {name} _delay_regist er" ,- 
ScVprint ( " 

$chipselect_reg_module $instance_name 

( 

.elk (elk), 
. ena ( 1 ' bl ) , 
.elm (reset_n) , 
.prn (l'bl), 

,d (~$$Mod{internal„active„signal} ) , 

,q {$$Port{system_signal} ) 

) ; 

// exemplar attribute $instance_name NOOT TRUE 
") ; 

} 

} 

} # End: if ($$Sys{has__registered_select_signals} ) 

# We -always- create an ESF file because: 

# 1) don't cost nuthin' 

# 2) Un-sets FAST-I/O req'mnt if it had been previously set. 
# 

&C r ea t e_ESF_F i 1 e 

("firm_flip__flop : FAST_OUTPUT__REGI STER = $ Fas t_IO_Set ting; " , 
$$Sys{system_directory} , 
$chipselect__reg_module) ; 



} 

################################################################ 

# PBM_Emit_Read_Data_Mux 
# 

# Given a ref to the %Sys-hash, we can generate all the logic 

# to build the read-data mux path. 
# 

# This function emits all the Verilog statements which 

# implement the read-data mux structure directly into the 

# currently-selected output file. 
# 

# **** Mux structure 
# 

# We build-up a "fast mux" and a "slow mux. 11 The "fast mux" 

# gathers-up all the readdata-type signals for zero-wait-state 



# modules (if any) . The slow-mux gathers -up all the others. 
# 

# **** The "principal" bus. 
# 

# The road to the CPU takes another twist if you have a "principal" 

# tri-state data bus. The principal data bus gets routed -directly- 

# to the CPU's read-data port — the rest of the {muxed- together) signals 

# a route "around the horn": Driven-out onto the principal 

# databus in order to be read back in. 
# 

# If the CPU doesn't have any such "principal" tri-state busses, then 

# things are simpler — the muxes just collect the data. 
# 

# **** Widths 

# In this age of dynamic bus-sizing, all narrow data busses are just 

# zero-padded. This happens "almost invisibly" in Verilog syntax when 

# we assign a narrow value to a wide target. 
# 

# If a peripheral is "dynamic, 11 then we use the ouptut 

# from the appropriate DBS-unit in place of its data. The DBS-unit 

# itself is generated later. And, to help-out the DBS-unit, we 

# also generate its input -muxes right here, because we are already 

# engaged in the process of building mux-like things. 
# 

################################################################ 
sub PBM_Emi t_Read_Da t a_Mux 
{ 

my ($Sys) = <@_) ; 

ScEmit_Comment ( " \n Read-Data Multiplexer \n" ) ; 
################ 

# Loop to build-up slow- and fast-mux strings. 
# 

# Also, build-up mux strings for the dynamic bus-sizers' inputs. 
# 

my $f ast_mux_string = 
my $ s 1 ow_mux_s t ring = " " ; 
my $dbs_8_mux_string = 
my $dbs_16_mux__string = 11 " ; 

f oreach $Mod ( &Get_Sys_Slave_List { $Sys ) ) 
{ 

my $data_signal = &Get__Sys_Signal ($Mod, "readdata" ) ; 
45 $data_signal = &Get_Sys_Signal ($Mod, "data") 

if $$Mod{Uses_Tri_State_Data_Bus} ; 

next if $data_signal eq " " ; # Some peripherals are write-only (!) 

50 if ($$Mod{is„dynamically_sized} ) 

{ 

# Yikes . A dynamically- si zed peripheral. Its data comes from 

# the appropriately- sized DBS-unit. Note that dynamically- si zed 

# peripherals are automatically assumed to be "slow." 
55 # 

if ($$Mod{Data_Width} <= 8) 
{ 

$slow_mux_string . = " $$Mod{ internal_active_signal} 

dbs_8_putput , " ; 

60 $dbs_8_mux„string . - " $$Mod{internal_active_signal} 

$data_signal, " ; 

} else { 



$slow_mux_string .= " $$Mod{internal„active_signal} 

dbs_l 6__output , " ; 

$dbs_16_mux_string . = " $$Mod{ interna l_active_signal } 

$data_signal, " ; 
} 

} else { 

# Not dynamic — it's ether a slow-thing or a fast-thing. 
# 

# Principal data-bus is not (directly) part of this mux. 

# but we are accutely interested in the active -signals 

# for peripherals which sit on the principal bus. We'll 

# use these signals later to control the bus -direct ion. 
next if $$Mod{Uses_Tri__State_Data_Bus} && 

<$$Mod{Tri_State_Data_Bus} eq $$Sys{Principal_Tri_State_Data_Bus} ) 

if <$$Mod{Read_Wait_States} ==0) £ 

$f ast_mux_string . = " $$Mod{internal_active_signal} 

$data_signal, " ; 

} else { 

$slow_mux_string .= " $$Mod{ interna l_active_signa 1 } 

$data_signal, " ; 
} 

} 

} # End: $Mod-loop. 

# There may or may not be input-muxes to the DBS-units: 

# if so, we declare the DBS-unit's output wire here 

# (becuase we have to) . But the DBS-units themselves are made later. 
# 

if { $dbs„8_mux__string) 

&Modif ied_Mux ( " dbs_8_muxed„input , type=unary, w=8 , $dbs_8„mux_string " } ; 
&PBM_Wire ( H dbs_8_output" , $$Sys {master_data_width} ) ; 

} 

i f ( $ dbs„l 6_mux_s t r ing ) 
{ 

&Modif ied_Mux { " dbs„16_muxed_input , type=unary , w=16 , 

$dbs_16_mux_string" ) ; 
&PBM_Wire ( " dbs_l 6_output " , $$Sys {master_data__width} ) ; 

} 

# There may or may not be a slow mux: 
# 

if ( $ s low_mux_s t r ing ) 
{ 

&Modif ied__Mux ( " slow_read_data_mux_output , type=unary , 

w = $$Sys{master_data_width} , $slow_mux_string 
") ; 

# The "default" input to the fast-mux is, of course, the output 

# of the slow -mux: 
# 

$ fas t_mux_st ring " — > slow__read_data_mux_output , " ; 

} 

# There is always a fast-mux: 

ScModi fie d„Mux ( " r e ad_da t a„mux_ou tpu t , typ e =unary , 
w = $$Sys {master„data_width} , 
$ f ast„mux_string 

") ; 



################ 

# Data-in to CPU. 

# 

# Well, gee. There are two cases here. Let's start with the 

# easiest: 
# 

# **** -NO- principal tri-state bus. 
# 

# In this case, the fast-mux ouptut goes right to the 

# CPU's data-input, and that's that. 

# **** Principal tri-state bus. 
# 

# The principal tri-state bus actually drives the CPU's 

# read-data input directly. The fast-mux output gets registered. 

# The output of this register gets driven-out onto the principal 

# bus (and, therefore, to the CPU) . Thus, perversely, we -drive- 

# data out onto this bus at the end of any bus read- trans act ion 

# which did not get data from the principal bus (and, even then, 

# we do it if there's dynamic bus-sizing) . 
# 

&PBM„Wire ( n data__driveback_active" ) ; # These Declare here, compute later. 
&PBM_Wire ( ,r data_driveback_asserted" ) ; 
&PBM__Wire ( " dbs_8_ac tive " ) ; 
&PBM_Wire ( n dbs_16_active" ) ; 

if ( ! $$Sys{Principal_Tri_State_Data_Bus} ) 
{ 

# The easy case: Mux feeds CPU, period. 
# 

&PBM_Assign ( &Get_Sys__Signal ( $$Sys {master} , "readdata" ) , 
11 r ead_data_mux_output " ) ; 

} else { 

# Ugh. 

# To start with, hook-up principal bus directly to CPU's data-in: 
# 

&PBM_Assign (&Get_Sys_Signal { $$Sys {master} , "readdata") , 
" $$Sys{Principal„Tri„State_Data_Bus}_data" ) ; 

# Next, run the result of the read-data mux into a holding 

# register: 

&Delay ( " in = read_data_mux_output , 

w = $$Sys {master_data_width} , 

reset = , 

") ; 

################ 

# What to drive? 
# 

# We can drive one of two things out on the principal data 

# bus: 

# 1) Outbound write-data from the CPU. 

# For this purpose, we use the same "dbs_adjusted_write_data" 

# that every other tri-state bus gets. This is suboptimal 

# in the same way that it is for every other tri-state bus. 
# 

# 3) Data from the read-mux being sent "back out" to the CPU. 
# 

# Those are the only two possibilities, and we can tell which 

# to use just by looking at the masters' writen-signal : 
# 

my $master_write_n = &Get_Sys_Signal { $$Sys {master } , "writen" ) ; 



&Mux ( n principal_data„drive_value , type^unary , declare=l , 
w = $$Sys{master_data„width} , 

(~$master_write_n) — > dbs_adjusted_write_data, 

— > dl„read_data_mux_output , 

") ; 



################ 

# When to drive? 
# 

# Like every other tri-state bus, we drive data during actual 

# bona-fide write-operations . We also drive data during the 

# "driveback" phase, as -determined by a signal named: 
# 

# data„driveback_asserted 
# 

# which (we presume) gets comupted by the wait-state generator. 
# 

# **** Interaction: Dynamic Bus Sizing 
# 

# And, of course, there's a bit of strangeness when a device 

# on the principal databus is dynamically- si zed. The easiest 

# way to think about this: Set aside dynamic -si zing for a 

# moment, and think only about narrow peripherals on the 

# principal databus (be they dynamically sized or no) . 
# 

# Narrow peripherals, by definition, only drive low 

# bits (e.g. LS-byte or LS-halfword) of the databus. So, 

# when reading from (say) an 8-bit device on a tri-state databus, 

# the high-order bits [31.. 8] aren't driven by anyone. There's 

# no harm in -us-driving these bits, now, is there? If we 

# don't, then they'll just read as <undefined> ('Z', in 

# simulation), and that's not really any help to anyone. 
# 

# So let's suppose we decide to be good citizens and "nail-down" 

# the high-order address bits when a narrow peripheral is 

# accessed on the principal tri-state bus. This gives us a warm 

# feeling inside, and, as an added bonus, makes dynamic bus 

# sizing work for devices on the principal bus (the high-bits 

# get driven from the appropriate dbs-holding registers. Yay. 
# 

# So, despite the heft of this comment, the actual solution is 

# both simple and tidy: 

&PBM_Wire ( " do_drive_principal„data_bus_byte_ 0 " , 1 , 

" (~$master„write_n) j | data_driveback_active" ) ; 

ScPBMJtfire ( " do_dr ive_principal_data_bus__byte__l B , 1 , 

"do_drive_principal_data_bus_byte_0 | 1 dbs_8_active" } ; 

&PBM_Wire ( " do_dr ive_j?rincipal_data_bus_ bytes_2_and_3 " , 1 , 
"do_drive„principal„data_bus_byte_0 | | 
dbs_16_active || dbs_8_active" ) ; 

# Assign principal databus in bytewise-chunks . 
# 

&PBM_Assign( " $$Sys {Principal_Tri_State_Data_Bus}_data [7 : 0] " , 
rt (do_drivejprincipal_data_bus_byte_0 ? 
principal„data„drive_value [7 : 0] : 
8 ( bZ ) 

") ; 



&PBM_Assign( " $$Sys {Principal_Tri_State_Data_Bus }_data [15 :8] ,r , 
" (do_drive principal data_bus byte 1 ? 
principal_data__drive_value [15:8] : 
8'bZ ) 

") ; 

if ($$Sys{master_data_width} ==32) { 

&PBM_Assign("$$Sys{Principal_Tri_State„Data_Bus}_data[31:16] " , 
n (do_drive_j?rincipal_data_bus_bytes_2_and__3 ? 
principal_data_drive_value [31:16] : 
16' bZ ) 

") ; 

} 

} 

################ 

# "memis3 2bits" 
# 

# Somebondy needs to tell the master when it 1 s fetching 

# 32-bit data--that's just one of the inputs that an Avalon master 

# might require. 
# 

# I couldn't say for sure that this really belongs in the "Read Data Mux" 

# generator, but I can't think of where else to put it, so here 

# it is. 
# 

# Note that 16 -bit dynamically- si zed devices appear as 32 bits 

# -unless- "if etch" is asserted, in which case they don't. 8 -bit 

# dynamically-sized devices always just appear as 32-bits wide. 
# 

# It might be more efficient to say when something -doesn't- return 

# a 32 -bit value. But For now, I do the logic-true computation: 
# 

my $if etch_signal = &Get_Sys_Signal ( $$Sys {master} , " if etch"); 

my @memis32bits_terms = ( " 1 * bO " ) ; 
foreach $Mod (&Get_Sys_Slave__List ($Sys)) 
{ 

if ($$Mod{Data_Width) > 16) { 

push ( @memi s 3 2 bi t s_t erms , $$Mod{ interna l„active_signal } ) ; 
} else { 

if ( $$Mod{is__dynamically_sized} ) { 
if ($$Mod{Data_Width} <= 8) { 

push (@memis32bits_terms , $$Mod{internal_active_signal} ) ; 
} else { 

push (@memis32bits_terms , 

" ($$Mod{internal_active_signal> && (~$if etch_signal) ) " ) ; 

} 

} 

} 

} 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "memis32bits " ) , 
join ( 11 [| ,r , @memis32bits_terms) ) ; 



################################################################ 

# PBM_Emit_Wait_State_Generator 
# 

# Given a ref to the %Sys-hash, we generate all the logic 

# to build the read-data mux path. The logic gets 

# dumped-into the currently-selected output file. 
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#### ############################################################ 

sub PBM_Emit_Wait_State_Generator 
{ 

my ($Sys) = (@_) ; 

&Emit_Comment ( " \n Wait-State Generator \n" ) ; 

# This function seems preternaturally-concerned with the read- 

# and write-strobes . Assign their signal-names to some 

# handy local variables: 
# 

my $sys_readn = &Get_Sys_Signal ( $$Sys {master} , "readn" ); 
my $sys_writen = &Get„Sys_Signal ( $$Sys {master} , "writen" ) ; 



################ 

# Peripheral-Controlled Wait 

# 

# If the currently-selected peripheral has a wait-request 

# signal, and it's asserting it, then we definitely want to 

# wait. This is pretty easy to compute: 
# 

my @periph_controlled_wait_terms = <"l'b0 B ); # 1'bO fixes empty lists, 
foreach $Mod (&Get_Sys_Slave_List { $Sys) ) 

my $request_signal = &Get__Sys_Signal ($Mod, "waitrequest " ) ; 

############### 

# @periph_controlled„wait_terms is one of the very few things 

# (only one at the moment) that gets an 

# external_active„signal. We cut off the external select 

# after the peripheral lowers its wait pin. It doesn't get to 

# change its mind later on in the same bus cycle. 

push { @periph_controlled_wai t_terms , 

" $$Mod{external_active_signal} && $request_signal &i 

(~$sys_writen) " 

) if $$Mod{Write_Wait_States} eq »peripheral„controlled B ; 

push (@periph_controlled_wait_terms , 

"$$Mod{external_active_signal} && $request_signal (~$sys„readn) " 
) if $$Mod{Read_Wait_States} eq ■peripheraLcontrolled" ; 

} 

&PBM_Wire { n periph_wait_asserted" , 1, 

join (" || " , @periph_controlled_wait_terms) ) ; 



################ 

# Calculate minimum wait states. 
# 

# Each module has a certain minimum number read/write wait-states, 

# perhaps even including zero. This is the sum of the 

# user-supplied wait-states and, IN ADDITION, 

# any setup- and hold-times the module may require. 
# 

# It may seem a bit strange, but even modules with 

# "peripheral_controlled" wait-states can also have a 

# minimum number of fixed wait-states — that's because they may 

# also require setup/hold time. 
# 



# The minimum number of wait-states we calculate here {and save 

# as part of each %Mod-hash) DOES NOT INCLUDE delays due to 

# dynamic bus sizing or principal -databus driveback. 
# 

# Here we just compute the minimum number of clocks -In A Single 

# Bus Cycle- . If the peripheral requires multiple bus cycles 

# (via dynamic bus sizing) or requires an extra clock for databus 

# drive-back, that ' s not our problem here . 
# 

# The values we compute here (minus 1) get loaded into the 

# wait-state counter when any of these peripherals are selected. 
# 

# while we're looping through the values, take note of the 

# largest number we'll see--this number (less 1) will be the biggest 

# value we ever load into the wait-state counter. 
# 

# **** Hold-time policy: 
# 

# Giving a peripheral extra hold-time doesn't make much sense 

# following a read-cycle — though one can contrive a case where 

# you need it. We could define it either way — hold-times apply 

# only to write-cycles, or they apply to both read- and write-cycles. 

# I've defined it so that hold-times only apply to write-cycles. It 

# makes computation of the "bus_cycle„data_ready " signal simpler. 
# 

# Deal with nasty case of no wait-states whatsoever, whch will 

# result in a zero-bit mux/counter. To deal with that case, we 

# just always assume at least one wait-state: 
# 

my $max_counter__value = 1; 

foreach $Mod (&Get_Sys_Slave_List ($Sys) ) 
{ 

my $min_read = $$Mod {Read_Wait_States} ; 
my $min_write = $$Mod{Write„Wait„States} ; 

$min_read = 0 if $min_read eq n peripheral_controlled" ; 
$min__write = 0 if $min_write eq 11 per ipheral_contr oiled" ; 

$min_read += $ $Mod{ Setup_Time } ; 

$min__write += $$Mod{Setup„Time} + $ $Mod{ ho ld_time_f ull_c locks } ; 

$$Mod {read_min_wait_states} = $min_read; 
$$Mod{write_min_wait_states} = $min_write; 

$max_counter_value = 

&Find_Max { $max„counter_value , $min_read, $min_write) ; 

} 

my $wait_counter_bits = &Bits_To_Encode ( $max_counter_value) ; 

################ 

# Counter -load mux 
# 

# Select what value goes into the wait-state counter 

# based on the peripherals' active-signals (and, of course, 

# whether we're reading or writing) . 
# 

41 Notice that we load the counter with the modules ' number of 

# wait-states MINUS ONE. 
# 

# Trick: All these muxes are very similar, so we use the same 



# description-string with a different word at the front, 

# which gives each a different output - s ignal : 
# 

my $ count er_mux_s t r ing = " count er_load_value, 

w = $wait_counter_bits , 

type - unary, 

— > 0, 

tt . 

my $write_counter_mux_string = "write_" . $ count er__mux_st ring; 
my $read_counter_mux_string = "read_" . $counter_mux_string; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
{ 

my $read_load_val = $$Mod {read_min_wait_states } - 1; 
my $write_load_val = $$Mod{write„min__wait_states} - 1; 

$read_counter_mux_string . = " $$Mod{ interna l_active„s ignal } 

$read_load_val, " 

if ($read_load_val >= 0) ; 
$write_counter„mux_string .= " $$ Mod { in ternal_active„s ignal} 

$write_load_val, " 

if ($write_load_val >= 0); 

} 

&Modif ied_Mux ( $ r ead_count er_mux_s tr ing ) ; 
&Modif ied_Mux ($ writ e_counter_mux_s t ring) ; 

&Mux ("$ count er_mux_st ring, declare=l, 

(-$sys_writen) — > write_counter_load_value , 
( -$ sys_readn) — > read_counter_load_value , 

") ; 



################ 

# Wait-state counter. 
# 

# There are two interesting questions about this counter: 
# 

# — When should it load? 

# — When should it count? 
# 

# **** when to load: 
# 

# This counter gets loaded at the beginning of every bus-cycle 

# for which a fixed wait is required. We already have a signal 

# which tells us when it's the beginning of a bus-cycle, so we 

# need some additional logic to tell us if a fixed-wait is required, 

# We build that logic herein below, before the counter proper. 
# 

# **** When to count: 
# 

# This counter "sticks" at zero. This makes the whole scheme 

# much easier to manage /under stand. Consequently, the counter 

# is only enabled when its current value is nonzero. 
# 

# The only other thing that can stop this counter from a-countin ' 

# is a wait-request from the active peripheral. This 

# has the effect of extending the current Bus Cycle-- setup-time, 

# hold-time, and all. 
# 

# Note that there is a question of interpretation here: Do 

# we want to allow a peripheral to extend a bus -cycle during its 



# own setup-time? Or should we not listen to it unitl we actually 

# issue it an active read/write strobe? This is largely a question 

# of definition. I chose to -always- listen to peripheral-controlled 

# waits, even during setup/hold periods. Because it makes the logic 

# easier. So there. 
# 

my @fixed_wait_active_terms = ("l'bO"); # 1'bO fixes empty- s trings . 

foreach $Mod <&Get_Sys_Slave_List ( $Sys) ) 
{ 

if ($$Mod{read_min_wait_states} > 0) { 
push (@f ixed__wait_active_terms , 

" ( (~$sys_readn) && $ $Mod{ interna l_ac t ive_signal } ) " ) ; 

} 

if {$$Mod{write_min_wait_states} > 0) { 
push ( @f ixed_wait_active__terms , 

11 ( (~$ S ys_writen) $$Mod{internal_active_signal} } " ) ; 



} 



} 



# This signal stays true during the entire bus-cycle 

# for which a fixed (counter) wait-state applies. 

&PBM_Wire ("fixed_wait_active'\ 1, join <■ || " , ©f ixed_wait_active„terms) ) 

# The counter itself, per-se. 
# 

# I use one call to lf &Delay" to build a whole counter. Nobody else 

# seems to appreciate the mighty "ScDelay" function— the fools. 
# 

&PBM_Wire ( " counter_ne_zero " ) ; 

&PBM_Wire ("wait„count„enable" , 1, 11 (~periph_wait_asserted) && 

(counter_ne_zero) " ) ; 



&PBM_Wire ( "bus_cycle_start " ) ; 
&PBM_Wire ( n wait_load_enable " , 



# declared here, computed later. 
1, "bus_cycle_start && 
f ixed_wait_active " ) ; 



# Optimization: Avoid emitting the counter-register if the maximum 

# counter load-value happens to be zero. This often happens 

# when we have a bunch of one-wait-state peripherals in the 

# system. In this case, the single wait-state is controlled 

# by the n wait_load_enable" signal, and we can do away with the 

# counter per-se in its entirety. A clever synthesis tool might 

# figure this out on its own, but... why risk it? 
if ( $max_c oun t er_va lue <= 1) { 

&PBM_Wire ( 11 wai t_counter " , 1 , 11 1 ' bO " ) ; 
} else { 

wait_counter , 
(wait_counter - 1) , 

(wait_load_enable | | wait_count_enable) , 
wait_load_enable , 
count er_ load__value , 
$wait_counter_bits , 



ScDelay ( "out 

in = 

enable = 

sync_set = 

set_value = 

width = 

reset = 
") ; 



&PBM_Assign ( "counter_ne„zero" , "wait_counter ! = $wait_counter„bits\ ' bO " ) 



&PBM_Wire ( " f ixed_wait_asserted" , 1 , " counter_ne_zero 



wa i t_l oad_enab 1 e 



################ 



# Registered chip-selects . 
# 

# This is a nuissance, but at least it's easy. 
# 

# While we're listing all the reasons to extend a bus cycle, 

# let us not forget registered chip-selects. They blow! 
# 

# Whenever the registered (delayed) version of a chip-select 

# differs from the current (un-delayed) version, we view 

# this as a bad thing. We extend the current bus cycle until 

# the signals agree (i.e. we wait 1 clock) . 

# . n 
my (*reg„select_wait_terms = ("1'bO"); # Ah, the old "1'bO" trick. 

foreach $Mod (&Get_Sys_Slave_List ( $Sys ) ) 
{ 

next unless $$Mod{Uses_Registered_Select_J3ignal} ; 

# Modules -might- have more than one registered select signal, ^ 

# but we don't really care. They all have the same time -behavior . 
# 

my $reg_signal = &Get_Sys_Signal ($Mod, "registeredselectn" ) ; 
push (@reg_select_wait_terms / " ( (~$reg_signal) 

$$Mod{internal_active_signal}) " ) ; 
} 

&PBM_Wire ( " reg_select_wait_asserted" , 1 , 

join (" |1 " , @reg_select„wait_terms) ) ; 

################ 

# Bus-Cycle Status. 
# 

# One of the major responsibility of the wait-state generator 

# is to tell the rest of the world (not the least, the CPU) 

# where we are in the bus cycle: Beginning, middle, or end. 
# 

# So. How do we know when a bus cycle begins? The only thing 

# we know for sure is that one bus cycle begins when another one 

# ends — it's like a Zen koan, isn't it? 
# 

# But seriously. A bus-cycle always ends when there is no longer 

# any reason to extend it. Said more prosaically, the signal 

# "extend_bus_cycle" will always be zero during the last clock 

# of any bus -cycle . 
# 

# So, our only means for deciding that this is the -beginning- of 

# a cycle is to notice that " extend_bus_cycle" was false (0) . 
# 

# -- Bonus reason. 

# Well, there's another way, too, that we can tell if this is 

# the start of a bus-cycle: If the CPU (master) is -idle- 

# (both read-strobe -and- write strobe inactive) . Masters 

# sometimes do this. If so, we consider that whole long 

# time the "start" of the bus -cycle. 
# 

# **** Reasons To Extend. 
# 

# There are three "ordinary" reasons to extend a bus-cycle, and 

# one "special" one. Let's start with the ordinary ( slave_driven) 
# 

# 1) The peripheral, itself, can request wait-states. 

# 2) We can have a fixed (counted) number of wait-states, 

# due to both traditional wait-states and setup/hold times. 



# 3) That whole sorry business about registered chip-selects. 
# 

# And here's the "special" reason 
# 

# *4) Data has to percolate through the principal databus drive-back 

# register. 
# 

# But the only way we know when it's time to do (*4) is when 

# the bus-cycle is no longer extended for any of the other reasons (1..3 

# But (*4) still counts as extension of the current bus-cycle. 

# Therefore, we have to account for (1..3) and (4) separately. 

# That's OK — I'm an amateur accountant. 
# 

# 

# As long as the master is just sittin 1 there, we take that to 

# mean a cycle "is in the process of starting". 
&PBM_Wire ( ,t master_is_idle 11 , 1, 

" ( " . &Get_Sys_Signal { $$Sys {master} , " readn" ) . " ) 

" ( " .&Get_Sys_Signal ($$Sys {master} , "writen" ) . " ) " ) ; 

&PBM_Wire ( " slave_wait_asserted" , 1 , 

reg_select_wait_asserted | | 

f ixed_wait_asserted | | 

periph_wait_asserted " ) ; 

# The slave gets its chance to wait, or talk, or whatever. Then 

# it's over — for good. 

# Orion hates &Delay because he never knows which of sync_set or 

# sync_reset or any of the other options gets priority. 

# reg slave_phase is defined above because the outgoing chip 

# selects need to be gated by it. 

&Vprint { " 

always @{posedge elk) 
begin 

if (<~reset_n) ]| (bus_cycle_end) ) 
begin 

slave _i)hase <= {1 {l'bl}}; 

end 

else begin 

if (~slave_wait_asserted & -master_is_idle) begin 
slave_phase <= {1 {1'bO}}; 

end 

end 

end 

") ; 

# Don't extend a cycle when the master is idle I 
&PBM_Wire ( " extend__bus_cycle " , 1 , 

" (slave_wait_asserted slave_phase) [ | 

(data__driveback_asserted ) " ) ; 

# And a bunch of different names for the same thing (used elsewhere) : 
# 

&PBM_Assign ( "bus_cycle„end" , " -extend_bus_cycle && -master_is_i 

&PBM_Assign { ,, bus_cycle_data_ready ,, , "bus_cycle_end" )? 



# Generate a privately -named version, then assign to global wire: 
&Delay ("out = bus_cycle__start_reg, 

in = bus_cycle_end, 

sync_set - master_is_idle, 
set = reset, 



&PBM_Assign ( "bus_cycle_start " , n bus_cycle_start_reg" ) ; 



################ 

# Data drive-back timing 
# 

# We are responsible for coming up with this nasty-little signal 
# 

# „ data_driveback_asserted. 
# 

# this is true when: 
# 

# 1) This is a read-cycle. 
# 

# 2) The currently-selected peripheral is -not- on the 

# "principal" databus 
# 

# 3) There is no longer any other reason to extend the current 

# bus cycle ( slave_wait_asserted is zero) . 
# 

# 4) We're not still gathering-up a data-value as part of a 

# multiple-bus-cycle dynamic-bus -sizing operation. 
# 

# ... and, lest we forget (which we did) . . . 

# . 

# 5) »datBL_driveback_asserted" wasn't true last time, otherwise 

# conditions (1) . . (4) above will persist forever, and the 

# master will hang-up indefinitely. 

# First, come up with a signal that tells us about (2) : 
# 

my @driveback__active_terms = ("1'bO" ); 
if ($$Sys{Principal_Tri_State_Data_Bus}) { 
foreach $Mod (&Get_Sys_Slave_List ($Sys)) { 
if ( { $$Mod{Uses_Tri_State_Data_Bus} ) && 

($$Mod{Tri_State__Data„Bus} eq $$Sys {Principal_Tri_State__Data_Bus} ) ) 

{ 

next ; 

push (@driveback_active_terms, $$Mod{internal„active_signal} } ; 

} 

} 

&Delay ("out = data_driveback_last_time / 
in = data_driveback_asserted, 
reset = , 
"> ; 

&PBM_Assign ( "data_driveback_active" , join ( " | | " f @driveback_active„terms) ) 

&PBM_Assign ( " data_driveback_asserted" , " 
data__driveback_active 
(~$sys_ readn) 

( -slave^wai t_asserted) && 
(~dbs„wait_asserted) && 
(~data_driveback_last_time) " ) ; 

################ 

# Transaction status 
# 

# The wait-state generator is responsible for the transaction-level 

# timing as well as the bus -cycle -level timing. Recall that a transaction 



# can take multiple bus cycles . 
# 

# And, once again, we are faced with the same question: How do 

# we know when a transaction starts? It starts when another 

# transaction ended (search for "Zen koan, " above). 
# 

# At this time, there's only one way a transaction will keep going 

# even when a bus-cycle has ended — if we're in the middle of a 

# dynamic-bus-sizing operation. 
# 

&PBM_Wire ( "extend_bus_transaction" , 1, 

"extend_bus_cycle | | dbs_wait_asserted" ) ; 

# And a bunch of different names for the same thing (used elsewhere) 
# 

&PBM_Wire ( M bus_transaction_end" 1 , " ~extend„bus„transaction" ) ; 

# Generate a privately-named version, then assign to global wire: 
&Delay ("out = bus_transaction_start_reg, 
in = bus_transaction_end, 

set = reset, 
") ; 

&PBM_Assign ( 1! bus_transaction_start " , "bus_transaction_start_reg" ) ; 

# Lookie here: The — FINAL — wait-request signal to the master: 
# 

&PBM_Assign ( &Get_Sys_Signal ($$Sys {master} , waitrequest) , 
"extend_bus_transaction" ) ; 

} 

################################################################ 

# PBM_Emit_Setup_Hold_Logic 
# 

# Given a %Sys-hash (reference) , emits all the logic to implement 

# "custom" readn / writen-strobes . 
# 

# **** Custom Read / Write strobes 
# 

# If your module requests setup- or hold-times, then it 

# gets its own private readn- or writen-signal , which is only 

# active for a sub-portion of the bus cycle (unlike the masters ' 

# control signals, which are asserted for the entire cycle) . 
# 

# Each "custom strobe" is generated by an S-R flip-flop. We 

# need to assert the strobe at a particular point in the cycle, 

# then deassert it at some later point. We use the counter-value 

# (and the load-counter signal) to determine when to assert /deassert 

# the custom write-strobe (i.e. when to set/reset the flip-flop) . 
# 

# We can only use this scheme because we previously guaranteed that 

# all "custom" strobes have at least one clock's worth of setup time. 

# This gives us enogh time to compute the S/R inputs to the 

# custom-strobe register, (see "Funny setup/hold rule" in 

# ScCheck_Avalon„Rules) . 
# 

################################################################ 

sub PBM_Emit_Setup_Hold_Logic 

{ 

my ($Sys) = (@_) ; 

&Emit_Comment ( " \n Setup- / Hold-Time Logic \n" ) ; 



################ 



# First, do full-clock setup/hold times. 
# 

# previous rule-checks guarantee no overlap with fractional case. 

# But check anyway. 
# 

foreach $Mod (&Get_Sys_Slave_List ($Sys)) 

# All the modules we care about will have setup-times, 
next unless $$Mod{Setup_Time} > 0; 

&Debug (0, "Generating setup/hold-logic for $$Mod{name} " ) ; 

$$Mod{Hold_Time} !~ /half/ or die " 

Module $$Mod{name}: internal hold-time consistency check violation"; 

# Come up with an expression that says when to 

# assert the strobe (separate for read- and write-strobes) 
# 

# The strobe is actually asserted on the clock -after- the 

# $read/write_assert_expr goes true, because we have to 

# propogate through the custom-strobe register. 
# 

my $master_read„expr ="(-". ScGet_Sys_Signal ( $$Sys {master } , " readn" ) . " ) " ; 
my $master_write_expr =■(-". ScGet_Sys_Signal ($$Sys {master} , "wnten" ) . " ) " ; 
my @read_assert__terms = ( $$Mod{internal„active„signal} , 

$master„read_expr) ; -i i 

my @write_assert_terms = ( $$Mod{internal_active„signal} , 

$master_write_expr) ; 

if ($$Mod{Setup_Time} == 1) 

^ # Because of the prop-delay (above) we have to order 

# our strobe on the first clock of the bus-cycle. Fortunately, 

# there's a signal just for that purpose: 
# 

push <@read_assert_terms, bus_cycle_start) ; 
push (@write_assert„terms, bus_cycle_start) ; 
} else { 

# If we got to here, notice that Setup_Time is 2 or greater. 

# In this case, we have to use the output of the wait counter. 

# Recall that the wait-counter counts down, so this makes 

# the math a bit of a head-scratcher . 

# . 

# Justifying this numerical expression is a bit tricky — 

# I used little text-tables to "simulate" some example 

# count sequences : 

# 

# Example: Tsu = 2 , Th = 0 , min_wait-states = 2 

# wait-counter | expr true? | output write-strobe 

# + + 

# —load-- - ^ dle 

# l assert idle 

# 0 deassert ACTIVE 
# 

# Example: Tsu = 2, Th = 0, min_wait-states = 5 

# wait-counter | expr true? | output write-strobe 

# + + 

# --load-- - ldle 

# 4 assert idle 

# 3 - ACTIVE 

# 2 - ACTIVE 

# X - ACTIVE 

# 0 deassert ACTIVE 
# 



# Example: Tsu = 2, Th = 3, min_wait -states = 5 

# wait-counter | expr true? | output write-strobe 

# + + 

# — load — - idle 

# 4 assert idle 

# 3 deassert ACTIVE 
#2 - idle 

# 1 - idle 

# 0 - idle 
# 



my $read_assert_count = 

$$Mod {read„min_wait_states} - 1 - ( $$Mod{Setup__Time} - 2); 
my $write_assert_count ~ 

$$Mod{write_min_wait_states} - 1 - ( $$Mod{Setup__Time} - 2); 

push (@write_assert_terms , " (wait_counter == $write_assert_count) ") 
push (@read__assert_terms , " (wait_counter == $read_assert_count )") 

} 

&Debug (0, " \@read_assert_terms is:", @read_assert__terms) ; 
&Debug (0, " \@write_assert_terms is : " , @write_assert_terms) ; 

my $read_assert_expr = join ( " && " , @read_assert_terms }; 
my $write_assert_expr = join ( " && ", @write_assert_terms) ; 

# Judging from the tables (above) , the expression for when to 

# deassert the strobe is pretty easy. We still have to 

# do a special-case when hold-time is zero, because testing for 

# (wait_counter ==0) is problematic — it's zero at the beginning 

# of the cycle ! 
# 

# Also remember: As a matter of POLICY, we don't use any hold- 

# time for read-cycles. We may want to revisit this policy later. 
# 

my $read_deassert_expr = 1, bus_cycle_end" ; 
my $write_deassert_expr = u bus_cycle_end fl ; 
$write_deassert_expr = 

" (wait_counter == $ $Mod{ ho ld_time_full_c locks} ) " 
if ($$Mod{hold_time_full_clocks} > 0); 

# One of these days, we're actually going to have to build 

# the strobe-output registers . Recall that readn/writen strobes 

# are logic -negative (assert — > 0) . Provide an asynchronous 

# "set" so they power-up inactive. 
# 

# FUTURE: Make these "firm flip-flops" if we determine that 

# these are off -chip. 
# 

my $readn_strobe = &Get_Sys_Signal ($Mod, "readn"); 
&Delay ("out = $readn_strobe, 

sync_reset = ( $read_assert_expr) , 

sync_set - ( $read_deassert_expr ) , 

set = reset, 

") if $readn„strobe; 

my $writen_strobe = &Get_Sys_Signal ($Mod, "writen"); 
&Delay ("out = $writen_strobe , 

sync_reset = ($write_assert_expr) , 

sync_set = ( $write_deassert_expr ) , 

set = reset, 

") if $writen_strobe; 



# End: foreach $Mod. 



10 



20 



30 



################ 

# Now generate narrow write-strobes where a fractional hold-time 

# was requested. 
# 

my $has_fractional_hold_times = 0; 

# logic-positive "name" for master strobe, to ease understanding: 
# 

my $master_write = " (-" . &Get„Sys_Signal ( $$Sys {master} , "writen" ) . " ) " ; 



my $made_do_shorten_write_strobe = 0; 
foreach $Mod (&Get_Sys_Slave_List ($Sys)) 
{ 

next unless $$Mod{Hold_Time} =~ /half/; 
15 &Debug (0, "Generating narrow write-strobe for module $$Mod{name} " ) ; 

$has_f ractional_hold_times++ ; 



$$Mod{Setup_Time} == 0 or die " 

Module $$Mod{name}: internal hold-time consistency check violation"; 



if { ! $made_do_shorten_write_strobe) 
{ 

&PBM_Wire { " do_shorten_write_strobe " } ; # forward-declared 
there . 

25 $made_do_shorten__write_strobe = 1; 

} 

&PBM_Assign (&Get_Sys_Signal ($Mod, "writen" ), 

($master_write && ~do„shorten_write_strobe) " ) ; 



} 



if ( ($has_fractional_hold_times) ) { 

&Emit_Comment (" A little dab of shortening for the write-pulse" ) ; 
&Delay ("out = write„second_half , 
in = $master__write, 

35 edge = negedge , 

reset = reset, 
"> ; 

&PBM_Assign ( "do„shorten_write_strobe " , 

n write_second_half && bus_cycle_end" ) ; 

40 > 
} 

############# ################################################### 

# Generate_PBM 
45 # 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a PBM, including opening the output-file, blorting 

# all logic into it, and subsequently closing the output file 

# again . 
50 # 

########## #############t####################################### ^ 

sub Generate_PBM 

{ 

my ($Sys) = (&_) ; 

55 

# Open the output file: 
# 

&PBM_Progress ("Creating PBM module: $$Sys Cpbm_f ile} . " ) ; 

open (ALTERA_FILEHANDLE2 , »> $$Sys {pbm_f ile} " ) or die "can't open 
60 $$Sys{pbm_f ile} : $ ! " ; 

my $old_out = select (AI/TERA_FILEHANDLE2 ) ; 
print " $GLOBAL_COPYRIGHT_NOTICE\n " ; 



&Emit_Module_Header 



( $ $ Sys { pbm_name } ) ; 



& PBM_Emi t_S imp 1 e__A s s i gnmen t s ( $ Sy s ) 

&PBM:_Emi t_IRQ_Pr ior i t i z er ( $ Sys ) 

&PBM_Emi t_Addr e s s_Dec oder ( $ Sys ) 

&PBM_Emit_Read_Data_Mux ( $Sys ) 

&PBM_Emit_Dynamic_JBus_Sizer ( $Sys ) 

&PBM„Emit_Wait_State_Generator ( $Sys ) 

&PBM_Emit_Setup_Hold„Logic ( $Sys ) 



ScVprint ( " \n endmodule / / $Sys {pbm„name} \n" ) ; 

close ( ALTERA_FIIjEHANDLE2 ) ; 
select ($old_out) ; 

my $synth_list_ref = $ $ Sy s { synth_f ile_list} ; 
push ((£$synth_list_ref , $$Sys {pbm_f ile} ) ; 

} 

################################################################ 

# Generate_Core 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system-level "core" module, including opening the output 

# blorting all logic into it, and subsequently closing the output fil 

# again . 
# 

################################################################ 

sub Generate_Core 

{ 

my ($Sys) = (@_) ; 

# Open the output file: 
# 

&PBM_Progress ("Creating Core module: $$Sys {core_f ile} . " ) ; 
open ( ALTERA_F I LEHANDLE , "> $$Sys { core_f ile} " ) 

or die "can't open $$Sys {core_f ile} : $ I " ; 
my $old_out = select (AL«TERA_FILEHANDLE ) ; 
print "$GL0BAL_COPYRIGHT_N0TICE\n" ; 

ScEmit_Module_Header ( $$Sys {core_name} ) ; 

&Core_Emit_Wire_Declarations ($Sys) ; 
&Core_Emit_Instances ($Sys) ; 

&Vprint ("\n endmodule // $$Sys{core_name} \n" } ; 

close (ALTERA_FILEHANDLE) ; 
select ($old_out) ; 

my $synth_list_ref = $$Sys {synth_f ile_list} ; 
push (@$synth„list_ref , $$Sys{core_f ile} ) ; 

} 

################################################################ 

# Generate_Wrapper 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system wrapper-module, including opening the output-fil 

# writing its contents, and subsequently closing the output file 

# again. 
# 

# This function actually does a very simple thing: Create a 

# wrapper-module with a single black-box instance in it. It looks 

# scary and complicated because it 1 s tri-lingual, and the language 



# constructs to do this simple thing are more structurally different 

# than reason would dictate. 
# 

################################################################ 

sub Generate_Wrapper 

{ 

my ($Sys) = (©_) ; 

# Open the output file: 
# 

&PBM_Pr ogress ("Creating Wrapper module: $$Sys {wrapper_f ile} . " ) ; 
open (WRAPOUT, "> $ $Sys {wrapper„f ile} " ) or die 

"can 1 1 open $$Sys {wrapper_f ile} : $ 1 " ; 
my $old__out = select (WRAPOUT) ; 

my $core__instance_name = 11 the„$$Sys {core_name} " ; 
&Emi t__Top__Commen t ( $ $ Sys { name } , $ $ Sy s { hdl__l anguage } ) ; 

# AHDL is funny, and requires that we do a semi-C-like "extern" 

# (FUNCTION) declaration of the thing we're about to instantiate: 
# 

&Declare_Ports_For ( $$Sys {core_name} , 0, $$ Sys {hdl_l anguage } ) 
if $$ Sys {hdl__l anguage} =~ / A ahdl/i; 



&Emit_Module__Header ( $$Sys {name} , $$ Sys {hdl_l anguage } , 1) ; 

# Some languages require a little opening dance before the 

# instantiation: 

if ($$Sys{hdl_language} =~ /^vhdl/i) { 
&Emi t_VHDL_Component ( $ $ Sys { core_name } ) ; 
ScVprint ( "BEGINW ) ; 

} els if ($$Sys{hdl_language} =~ / A ahdl/i) { 
ScVprint ( " VARIABLE \n" ) ; 

ScVprint (" $core_instance_name : $$ Sys {core — name} ; \n\n" ) ; 
ScVprint ( " BEGIN\n " ) ; 

} 



# The instantiation per-se: 

ScInstantiate„And_Connect ( $$Sys{core_jaame} , 

$core_instance_name / " " , 0, 
$$Sys {hdl_l anguage } ) ; 

# And then, of course, everyone requires a little closing-dance: 
if ($$Sys{hdl_l anguage} =~ /vhdl/i) { 

ScVprint ( "END behavior; \n" ) ; 

} elsif ($$Sys{hdl_JLanguage} =~ /^ahdl/i) { 
ScVprint ( " END ; \n " ) ; 

} elsif ($$Sys{hdl_language} =~ /^verilog/i) { 

ScEmit_Comment ( " \n exemplar attribute $core_instance_name NOOPT TRUE 
ScVprint ( " \n // synopsys translate_on \n"); 
ScVprint ("\n endmodule // S$Sys {name} \n" ) ; 

} 

close (WRAPOUT) ; 
select ($old_out) ; 

} 



################################################################ 

# Generate_Inc_File 
# 

# If we 1 re generating an AHDL wrapper, then it's customary to 

# also make an n . inc" -f ile . This is, I suppose, the AHDL -equivalent 

# of a C-language header (".h") file. 
# 

# This function generates such a wrapper for the system if 
# 

################################################################ 

sub Generate_Inc_File 

{ 

my ($Sys) = (@_) ; 

if ($$Sys{hdl_language) !- / A ahdl/i) { 

warn ("Suspicious call to Genera te_Inc_File . 

(language is $$Sys {hdl_language} , not AHDL)"); 

return ; 

} 

$$Sys{inc_f ile}= " $$Sys {syst em_di rectory } /$$Sys {name} .inc" ; 

&PBM_Progress ("Creating AHDL include-f ile : $$Sys {inc_f ile} . M ) ; 
open (INCOUT, "> $ $Sys { inc__f ile} " ) or die 

"can't open $$Sys{inc_f ile} : $!"; 
my $old_out = select (INCOUT) ; 

&Emit_Top_Comment ( $$Sys {name } , $$Sys {hdl_language } } ; 
&Declare_Ports_For ($$Sys{name} , 0, $$Sys {hdl_language} ) ; 

close (INCOUT) ; 
select ($old_out); 

} 

################################################################ 

# Generate_Symbol 
# 

# Given a ref to the %Sys-hash, this routine generates a Quartus 

# BSF-file (schematic symbol) suitable for representing %Sys in a 

# schematic. The actual work of symbol -layout and geometry is done 

# by Aaron Ferrucci ' s mighy "&Generate_BSF" function in the library 

# module n mk_bsf . pm" . 
# 

# We get to say how the ports are arranged by building a list of 

# port-descriptions. We hand this off to Aaron, and he gives us back 

# a string, which is the entire contents of a valid BSF-file (not yet 

# created). We then create the file, write Aaron's string into it, 

# and we 1 re done . 
# 

################################################################ 
#### 

# Segment -ordering 
# 

# The top-to-bottom order that the symbol -segments is a little 

# bit important, and there are many subtle issues, both subjective 

# and practical, that come into play. One could write an entire 

# program, I'm sure, just fiddling- around with the perfect ordering. 

# But it's pretty clear that whatever hash-ordering comes out of 

# "keys" is probably not what the user wanted. 

# I'm going to sort thus: 
# 

# --If you're the master, you're first. 



# — Any module with "use_tri__state_bus " takes priority. 

# — alphabetical by class -name 

# -- alphabetical by module name. 
# 

5 # We're sorting a list of %Mod-refs, so $a and $b are like "$Mod" 
# 

sub segment_sort 
{ 

return -1 if $$a{ Is_Bus_Master} ; 
10 return 1 if $$b{Is_J3us_Master} ; 
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# No one was the master. The guy with the tri-state databus wins, 
return -1 if $$a{Uses_Tri_State_Data_Bus} ! $$b{Uses_Tri_State_Data__Bus} ; 
return 1 if ! $$a{Uses_Tri_State_Data_Bus } $$b{Uses_Tri_State_Data_Bus } ; 

# It's a tie! Whoever has the alphabetically-first class-name wins: 
my $class_result = $$a{class} cmp $$b{class}; 

return $class_result if $class_result != 0; 

20 # It's still a tie! Whoever has the alphabetically-first module name wins: 

return $$a{name} cmp $$b{name}; 

} 

sub Generate_Symbol 
25 { 

my {$Sys) = (@_) ; 

&PBM_Progress ("Generating Symbol $$Sys {name} .bsf " ) ; 

30 # There will -always- be a group at the top with the unwavering 

# elk/reset ports on it. 
# 

my @symbol_segments = ("elk | 1 j input, 

^ reset_n j 1 | input,"); 

# It sure would be nice if there were, say, a database of all the 

# widths and directions of every port on the system-module . 
# 

# HEY! It's our lucky day! 

40 # Someone already did ,, &:List_Ports_For ,, on the system-module. Get 

# handy hashes of directions and widths: 
# 

my $width_hash = &Get_Port_Widths ( $$Sys {name} ) ; 

my $dir_hash = &Get_Port_Directions ( $$Sys {name} ) ; 

45 

# Put all shared-port groups first: 

foreach $bus_name ( $$Sys {tri_state_bus_list } ) { 
my @bus__ports = ( ) ; 

my $shared_j?ort_table = $$Sys {shared_port_table} ,- 
50 foreach $shared__port„name (keys ( %$shared_jport _t able) ) { 

my $w = S$width__hash{$shared_port_name} ; 
my $d = $$dir_hash { $shared_port_name} ; 
push (@bus_ports, " $shared_port_name | $w | $d" ) ; 

55 # A null string here should not happen, but don't risk it: 

my $segment_description = join ("An", @bus_ports) ; 

push (Ssymbol^segments, $ segment_.de script ion) if $ segment„des crip t ion ; 

60 # Now go through the system, module -by-module, and make 

# a segment for each one's external (non-shared) ports. 

# Note that we even include the master. Nioses don't have any 

# external ports, but who knows what the future may bring? 



# 

foreach $Mod (sort segment_sort &Get„Sys_Module_List ( $Sys } ) { 
my @rnod_ports = ( ) ; 

foreach $Port (&Get_Module_Port_List ($Mod) ) { 
next if $$Port{is_shared} ; 

next unless $$Port {is_external} ; 

my $pin_name = $$Port { system__signal} ; 
my $w = $$width_hash{$pin_name} ; 

my $d = $$dir__hash {$pin_name}; 

push (@mod__ports, " $pin_name | $w | $d" ) ; 

} 

# Avoid asking for a "segment" for modules that don't have any ports: 
my $segment_description = join ("An", @mod_ports) ; 

push (@symbol_segments, $segment_description) if $segment_description 

} 

# Mr. Ferrucci, if you please... 
# 

my $bsf_contents = &Generate_BSF ( $$Sys {name} , @symbol_segments) ; 

# Do the usual file-opening mechanics: 
# 

my $bsf„f ilename = " $$Sys {system__di rectory} /$$Sys {name} .bsf " ; 
open (BSFOUT, !t > $bsf_f ilename " ) or die 

" Genera t e__Symbo 1 : Couldn't open $bsf_f ilename for output. $!"; 
print BSFOUT $bsf _contents ; 
Close BSFOUT; 

} 

################################################################ 

# Sys_Gen„Housekeeping 
# 

# Well, this is a fine how-do-you-do, isn't it? 
# 

# There are a handful of annoying little things we need to do 

# to prepare for the great, glorious business of system- generation . 
# 

# Perhaps most importantly, we use a lot of the handy-dandy 

# logic-generation routines from "generator_f unctions .vpp" (e.g. &Mux) . 

# That's swell, but this here file (that you're reading) is a 

# Perl -module- which gets "use"d. That's pretty civilized, and 

# there are several good reasons for doing it that way: 
# 

# * Perl line-numbers and error-reporting actually work. 
# 

# * We don't have to "eval" this file TWICE through Vpp ' s 

# two-pass process. 
# 

# But, since this logic-generation program doesn't get Vpp'd, 

# how can we be sure that "generator^ functions . vpp" ever got loaded? 

# Well, we can be sure by -loading it ourselves-. We do so 

# by calling &Vpp on our own behalf — not to generate logic, but 

# just to load a library of handy Perl functions. Truth 

# is stranger than fiction. 
# 

# And that's not all. All of the generator- functions have an 

# oddball output -behavior : They don't actually print anything into 

# the output file unless a special vpp-variable says it's "safe". 

# That variable is "$vpp_pass", which must be '2' for any of the 

# generator-functions to print. So, sneakily, we set this 

# global variable here, after we've read-in the library using 



# &Vpp. Because this is sneaky, it's also implementation -dependent 

# and error-prone. This will break some day when somebody 

# changes the way Vpp works inside, I guarantee it. Global variables 

# truly are evil . 
# 

# FUTURE WORK: 
# 

# I respectfully suggest that the approach used by " gener a tor_f unctions .vpp" 

# could use a good overhaul. Phrasing all that stuff as a real Perl 

# module would have several advantages- -not the least of which would 

# be eliminating the need for this kludge you see here . 
# 

################################################################ 

sub Sys„Gen_Housekeeping 

{ 

my ($Sys) = (@_) ; 

my @Synth_File_List = (); 

S$Sys{synth_f ile_list} = \@Synth__File_List ; 
$PBM__VERBOSE = $$Sys {verbose} ; # More evil globals . 

# run Vpp, but just to "import" the generator-functions library: 

scvpp r-Q" , 

"-D" , $$Sys{system_directory} , 

" -H" , " $$Sys{sopc_directory}/bin/vpp/generator_f unctions .vpp" 
) ; 

# Aren 1 t I sneaky? 

# I! BANG!! ... Ouch! My foot! 
# 

$vpp_pass =2; # this lets all the vpp-libraries actually print. 

} 

################################################################ 

# Generate„PBM_And__System 
# 

# Given a reference to the system-level PTF section (and 

# an %arg-hash that we inherit from mk_systembus) , this 

# function does everything necessary to: 
# 

# * Create an HDL implementation of the system PBM 

# * Create an HDL implementation of the system-level "core" module. 

# * Create an HDL wrapper. 
# 

# This task involves rummaging- through the PTF data, opening all the 

# appropriately-named files in the appropriate places, writing all the 

# HDL- code into them, and tying a bow around the whole mess . 
# 

# Once you've done this, the only thing left for you to do is 

# synthesize it and include it in your design. 
# 

# This function returns (by reference) the constructed database 

# known as "%Sys." This way, our caller can snoop on all the 

# excellent work we've done on his behalf. 
# 

################################################################ 

sub Generate_PBM_And_System 

{ 

my ($arg, $db_Sys) = (@_) ; 

my %Sys; undef %Sys; 

%Sys = %$arg; # Start off by knowing everything that 



# mk_syst embus knows . 

&Sys_Gen_Housekeeping (\%Sys); 

&Get_System_Data_From_PTF (\%Sys, $db_Sys) ; 
&Check_Avalon_JRules { \ %Sys ) ; 

&Create_System_Port_Ijists (\%Sys) ; 



10 



15 



&Generate_PBM 
&Generate_Core 
&Generate_Wrapper 
&Generate_Inc_File 
ScGene r a t e_Symbo 1 



(\%Sys) 
(\%Sys) 
<\%Sys) 
(\%Sys) 
(\%Sys) ; 



if $Sys{hdl_language} =~ /^ahdl/i 



return (\%Sys) ; #caller may want to know new info too; 



1; # Perl modules have to say "1" , 

20 



tables__2D*pm 



sub Build_Hash_From_Table 
{ 

my $table = shift or die "ERROR Bui ld_Hash_From_T able : no table 
specif ied\n" ; 

my %Hash; 

$ table =~ sA#.*$//mg; #crush comments 

$table =~ s/ A \s*\n//mg; #crush extra new lines 

#$table =~ s/ rt \s* ( . *?) \s*$/$l/mg; #crush end and begin spaces 

my @line_array = split { / \n/ , $table) ; 

#first line is keys for rest of array 

my $old_f irst_line = shift (@line_array) ; 

my $first_JLine = $old_f irst__line ; 

#convert spaces between words to underscores 
$first_line s/ (\w) \s+ ( \w) /$l\_$2/g,- 

my @key_array = split ( A | / , $f irst__line) ; 

#second__line is dividing line, check to see no words live there 
my $second__line = shift (@line_array) ; 

die "Build_Hash_From_Table, second line should be dividing line and 
is not allowed to have words in it 1T 
if ($second_line =~ /\w/) ; 

for each $line (@line_array) 
{ 

$line .= " " ; # add space so splitting \ j \n gives us the right 
# size of array. 

my @tmp_key_array = @key_array; 

my @value_array = split (A ( /, $line) ; 

my $value_size = scalar (@value__array) ; 
my $key_size = scalar (@key_array) ,- 

die ("ERROR Build_Hash_FromJTable , line\n ( $line) ( $value__size) \n" . 
"splits to a different size than first line\n" . 
■ ($old_first_line) ($key_size) \n") 
if ($value_size != $key_size) ; 



#First column is hash index. 

my $f irst_hash_index = shift (@value__array) ; 
$first_hash_index s/^\s* ( . *? ) \s*$/$l/ ; 
shift (@tmp_key__array) ; 

#A11 other columns are added under hash index 

foreach $value (@value_array) 

£ 

my $name = shift (@tmp.Jcey_array) ; 

$value =~ s/^\s*(.*?)\s*$/$l/; 

$name =- s/~\s* { . *? ) \s*$/$l/ ; 

$Hash{$f irst_hash_index} {$name} = $value; 

} 

} 

re turn ( \ %Ha sh ) ; 

} 



sub Get_Table_Row_Names 
{ 

my $hash = shift or die 11 ERROR Get_Table_Row_Names , no hash specif ied\n" ; 

die "TYPE MISMATCH ERROR Get_Table_Row_Names , ref hash is 
(" .ref ($hash) . " ) \n" . 

"Not (HASH) \n" 

if (ref(Shash) ne "HASH"); 
return (keys %$hash) ; 

} 

sub Get_Table_Column_Names 
( 

my $hash = shift or die "ERROR Get_Table_Column__Names , no hash specif ied\n" ; 

die "TYPE MISMATCH ERROR Get_Table_Coliimn_Names , ref hash is 
(" .ref ($hash) . ") \n" . 

"Not (HASH) \n" 

if (ref($hash) ne "HASH" ) ; 

my ©array = &Get__Table_Row_Names ( $hash) ; 
print "debug @array\n" ; 
my $row = shift (©array) ; 
print "debug $row\n" ; 

my @return_array = keys % {$hash->{$row} } ; 
print ("DEBUG @return_array DEBUGXn " ) ; 
return (@return_array) ; 

} 

sub Get_Table_Row_Column 
{ 

my $hash = shift or die "ERROR Get_Table_Row_Column, no hash specif ied\n" ; 
my $row = shift or die "ERROR Get_Table„Row_Column, no Row specif ied\n" ; 
my $column = shift or die "ERROR Get_Table_Row_Column, no Column 
specif ied\n" ; 

return ( $hash-> { $row} { $column} ) ; 

} 

sub Get_Table_XY 
{ 

my ($x, $y) = @_; 

return ( &Get_Table_Row_Column ( $y , $x) ) ; 

} 

s ub Tab 1 e_Row_C o lumn_I s_D e f ined 
{ 

my $hash = shift or die "ERROR Table_Row_Column__Is_Def ined, no hash 
specif ied\n" ; 

my $row = shift or die "ERROR Table_Row_Column__Is_De fined, no Row 
specif ied\n" ; 

my $column = shift or die "ERROR Table_Row_Column„Is_De fined, no 
Column specif ied\n" ; 

return (defined ( $hash->{ $row} { $column} ) ) ; 

} 

sub Table_XY_Is_Def ined 
{ 

my ($x,$y) = 

return (&Table_Row__Column_Is__Def ined ($y , $x) ) ; 

} 



v2 vhd . pm 



#Copyright (C) 2000 Altera Corporation 

############################################################################### 
# 

# V2VHD and accompanying functions takes a verilog file and converts it to a 
vhd file . 

# 

############################################################################### 
# 

# This works with most synthesizable verilog code. 

# Here is what is not supported and known ways to work around it: 

# 0} Verilog numbers must not be more than 32 bits wide 

# 1} No Procedure /Tasks allowed. 

# 2) Asynchronous set /resets must follow elk in always declaration 

# i.e. always @ (posedge reset or posedge elk) not supported, 

# always @ (posedge elk or posedge reset) is. 

# 3) Asynchronous set/resets must be first declared i.e. 

# always @ (posedge elk or posedge reset) 

# begin 

# if (reset) 

# //asynchronous stuff here. 

# else 

# //synchronous statements here 

# endif 

# 4) Params may not define width, i.e. output [Width - 1: 0] foo not supported 

# 5) Params must be able to convert to types of natural or string 

# 6) Parameters must be set using defparam Instance .par am=value not lvalue 
Instance 

# 7) Instantiation must connected by Instance ( .port (connection) ) not 
Instance (connection) 

# 8) No case statements allowed. Use a lot of if statements instead. 

# 9) verilog and my code is case sensitive, vhdl isn't. 
#10) don't name a wire /module /instance a vhdl reserved word. 
#11) Integers are forced to be 32 bits wide 

#12) verilog / f unky_@ I #naming_convention_with_slash not supported 

#13) timing statements are not supported i.e. a <= #23 b; will be treated as a 

<= b; 

#14) $readmemb, $readmemh and $write are the only special $variables supported 
#15) It's currently possible to name a wire = tmp_logic later on in the module 
or some 



# other name that get_exclusive name doesn't know about yet. The solution 
is to 

# run through first and gather up all known names then do Exclusive name on 
the known name 

# set 



############################################################################### 
#Ways to make code more readable 

# 1) Put comments back in 

# 2 ) Find a way to convert boolean to std_logic_vector . 

# 3) Make wire assignments a list with keys = rhs, value = lhs 

# then when we make a new wire we can look for key rhs before making a new 
wire . 

# 4) Find a better way to concatenate /reduce names, sign extend names 

# 5) Fix condition where wire tmp_logical is declared later on after wire name 
is 

# created. 

# Known Bugs : 

# Is_real should replace equivalences on parenthesis names. 

############################################################################### 
# 

# read__file ( $f ile_index, $complete__f ilename) 
# 



# read_file returns the contents of the file named $complete_f ilename . 

# Sounds like a cakewalk except that Verilog has a means of including files 

# much like C++ does. 
# 

# So every time read_f ile sees: 
# 

# " include f oo 
# 

# it calls: 

# &read_file { $f ile_index+l , f oo) ; 
# 

# and sticks the result directly in its string, which it returns when it 

# reaches the end of its file. (Recursive functions are like that) . 
# 

# This file uses a global list called $include_list . 

# $include list is used to ensure that infinite x include loops don't happen 

# see check_for_inf inite_include_loops 

############################################################################### 
# 

sub read__file 
{ 

my ( $file_index, $complete_f ilename, $path) = @_; 
my $f ile_contents; 

$complete_f ilename =~ tr|\\|\/|; 
$path =~ tr|\\|\/| ; 

#warn "path, filename $path, $complete_f ilename \n" ; 
$path = " . " unless $path; 

open ( $file_index, "<$path\ /$complete_f ilename" ) || 

die "Unable to open $complete_f ilename, $ I " ; 
while (<$file_index>) 
{ 

if (0)#<s/Ws*Vinclude\s+\ n { .*?) \ "//) 
{ 

my $fn = $1; 

tprint "in file $ comp let e__f ilename, found include, $l\n" ; 

$fn =~ tr|\/|\\| ; 

if ($fn !~ /^((\\\\) | (\w\:))/) 

{ 

#full path name isnt specified. Use previous directory location. 
$fn = $path.$fn; 

} 

$include_list{$complete_f ilename} .= " , " if 

( $include_list{$complete_f ilename} ) ; 

$include_list{$complete__f ilename} .= $fn; 

#print " include_list for $ comp lete_f ilename is 
" . $include_list{$complete__f ilename} . 

# n check value is $complete_f ilename \n" ; 

&check_f or_inf inite_include_loops ($fn, $complete_f ilename) ; 
$f ile_contents .= &read_f ile { $f ile_index+l , $f n, $path) ; 

} 

else 
{ 

$f ile_contents .= $_; 

} 

} 

close ( $file_index) ; 

return { " \n$f ile_contents\n" ) ; 

} 

################# ######################t################################## 
# 



# check_f or_inf inite_include_loops 
# 

# I'm getting sick of recursive functions. Here's another one. 
# 

# This one hunts down the tree structure in $included_f ile{list} and makes sure 

# that files don r t refer back on themselves via "includes. 
# 

# It is okay for multiple "includes of the same file as long as that file 

# doesn't include something which includes something which includes the orignal 
file. 

# 

# To check, we put a stake in the ground ( $check_value) and traverse the 
"include files 

# If we ever see our stake again, we know we've walked in a circle. 
# 

############################################################################### 
# 

sub check__f or_inf inite_include_loops 
{ 

my ($included_f ile, $check_value) = @_; 

#print "c_f_i_i_l, if, $included_f ile, cf, $check_value\n" ; 

if ( ! $include_list {$included_f ile} ) 

{ 

return; tnever heard of this file 

before 

} #no infinite loop here . 

foreach $key (split { /\ ,/, $include_list{ $included„f ile} ) ) 

# I've seen this guy somewhere before 
{ # make sure I'm not 

circling . 

if ($key eq $check__value) 
{ 

die "ERROR: FOUND INFINITE INCLUDE LOOP ! \nFILE $check_value 
EVENTUALLY INCLUDES ITSELF !\n"; 
} 

else 
{ 

#print "checking $key against $check_value\n" ; 

#no smoking gun yet, check what this file includes. 

#keep the same $check_value; 

&check_for_inf inite_include_loops ($key, $check_value) ; 

} 

} 

return; 

} 

sub Kill_Comments 
C 

my ( $line ) = @_; 

#Kill multi_line_comments 
my $ tmp_l ine ; 

while ($line =~ s | A ( . *?) \/\* ( . *?) \*\/ | | s) 
{ 

$tmp__line . = $1; 

} 

$tmp_line .= $line; 

#Kill single_line_comments 

$line = " " ; 

while ($tmp„line =- s | A ( . *?) \/\/ . *?\n| \n| s) 
{ 

$line $1; 

} 



$line . = $tmp_line; 
return ($line) ; 

} 

sub Process_Comments 
{ 

my ($line) = @_ ; 

# Comments 

# VHDL does not have a means for making multi line comments 

# That means that we have to convert the lines to verilog single line 
comments (//) 

while ($line =- s | A ( . *?) \/\* ( . *?) \*\/ | $1 | s ) 
{ 

my $commented_line = $2 ; 

#There better not be nested comments in here! 
die "BAD COMMENT, $ comment ed_line, NESTED COMMENTS!" 
if ($commented_line =~ /\/W); 

# Convert all single line comments (//) in the comment to (/-/) so we 

don' t 

# confuse ourselves later. 

while ($commented_line =~ s | \/\/ | \/\-\/ | ) { ; } 

$commented_line = join (» \n\ / \ split {/ \n/ , $ comment ed_line) ) ; 
############### 

# Right now we just crush multi-line comments. We could get fancier 

later 

# If you wanted to keep these comments, uncomment the next line. 

# $line .= "\/\/$commented_line\n" 

} 

############### 

# Now we just have single comments left. For these, we can just convert 

# the verilog single line comment // to the vhdl single line comment — . 

# We also need to convert all ticked statements, e.g. ( 'define, "ifdef, 
'endif, etc.) 

# to their non-ticked counterparts, (define, ifdef, endif, etc.) And since 

we 

# later split commands on semi-colon (; ) Crush ; so that we won't have to 
worry about it . 

# crush single-line comments 

while <$line =~ s | * ( . *? ) \/\/ ( . *? ) \ n { . * ) | $1 | s) 

my $ comment = $2; 
my $rest = $3 ; 

#warn "found single line comment named $comment, $l\n" ; 

#Keep comments with special word "exemplar" in them for Leonardo 
Spectrum. 

#But convert comment character to vhdl comment character so that we don't 
#get stuck in an infinite loop. 

if ($comment =- /^\s*exemplar/i) 
{ 

#warn "putting $comment back into line\n" ; 
$line .= " \-\-$comment\n" ; 

} 

$line .= $rest; 

############### 

# Just kill comments for now 

# while ($comment =- &/ {V \\; )//){; } 



# $line .= "\-\-$comment"; 

} 



return ($ line) ; 

5 } 

############################################################################### 
# 

# Process„Verilog_Directives takes verilog code as its sole string argument. 

10 # It then processs all things in the file that have ' associated with it except 

# for ' include 

# such ' thingees include 

# 'define foo 3 

# 'if def, 'else, 'endif 
15 # v foo 

# It returns an equivalent verilog string devoid of all 'marks. It replaces 

# all 'foo with its definition if defined. (No error message is printed if foo 

# has not been defined) . It does the correct thing on 'idef , 'else, 'endif 

# statements, (including nested ifdefs) . 

20 ############################################################################### 
# 

sub Process_Verilog_Directives 
{ 

my ($line) = @_; 
25 my $def ined_line = ,f " ; 

■JP unde f % de f ined ; 

05 undef %def inition__of ; 

ft. my % defined; 

HpO my %definition_of ; 

my @nested_ifdef s - (1); #start off including code. 

^'l my $I_Should_JCeep_This_Part ; 

^35 $line = " ",$line; #a space is added so that first time through, split 

/V, we pass through 

i'" s #all of the gates and emerged unscathed as the first part of $def ined„line; 

ri #print "line is $line\n"; 

:*5K) foreach $tick (split (/ Ws, $line) ) 

*~ $I_Should_Keep_This_Part = eval (join {'&&•, @nested_if def s) ) ; 

#print ("tick is $tick, isktp is $I_Should_Keep_This_Part , nifdef = " 
#.join ( 1 | 1 , @nested_ifdef s) . "\ndefined line now is $def ined_line 

45 \n"); 

die "unmatched 'endif" if ((scalar (@nested_if def s) ) == 0) ; 

if ($tick =~ / A ifdef\s+(\S+) ( .*) /s) 

{ 

$defined{$l} = 0 unless ( $def ined{ $1} ) ,- 
50 $I_Should_Keep_This_Part = ( $def ined{ $1 } 

$I_Should_Keep_This_Part) ; 

push (@nested_ifdefs, $I_Should_Keep_This_Part) ; 
$def ined__line .= $2 if ( $I_Should_Keep_This_Part ) ; 
next ; 

55 } 
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if ($tick =- /~else\s+( .*) /s) 
{ 

die ("saw 'else before * if def") unless ((scalar (@nested_if def s) > 



$I_Should„Keep_This„Part = pop (@nested_if def s ) ; 

$I_Should_Keep_This_Part - ( I $I_Should_Keep_This_Part ) && eval (join 
('&&', @nested_if def s } ) ; 



push (@nested_ifdef s , $I_Should_Keep„This_JPart } ; 
$def ined_line .= $1 if ($I_Should_Keep_This_Part ) ; 
next ; 

} 

if ($tick =~ / A endif\s+( .*) /s) 
{ 

die ("saw "endif before "ifdef in $line\n") unless ((scalar 
(@nested_ifdef s) > 1) ) ; 

pop (@nested_ifdef s) ; 

$I_Should_Keep_This„Part - eval (join ('&&', @nested_if def s ) ) ,- 

#print "endif says isktp is $I_Should_Keep_This_Part , nif 11 .join 
( ' | 1 , toes ted_if def s) ; 

$def ined_line .= $1 if ( $I_Should_Keep_This_Part ) ; 
next ; 

} 

if ($tick =- /\Adefine\s+(\S+) \s* (\S*) \s*S/m) 
{ 

if { $ I_Should_JCeep_This_Part ) 
{ 

#print "definition of $1 is $2, vpp pass is $vpp_ pass" ; 
#die "$1 is defined in 2 places" if ( $def ined{ $1} ) ; 
$defined{$l} = 1; 
$definition_of {$1} = $2; 
$tick =~ s/ A (.*?)\n(.*)/$2/s; 
$def ined__line .= $tick; 

} 

next ; 

} 

if ($tick =~ /*(\S+) (.*)/s) 
{ 

$tick = $definition_of {$1} .$2; 

$def ined__line .= $tick if ($I_Should_Keep_This_Part ) ; 
next ; 

} 

if ($tick =~ /*\s+/s) 
{ 

#this should only be the first one. 

$def ined__line . = $tick if ( $I_Should__Keep_This_Part ) ; 
next ; 

} 

} 

die "missing "endif" if ((scalar (@nested_if def s ) ) > 1) ; 
return ( $def ined_line) ; 



sub date__time 
{ 

my ( $sec , $min, $hour , $mday, $mon, $year , $wday, $yday, $isdet ) = localtime ( time) ; 
$mon++; 

$year += 1900; 

my $d = sprintf ( " %04d.%02d.%02d" , $year , $mon, $mday) ; 
my $t = sprintf ( " %02d: %02d: %02d" , $hour, $min, $sec) ; 

return "$d $t" ; 



############################################################################### 
# 

# Verilog_Number„To_Bit_String 
# 

5 # Verilog_Number_To„Bit_String takes a verilog number of the form 5 ' hA 

# and turns it into a quoted bit string " 01010 11 . 

############################################################################### 
# 

sub Verilog_Number_To_Bit_String 

10 { 

my ( $verilog_number) = @„; 
my $integer_value = 0; 
my $ width; 

15 $verilog_number =~ s/ A \s* ( . *?) \s*$/$l/ ; 

die "ERROR NO WIDTH SPECIFIED FOR VERILOG NUMBER $verilog_number\n u 
unless ($verilog__number =~ s/^ ( \d+) \ ' // ) ; 

20 $ width = $1; 

die "width is greater than 32 bits. I intend to fix this, but for now, you 
are out of Iuck\n" 

if ($width > 32) ; 
# If there is an 'x' or 'z 1 in the number, return 
f 25 # a bitstream of x or z with width $width 

r: if ($verilog„number =~ / ( [zx] ) /i) 

^ I 

!J W my $tmp_string = $1 x $ width; 

-30 return { » \ " $tmp_string\ " " ) ; 

if ($verilog_number =~ I A b ( [ 0-1] +) $/i) 
{ 

1-35 foreach $bit (split (//,$!)) 

t: { 

$integer_value = $intege revalue * 2; 
r*- $integer„value += 1 if ($bit == 1) ; 

fU } 

ao > 

if ($verilog__number =~ / A d( [0-9] +) $/i) 
{ 

$integer_value = $1; 

45 } 

if ($verilog_number =~ / A o ( [0-7] +} S/i) 
{ 

$integer__value = eval ( " 0 " . $1) ; 

50 } 

if ($verilog_number =~ / A h( [0-9a-f ] +) $/i) 
{ 

$integer_value = eval { " Ox" . $1) ; 

55 } 

die { "ERROR Verilog_Number_To_Bit_Size_And_Bit_String : \n" 
. "NUMBER $verilog_number NOT UNDERSTOOD ! " ) 
if ( $ integer_value eq " " ) ; 

if {$integer_value >= 2**32) 
{ 
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bigger # than 2- 3 Itn";° g - nUlnber $Verilo ^ numb - Rvalue ( $integer_value) is 

my @bit_array; 

while ($integer_value > 0) 

{ 

unshift (@bit_array, ( $integer_value % 2)); 
$integer_value = $integer value » 1- 

} 

my $bit_string = join ( " " , @bit_array) ; 
^ #warn "test way to do it yields $bit_string\n" ; 



#0rion, warn if number is >= than 2»$width 

15 my $return_string; 

my $mask__value; 

foreach $mask_bit (reverse ( 0 ($width-l) ) ) 
if ($integer_value & (1 « $mask_bit) ) 
$return_string .= "l» ; 

} 

else 
{ 

25 $return_string .= "0" ; 

} 

} 

#return { " \ * $return__string\ ' " ) if ($width == 1) ; 
30 } return ( " ^ " $^eturn_string\ « ) ; 

sub VN2BS {return { &Verilog_Number_To_Bit_String <@_) ) ; } 
sub Process_Concatenation 

35 { 

my ($string, 

@Module_Info) = @_ ; 
my ( 

$Width__List, 
40 $Signal_List, 

$pWire_Assignments , 

$Eguivalence_List) = <2Module_Inf o; 

my ($begin,$middle,$end) = &Count_Parentheses ($string • \ { ■ '\>n. 
45 #warn "PC: middle { $middle) \n» ; ' 

#warn %$Width_List ; 
twarn " PC : end\n " ; 

($striJg)"\n^ R ° R Pr ° CeSS - ConCatenation ' *0 VALUE BETWEEN SQUIGGLY BRACKETS in 
50 if ($middle eq " " ) ; 

while <$middle =~ s/\{ | \}//g) { ; } # e .g. {a ,b, c, {a, e} , f , g> -> {a, b, c , a, e, f , g> 

rc . „ ($expanded_array, $width) 

55 ^ZtrT ><7r 0f -^^ VeCt ^^ nt -- S ^-ted_Bits ( ■ , ■ , $middle, Module Jnfo) ; ~ 

t^^%^^ dth " $rBtUrn ~ Width ' Width is *width\n"; 



if (scalar(split ( /\ , / , $expanded_array) ) == l) 

my $tmp_string = $expanded_array ; 
while ($tmp_string =- s/\ ' /\ " / ) { ; } 

#Turn indexed bits into bit array of size 1 

while ($tmp_string =~ s/\ [ \s* ( \d+) \s*\ ] A [ $1 : $1\ ] / s ) { ; } 



$string . = $tmp_string; 

} 

else 
C 

$string .= " std_logic_vector\ 1 " ; 

$ string .= " \ ( " ; 

$string .= $expanded_array ; 

$string .= * \)$end"; 

} 

twarn "PC: Concatenation = $string\n M ; 

return {^Replace ("Concatenation = $ string" , $width, @Module_Inf o) ) ; 

} 

############################################################################### 
# 

# Expand_Array_Of_Bi t_Vec tor s_Into_Separated_Bits 
# 

# Does exactly what it says, e.g. 

# &Expand_Array_Of_Bit_yectors_Into_Separated_Bits (A(3 DOWNTO 2),"0010 tl ) 

# returns n A[3] , A[2] , » 0 ' , f 0 1 , ' 1 ' , ' 0 ' » 

# We convert brackets to VHDL Parentheses at the end of the module 
############################################################################### 
# 

sub Expand_Ar r ay__0 f _B i t_Ve c t o r s_I n t o_S ep ar a t ed_B its 
{ 

my ($ separator, 

$ C omma„S epar a t ed_S t r ing , 
&Module_Info) = @_; 

my ($Width„List, 
$Signal__I*ist , 
$pWire„Assignments, 
$Equivalence_List) = @Module„Inf o ; 

my $ string = " " ; 
my Swidth = 0; 

foreach $name (split ( /\s*\ , \s*/s , $Comma_Separated„String) ) 
{ 

$name =- s/^\s* ( . *?} \s*$/$l/s; 
fwarn "eabvisb name ($name)\n"; 

Sname = &V2VHD__Equation ($name, @Module_Info) ; 



#Convert Bit String into bits, i.e. "10110" => ■1 , ,'0 , , , 1 , / , 1 , , , 0' 
if (&Replace_Equivalences ($name, $Equivalence_List ) 

/ A (\"|\*} <[0lXZ]+)\l$/i) 
{ 

foreach $bit (split ( // , $2) ) 
{ 

$string .= "$separator *' if ($string) ; 

$string .= "\ ' $bit\ ' " ; 

$width++; 

#warn ,r eaobvisb bit_string bit is $bit, width is $width\n" ; 

} 

} 

else 
{ 

my ($lef t, $right) ; 



($name,$left,$right) = &Vector_Range ( $name, $Width__List ) ; 

if ($left eq " " ) {$left = &Width_Of ( $naitie , $Width_List ) ; } 

if ($rignt eq ■ " ) 

{ 

$name = &Add„Intermediate_Signal ( " tmp_$name 

$name" , $lef t , @Module„Inf o) ; 

$left = eval C$left - 1) ; 
$right = 0; 

} 

$left = eval($left) ;$right = eval ( $right) ; 

foreach $index (&0rder ( $lef t , $right) ) 

{ 

$width++ ; 

$string .= " $ separator \n\t" if ($string) ; 
$string .= " $name\ [ $index\] " ; 

#warn " eaobvisb ( {name {$ index )$ separator) added to string, width 
is $width \n" ; 

> 

} 

} 

return ( $string, $width) ; 

} 

##### ###############################################################^^#### ##### 
# 

# Vector_Order 

# Inputs, $left, $right 
# 

# Vector_Order (0,4) returns {0 TO 4) 

# Vector_Order (3,1) returns (3 DOWNTO 0) 

######### ###################################################################### 
# 

sub Vector_Order 
{ 

my ($lef t_index, $right_index) = 
return " ($lef t_index) " 

if ($right_index eq " " ) ; 
if ( ($left_index >= $right_index) || { $right_index == 0) ) 

{ 

return " ($left_index DOWNTO $right_index) " ; 

} 

else 
{ 

return " ( $lef t_index TO $right_index) " ; 

} 

} 

###### ######################################################################### 
# 

# Order 

# Inputs, $left, $right 
# 

# Order (0,4) returns array (0,1,2,3,4) 

# Order (3,1) returns array (3,2,1) 

############################################################################### 
# 

sub Order 
{ 

my ($left,$right) = @„; 



my @Vector_Array; 

die "ERROR Order: LEFT VALUE ($left) NOT A NUMBERXn" 
unless ($left =- s/ A \s* ( \d+) \s*$/$l/s) ; 

die "ERROR Order: RIGHT VALUE ($right) NOT A NUMBERXn" 
unless (Sright =~ s/^Xs* ( \d+) \s*$/$l/s) ; 

if ($right > $lef t) {@Vector_Array = ($lef t . . $right) ; } 
else{ @Vector„Array = reverse ($right . . $lef t) ; } 
return (@Vector_Array) ; 



############################################################ 

# Width_Of 
# 

# Returns the width of a variable, verilog number, or vhdl bit_stream. 

# eg. Width_Of (4*h2) = 4; Width_Of "01010" = 5; 

# Returns " " if the width is not known. 
# 

############################################################ 

sub Width_Of 

{ 

my {$var, $Width_List, $p Parameter) = @_; 

#KILL SPACES I KILL! KILL! 
$var =~ s/~\s* ( .*?) \s*$/$l/s; 

#A verilog number is nice enough to tell you its width 

#at the very beginning. Usually a pain, but in this case it is great 

if ($var =~ (\d+) \ * [bdoh] ( [\d+a-fxz] ) /i) 

{ 

twarn " WIDTH_OF found verilog number $var, returned width of $l\n" ; 
return ( $ 1 ) ; 

} 

#Count the bits in a vhdl bit stream 
if ($var =~ / A (\" |\') ([0lXZ]+)\l/i) 
{ 

my $width = scalar {split (//,$2)); 

#warn " WIDTH_OF found vhdl number $var, returned width of $width\n" 
return ($width); 

} 

my ($name, $lef t, $right) = &Vector_Range ( $var, $Width_List, $pParameter) 
Iwarn "Width_Of $var after Vector_Range, left, right -> $left, $right\n" 
return " " if ($left eq " " ) ; #Not Known; 

return "$left" if ($right eq " " ) ; #Known, but not a vector, 
return (abs($left - $right) + 1); #vector width arithmetic 



############################################################ 

# Vector_Range 
# 

# Returns the name and (left and right value) of the vector range for a 

# verilog or vhdl vector. 

# if 

# reg [4:0] f oo ; 

# &Vector_Range (foo [3:2]) = (foo,3,2) 

# &Vector_Range { foo) = ( foo ,4,0) 

# &Vector_Range (foo [2]) = (foo ,2, 2) 

############################################################ 

sub Vector_Range 

{ 

my ($var, $Width_List, $pParameter) = 



my $name ; 
my $left; 
my $ right; 

5 $var =~ s/^Ns* ( .*?) \s*$/$l/s; 

#If our var is foo [3:2] return (foo,3,2) 

#We're not sophisticated enough to deal with (>1) -dimensional 
ivectors . If you need a multi -dimensional vector width, 
10 #there is a keyboard in front of you, start typing. 

if ($var =~ /(\w+)\s*\[(.*?)\]/s) 
{ 

ten " Width_0f brackets, inside brackets is $2\n"; 
15 $name = $1 ; 

($left,$right) = split (/\s*\ : \s*/s, $2) ; 

$left = eval($left) ; 

$right = $left if ($right eq " " ) ; 

$right = eval {$ right ) ; 
20 return ($name, $left, $right) ; 

} 

#If our var is foo (3 DOWNTO 2) return (foo, 3, 2) 
if ($var =~ /(\w+)\s*\((.*?)\)/s) 
25 { 

#warn " Width_0f brackets, inside brackets is $2\n" ; 

$name = $1; 

my $index = $2; 

($left,$right) = split ( As* (DOWN) ?TO\s*/s , $index) ; 
30 $left = eval($left); 

$right = $left if ($right eq ""); 
$right = eval ( $right ) ; 
return ( $name, $lef t , $right) ; 

} 

35 

#No indecies are specified, that means use the whole 
#variable. Fortunately, we have already saved all 
tvariable widths in %$Width_List 

($left, $right) = split ( / \ , / , $$Width_List {$var} ) ; 
40 $name - $var ; 

return ($name, $lef t , $right ) ; 

} 

########### ############################################################ 
45 # 

# Replace_Parameters 

# Replaces all text in $val with $$pParameter {text } 

# Currently not being used 

50 sub Replace_Parameters 
{ 

my ($val, $pParameter) = @_; 

while ($val =- s/ A ( . *?) ( \b[a-zA-Z\_] \w*) ( . *) $/$l/s) 
{ 

55 last if {$2 =~ /integer/i) ; 

my $param_substitution = $$pParameter{$2 } ; 

die " ERROR PARAMETER SUBSTITUTION: PARAMETER $2 NOT DEFINED \n" 

if ( $param_substitution eq " " ) ; 
$val .= $param_substitution. $3 ; 

60 } 

return (eval ($val) ) ; 

} 



# Get_Port_Name_Direction_And_Type 

# Takes a vhdl port string and returns Name, Direction, Type and Vector Range 

# i.e. SIGNAL data_from_cpu : OUT STD__LOGIC_VECT0R 

# returns { "data„f rom_cpu" , "OUT" , " STD_LOGIC_VECTOR ( 3 1 DOWNTO 0) " ) 
# 

sub Get_Port_Name_Direction_And_Type 
{ 

my ($string) = @_ ; 

my $possible_variables = ' SIGNAL [VARIABLE | SHARED \s+VARI ABLE ' ; 

if ($string =~ /^\s* C $possible_variables) \s+ ( \w+) \s* : \s* ( \w+) \s* ( . * } $/is) 

my ($name,$direction,$type) = ($2, $3, $4); 
return ($name, $direct ion, $ type) ; 

} 

else 
{ 

die "ERROR Get_Port_Name_Direction_And_Type , IMPROPER STRING $string\n" ; 

> 

############################^^ 
# 

# Declare_Signal 
# 

# takes, $name, $pSignal_Width as arguments, returns 

# SIGNAL Sname : STD_LOGIC__VECTOR ($left DOWNTO $right) 

# or 

# SIGNAL $name : STD_LOGIC_VECTOR ($left TO $right) 

# depending on pSignal_width 

sub Declare_Signal 
{ 

my ($name, $pSignal__Width) = @_ ; 

my (Sleft,$right) = split ( /\ , / , $$pSignal_Width{$name} ) ; 
die "Declare_Signal, bad inputs { $name , $lef t , $right ) \n" 

if {($name =~ /\W/) |[ {$left =~* /\D/) || ($right =- /\D/)) ; 
my $Signal_Declaration; 
if ($left < $right) 
{ 

$Signal_Declaration = " SIGNAL $name : STD_LOGIC_VECTOR ($left TO 
$right) ;»; 

} 

else 
{ 

$Signal_Declaration = " SIGNAL $name : STD_LOGIC_VECTOR ($left DOWNTO 
$right) ; " ; 
} 

#warn "DECLARE_SIGNAL RETURININGG $Signal_Declaration\n" ; 
return ( $Signal_Declaration) ; 

} 

### ##############t############################################# 
# 

# Convert_Signals_To_Shared_Variable 
# 

# Takes a string and a pointer to Signal_List. 

# Converts every word { \b ( [a-zA-Z] \w* ) \b) in the Signal_List from a SIGNAL 

# to a SHARED VARIABLE. Returns an array of all words changed. 

# This function is only needed to handle blocking statements. 

sub Convert_Signals_To_Shared_Variable 
{ 



my ($line, $Signal_List ) = 

die "ERROR C onver t_S i gnal s_To_Shared_Var i abl e , Signal_List IS NULL\n" 

if ( ! $Signal_List) ; 
my @return_array; 
5 while ($line =- s/\b{ [a-zA-Z] \w*> \b// ) 

{ 

my $variable = $1; 

#warn "variable is Svariable, line is { $line) \n" ; 
push (@return_array, $variable) ; 
10 my $tmp_Signal_List = $$Signal_List { Svariable} ; 

die "ERROR VARIABLE CONVERSION: of ($variable) FAILED 

($tmp_Signal_List) \n" 

unless ($tmp_Signal_List =~ s/ A ( \s*) (SIGNAL | SHARED VARIABLE) /$1SHARED 
VARIABLE/ S) ; 

15 $$Signal_List{$variable} = $tmp_Signal_List ; 

} 

} 

sub Process_Register_Assignment 
20 { 

my ($line, @Module_Info) = 
my ($Width_List f 
$Signal_List , 

$pWire_Assignments) = @Module_Inf o ; 
25 my $lhs; 

my $rhs; 

my $lhs_width; 

my $af ter_line; 

30 #Process $readmem(b|h} , $write, etc 

#warn "line is $line\n" ; 
if (Sline =~ s/"M\s*) (\$ . *?) \s*$/$2/s) 
{ 

return ( $1 .&Process_Dollar_Verilog_Statements (Sline, ©Module Info) ) ; 

35 } 

#Search for delay patterns 

Sline =~ s/(.*)\#\s*\S*(.*)/$l $2/s; 

# " #" delay kind of broken due to differences between languages 
40 # representation of delays, so just forget about them for now 

if (0)#($line =~ s/ ( . *) \#\s* ( . * ) /$l/s ) 
{ 

my $wait_amount = $2 ; 

my ($tmp, $delay_amount, $rest of line); 
45 " ~ 

if ( $wait_amount =~ /~\ ( / ) 
{ 

( $ tmp , $wait_amount , $rest_of _line) = &Count_Parentheses ( $wai t_amount ) ; 
Sline .= $rest__of_line; 

50 } 

else 
{ 

$wait_amount =~ s/ A { \S+) ( . * ) $/$l/s ; 
Sline .= $beginning_o feline. $2 ; 

55 } 

#If there is only a delay statement, e.g. (#32;) return "wait for 32 ns;" 

if (Sline =~ / A \s*\;/s) 

{ 

return ("WAIT FOR $wait amount ns;"); 

60 > 

else 
{ 

$after_line = "AFTER $wait_amount ns"; 



} 



} 

5 #There are two kinds of verilog assignments that can be made 

# 1) blocking 11 = " assignment made immediately 

# 2) non-blocking "<=" assignment made after all other items in that 

# time stamp are equated 

10 if ($line =~ /*(.*?) (\<\=|\ = ) (.*)$/s) 

{ 

my ($lhs, $operator, $rhs) = ($1,$2,$3); 
my $ tmp_pWi r e_As s i gnmen t s ,- 

my $line = &V2WD_Equation_Wrapper ("$lhs 

15 $rhs" , $Width_List, $Signal__List , \$tmp_pWire_Assignments) ; 

#warn "P_R_A: After Wrapper wire assignments are $$pWire_Assignments\n" ; 

if ($ opera tor eq "\=") 
{ 

20 $line =~ s/ A ( .*?) \<(\=.*?)$/$l:$2/s; 

#warn "found blocking statement ( $lhs$ operator $rhs) lhs is ($lhs)\n"; 

############### 

# BLOCKING STATEMENTS are tricky. 

25 # Verilog has this concept of "blocking and non -blocking" statements. 

# VHDL has module scoped SIGNALS that can only be non-blocking and 

# process scoped VARIABLES that must be blocking. To convert 

# verilog blocking statements into an equivalent VHDL blocking 

statement, 

30 # we must first convert the lhs of the blocking assignments within 

our process 

# into VARIABLES. At the end of our process, we transform all our 

VARIABLE 

# names into temporary variable names and assign the original SIGNAL 

35 names 

# equal to the temporary variable names. Perhaps an example will 

keep my 

# confusing explanation from spinning your head any longer. 
# 

40 # always @ (posedge elk) 

# a = a + 1; 
# 

# will become: 

# PROCESS BEGIN 

45 # WAIT UNTIL elk = "1"; 

# number_l_l_bits_wide : = " 1 " ; 

--all machine generated equations 

# a_2_bits„wide : = std_logic_vector ' ( 1 0 f , variable_a ( 0 ) ) + 
--must preceed assignment and be 

50 # std_logi c_vector ' ( 1 0 ' , 

number_l_l_bits_wide (0) ) ; — of type VARIABLE 

# variable_a := a_2_bits_wide ( 0 DOWNTO 0) ; 

# a <= variable_a; 

# END PROCESS 

55 # 

############### 

############### 

# First, we convert any machine generated wire assignments to 

60 variable 

# assignments within the line since they need to be evaluated before 

# the "effective immediate" (ly) variable assignment. 

# in the above example, number_l_l_bits_wide and a„2_bits„wide are 



# "machine generated" . 

my $machine_generated_commands = " " ; 
#warn "tmp_WA ( $tmp_pWire„Assignments) \n M ; 

my (@blocking_commands) = split ( /\ ; / , $tmp j>Wire_Assignrnents) ; 

foreach $block_command (@blocking_commands ) 

{ 

$block_command =~ s/ A ( . *? ) \< ( \= . *?) $/$l : $2 ; /s ; 
&Convert_Signals„To_Shared__Variable ($1, $Signal_List ) ; 
$machine_generated_commands . = " $block_command" ; 

} 

$ 1 ine = $machine„generat ed„commands . $ 1 ine ; 
############### 

# Now we'd like to translate all left hand side arguments in the 

process 

# into tmp names. Unfortunately, we only know what's in this line, 

not 

# what is in the entire process. So for each chip design, we put a 

non-vhdl 

# sentence that says "Please Convert $signal_name To A Variable" in 

$line . 

# We'll do the conversion later. 

while ($lhs =~ s/ Yb{ [a-zA-Z] \w*) \b// ) 
{ 

$line .= "Please Convert $1 To A Variable"; 

} 

} 

else {$$pWire_Assignments .= $tmp_jpWire_Assignments ; } 

if ($af ter__line ne 11 11 ) 
{ 

$line =~ s/\;\s*S//s; 

return ( " $line $af ter_line; " ) ; 

} 

else 
{ 

return ( " $ line 11 ) ; 

} 

} 

else 
{ 

return " " ; 

} 

} 

sub Ge t_Exc lus ive_VHDL_Name 
{ 

my ($name, $List) = @__; 
$name tr/A-Z/a-z/ ; 

#First make $name into a vhdl acceptable name 
#warn "eatme 2, $name\n" 
#if ($GLOBAL_DEBUG) ; 

#Say goodbye to everything that is not a word character in name, 
while ($name s/\W+//){;} 

#Convert spaces to underscores 
while ($name =- s/\s+/\_/s) { ; } 



#But not too many underscores, vhdl will not let you have two underscores 
in your name or 

#any underscores at either end 
while ($name =~ s/ (\_) {2, }/\_/s) { ? } 

while (Sname =~ s/~\_+ ( . *? ) \_+$/ $1/ ) { ; } 

#vhdl does not like names to begin with numbers 
$name =~ s/ A ( \d) /number_$l/ ; 
#warn " eatme\n" ; 
#warn "IN GETXNAME \ n " 

# i f ( $GLOBAL_DEBUG ) ; 
while {$$List {$name} ne " 11 ) 
{ 

#warn "G_E_N name $name already taken. Trying tmp„$name\n" 
# i f ( $GLOBAL__DEBUG ) ; 
$name = " tmp_$name " ; 

} 

#warn "G„E__N name $name not taken. \n" 

# i f ( $GLOBAL_DEBUG ) ; 

#Keep Place holder at this name. 
$$Iiist{$name} = "Taken"; 
return ($name) ; 

} 

############################################################################### 
# 

# Convert_Integers_To_Std_IiOgic_Vector 
# 

# Convert Jntegers_To_Std_Logic_Vector takes left, operator, right as inputs. 

# If left/right are integers, it converts them to a bit vector. 

# If the widths of left or right is not known, it sets the unknown width equal 
to the known width. 

# (Perhaps it should not do this?) 
# 

# It does not use the operator now, but it maybe useful later. 

sub Convert_Integers_To„Std_Ltogic_Vector 
{ 

my { $lef t , $operator , $right , $Width_List , $Equivalence_List ) - @_; 
my $left_width = &Width__Of ($lef t , $Width_List) ; 
my $right_width = &Width_Of ($right , $Width_jbist ) ; 

#Check that widths are equal if both are known. 

if { ($left_width) ($right_width) ) 

{ 

if ($left__width != $right_width) 
{ 

my $tmp_left = &Replace_Equivalences ($lef t , $Equivalence_List) ; 
my $tmp„right = &Replace_Equivalences ($right , $Equ.ivalence_List) ; 
#warn ("WARNING EXPRESSION ($left $operator $right) \n" 

#." WIDTH OF $tmp_left ( $lef t_width) 1= WIDTH OF $tmp_right 
($right„width) !\n") ; 
} 

} 

else #Warn if neither width is known. 
{ 

if ( ! ($left„width || $right_width) ) 
{ 

die ( M CV2SIiV VECTOR WIDTHS { $lef t_width) { $right_width) UNKNOWN FOR 
EXPRESSION ARITHMETIC OPERATION ($2) ($3) ($4)\n n ); 
} 

else #If only one width is known, convert the unknown width. 



{ 

if (Sleft_width) #right width is unknown. 

with width $ifft ( Sd g t h h = ~ //VXs *^ d+ >^*$/s> dumber => verilog decimal number 
{ 

f^„-" rl ?? t * W±d ^ h ±S unknown - left width is $ left widthXn" 
# sending $lef t_width\ • d$l to VN2BS" ) • " ^ n • 

^ $rxght = &VN2BS ( » $lef t_width\ • d$l" ) ; 

} 

else #left width is unknown. 

with width $rfghl!_wfdV~ /nS * (Nd+)Xs ^ /s > dumber => verilog decimal number 
{ 

. ( " le f w ; dth is unknown, right width is $right width\n« 
#" sending $r ig ht_width\ ' d$l to VN2BS" ) • -^yxic_wiatn\n . 

^ $left = &VN2BS("$right_width\'d$l") ; 

} 

} 

} 

#Now determine the proper width. 
#take max 

my $max_width = $right_width; 
$max_width = $left_width 

if ($left_width > $right_width) ; 

return ($max_width, $l e f t, $right) ; 

# Replace_Equivalences 

# Replaces all tmp names in Equivalence List. Since some nam,, 

# for ,„ explanation of th^^'iic^* **' t ° I ' > ™™-*»"«l<»> 

sub Replace_Equivalences 
{ 

my ($string,$Ec^ivalence__List) = @ • 
my $new_string; ~' 
my $replacement_value; 
while { $string ne Ir " ) 
{ 

if J$string =~ s /~ ( [ \w\ - \ ■ \d] + ) // s ) {$new string = Sl-next-l 
if ($strmg =~ s/-(\w+)// s ) ~ H,next ' } 

my $word - $1 ; 

$replacement_value = $$Equivalence_List {$word} ; 
if ($replacement_value eq »") 

$new_string .= $word; 

else 
{ 

my a 
& Replace_E g uivalences ( $ re P lacement J^^^-^value 

$Eguivalence_List) ; 

############### 



#parentheses get replaced if there is additional replacement levels 
#inside the parentheses, e.g. verilog statement 

# Ca+b) => (binary) => parentheses. 

# When replacing, 

# parentheses => (binary) => (a+b) 
# 

# (a) => parentheses 

# When replacing 

# parentheses => a //no parentheses 

if ( ($word =~ /parentheses /i ) && 

($$Eguivalence„Iiist{$replacement_value> ) ) 
{ 

$new_replacement_value = " \ { $new„replacement_value\ ) " ; 

} 

$new_string .= $new_replacement_value ; 

} 

} 

> 

return ( $new_string) ; 

} 

sub Vestigual_Replace_Equivalences 
{ 

my ($ string , $tmp_Equivalence„List) - 

my %Equivalence_List = %$tmp_Equivalence_List ; 

my $values_jwer exchanged = 1; 
while ($ value s_were_changed) 
{ 

$values_were_changed = 0; 

foreach $key (keys (%$Equivalence__Ijist) ) 

{ 

my $value = $$Equivalence_List{$key} ; 

#Put parentheses around value if key was parenthesized 
#And it needs it 

if ( ($key =~ /Parentheses/) && ( $$Equivalence_List { $value} ) ) 
{$ value = "\ {$ value \) " ; } 

while ($string =~ s/\b$key\b/$value/ } 
{ 

Iwarn "key is $key\n value is $value\n string is $string\n" ; 
$values_were_changed = 1 ; 
undef $$Equivalence_Iiist {$key} ; 

} 

} 

} 

#Now crush parentheses around single objects 

#while ($string =~ s/\ ( ( [\sa-zA-z\" \ 1 ] [\s\w\" \ » ] *) \) /$l/s) C ; } 

#warn "Replace^Equivalences , done, string is $string\n" ; 
return ($string) ; 

} 

############################################################################### 
# 

# ReadMem takes a verilog $readmem(b | h) (<f ilename> / <memory>) 

# instruction and then hardwires _memory_ to the values in _filename_. 

# This isn't as flexible as a true conversion of readmem would be (<filename> 

# could be parameterizable and be different for multiple instances of the 

# same module. In the future, this should be replaced with a real vhdl 



# equivalent, but it is so much, easier to parse filenames with perl than with 
vhdl 

sub ReadMem 
{ 

my ( $mem_radix, 
$ da t_f ilename , 
$mem_name , 
@Module_Info) = @_; 

my ( $Width_Lis t , 
$Signal_List , 
$pWire_Assignments , 
$Equivalence_List) = @Module„Inf o; 

my $return_string; 

my ($left, $right, $up, $down) = split (/\s*\ , \s*/s, $$Width_List ($mem_name} ) ; 
my ( $ width) = &Width_Of ( $mem__name , $Width__List ) ; 
open (DAT, "< $dat_f ilename" ) or 

open (DAT, "< nios_system_sim\/$dat_f ilename" ) or 
die "Cannot open $dat_f ilename ($!)\n n ; 
my $dat_contents; 
while (<DAT>) 
{ 

if (s/^(.*?)\/\/.*$/$l/) {;} 
$dat_contents . = $_ 

unless (/ /v \s*$/s); 

} 

close (DAT) ; 

my @Address„Data_Pairs = split (/\@/, $dat_contents) ; 

foreach $address_data (@Address_Data_Pairs) 

{ 

my ($address, @data) = split { / \s+/s, $address_data) ; 
twarn "address is $address. data is @data\n" ; 
my $integer_address = eval ( " Ox$address M ) ; 
foreach $datum (@data) 
{ 

if ($mem__radix eq "b") 
{ 

$datum = " \ " $datum\ " " ; 

> 

else 
C 

$datum = &VN2BS ( " $width\ ' $mem__radix$ datum" ) ; 

} 

$return_string .= " $mem_name ( $integer_address) <= $datum; \n" ; 
$integer_address++; 

} 

} 

return ( $return_string) ; 

} 

############################################################################### 
# 

# Pr oce s s_Do 1 1 ar_Ver i 1 og_S tat emen t s 
# 

# Converts verilog $readmemb / $readmemh and $write statements 

# to the appropriate vhdl equivalent 
# 

sub Process__Dollar_Verilog__Statements 



10 



my ($ equation , @Module_Inf o ) = 

my ( $Width„List , 
$Signal_JList , 
$pWire_Assignments , 
) = @Module_Info; 

my $return_string; 



if ($equation =~ 

/^\s*\$readmemCb|h) \s*\ { \s*\ " \s* ( \S+) \s*\" \s*\ , \s* ( \w+) \s*\ ) \s*\ ; \s*$/is) 
{ 

my ( $mem_r adix , $ da t__ f i 1 ename , $mem_name ) = ( $ 1 , $ 2 , $ 3 ) ; 
15 return (&ReadMem( $mem_radix, 

$ da t_f i 1 ename , 
$ mem_n ame , 
@Module_Inf o 
) 

20 ); 

} 

if ($equation =~ /^\$write\s*\ (\s*\" ( . *?) \" \s*\ , \s* { . *?) \s*\> \s*\; /is) 
{ 

my ($ quo t e, $ values} = ($1,$2); 

25 

my @values_array = split (/\s*\ / \s*/s / $values) ; 

my @string_array = (""J; #put null in first spot and index from 1 
$string__length 

my $string_length = 0; 
30 while ($quote) 

{ 

$string__length++ ; 

if ($quote =» s/ A ( [\%\\] \w) //) 

{ 

35 die "ERROR \$$equation ONLY \%c IS CURRENLTY SUPPORTED AS DATA 

TYPE! \n" 

unless ($1 =~ /\%c/i) ; 
push 

(@string_array, "character ' val ( CONV„INTEGER { " . shif t (lvalue s_ar ray) ."))"); 
40 } 

else 
{ 

$quote =~ s/ "(.)//; 

push (@ s tring__array, " \ ' $1\ 1 " ) ; 

45 } 

} 

# make a string signal of width $string_length 

my $ s t r ing„name = ScGe t_Exclus ive_VHDL_Name ( " s tr ing__ name " , $Width__Li s t } ; 
$$Signal„List{$string_name} = "SIGNAL $string_name : STRING (1 TO 
50 $string_JLength) ; " ; 

$$Width__List{$string_name} = "1 , $string_length" ; 

#warn "string_array is @string_array\n" ; 
foreach $index ( 1 . . $string_length) 

55 { 

$return_string .= " $string_name ($ index) <= 

$string_array [$index] ; \n" ; 
} 

$return_string .= " write (output, $string_name) ; \n" ; 
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return ($return_string) ; 

} 



die "ERROR Process_Dollar_Verilog_Statements , STATEMENT ($equation) NOT 
UNDERSTOOD \n" ; 
} 

sub V2VHD_Equation_Wrapper 
{ 

my ( $equation, @Module_Inf o) = 

my ($Width_List, 
$Signal_List , 
$pWire„Assignments , 
$Equivalence_List) = @Module_JInf o ; 

my %E_List; 

my $pE_List = \%E_List; 
$pE__List - $Equivalence_List 
if ( $Equivalence_List ) ; 

my $string = &V2VHD_Equation (@_, $pE„List) ; 
$string = &Replace_Equi valences { $string, $pE_List) ; 

#Undef the tmp names so that we can use them again next time 
#Do not undef if $Equivalence_List was non-null because 
#we've been recursively called, 
if ( ! $Equivalence_List) 
{ 

foreach $key (keys (%pE__List) ) 
{ 

#undef ($$WidthJList{$key} ) ; 
$$Width_List{$key} = 

} 

} 

#kill std_logic_vector ' on lhs concatenations 
while ($string s/ A \s*std„logic_vector\ 1 //s) { ; } 

#convert assignment operator to <= 
$string =~ s/\={l}\s*/\<\= /s; 

Iwam " Final Answer: $string\n" ; 
return ($string) ; 

} 

############################################################################### 
# 

# Replace 
# 

# Replace replaces a complicated expression with a simple exclusive name. 

# See V2VHD_Equation comment . 

# e.g. 

# ^Replace ("foo = a + b" , 4, @Module_Inf o) ; 

# would get an exclusive name for foo, set 

# $Equivalence_List{5cGet_Exclusive_Name(foo, $Width__List) } = a + b; set 

# $Width„List {<the exclusive name for foo>}= 4 

# and return the exclusive name for foo so that V2VHD_Eguation can substitute 
it 

# into equations. 

sub Replace 
{ 

my ($ equation, 
$width, 

@Module_Info) = @„; 



my ( $ Wi dt h_L i s 1 7 
$Signal_Juist , 
$pWire__Assignments , 

$Equivalence_List } = @Module_Inf o; 

5 

#die 11 ERROR Replace: width, is ($width) in equation ($equation) \n" 
#unless $width; 

my ($replacement_name, @tmp_replacement_value) = split 

(/\s*\={l}\s*/s,$equation) ; 
10 my $replacement_value = join { " = " , @tmp_replacement_value) ; 

$ r ep 1 ac ement„name = 
&Get_Exclusive_VHDL__Name { " $replacement_name" , $Width_List) ; 

$$Equivalence_List { $replacement_name } = $replacement_value; 
$$Width_List{ $replacement_name} = $width; 
15 return ($replacement__name) ; 

} 

############################################################################### 
# 

20 # Find_In_Order 
# 

# searches $equation for each term in a "|" separated regexp. 

# searches in order and returns the first exp that matches. 

# returns a \ escaped string so that $equation can be 
25 # patterned matched. 

sub Find__In__Order 
{ 

my ($ equation , $ regexp) = 
30 $regexp =~ s/ ( | ] ) $/$l | /s ; 

my $tmp„regexp = $ regexp ; 
my $exp; 

while ($tmp_regexp =~ s/ A ( . *? [*\\] ) \ | // ) 
35 { 

$exp = $1; 

#warn "FIO looking for ($exp)\n" ; 

if ($equation / ($exp) /) 

{ 

40 $exp = $1; 

#wam "FIO found ($exp} IN EQUATION ( $equation) \n" ; 
last ; 

} 

} 

45 die " ERROR Find_In_Order : ($regexp) NOT FOUND IN ( $equation) \n" 

unless ($exp ne " " ) ; 
$exp =~ s/(\W)/\\$l/gs; 
return ($exp) ; 



50 



} 



############################################################################### 
# 

# V2VHD_Equati on 
# 

55 # Verilog and VHDL have similar operators, but of course they are 

# different because as Buddah says, "Life is Suffering". 
# 

# Fortunately, since the operators do pretty much the same thing, we 

# dont have to evaluate too many verilog expressions. For most 

60 # operators, we just need to translate verilog arithmetic into vhdl 

# arithmetic. 
# 

# Verilog and vhdl handle numbers differently, so we need to convert 



# numbers from verilog (32,4'hF,0) into their corresponding vhdl 

# std_logic_vector bit strings "10000 "," 1111" , " 00 " . We also need to 

# determine the bit width of the number. We do that based upon the 

# closest known width operating on the number, i.e. (foo[4:0] — 0) 
5 # means 0 probably has width of 5 . 

# 

# VHDL really like "types" and that gets us in a little trouble. A 

# naive translation of the verilog expression: 



# wire counter_ne_zero = i (counter [3 : 0] == 0) 
10 # Would be: 

# SIGNAL counter_ne_zero: STD__LOGIC; 

# counter_ne_zero <= NOT (counter (3 DOWNTO 0) = "00 00 11 ) 
# 



# Unfortunately, the result of (counter (3 DOWNTO 0) =0) is type 

15 # boolean, not std_logic. If there were an easy way to type change a 

# boolean to std_logic, it would be easy to say: 

# counter_ne — zero <= NOT {To_std_logic (counter (3 DOWNTO 0) = 
"0000") ) 

# 

20 # But I have not found an easy way to do so. To work around this, I 

# declare a tmp signal tmp_counter_ne_zero . (I make sure this signal 

# isnt already used by someone else first.) It gets assigned to using 

# the vhdl WHEN, ELSE statement: 



# SIGNAL tmp_counter_ne_zero : STD_LOGIC_VECTOR (0 DOWNTO 0) ; 

25 # tmp_counter_ne_zero <= "1" WHEN (counter (3 DOWNTO 0) = " 0000" ) ELSE 
" 0 " ; 

# — Now we are back in happy std_logic_vector land: 

# count er_ne_zero <= NOT ( tmp_counter_ne„zero) ; 
# 



30 # All types are converted to STD_LOGIC_VECTOR inside the Entity (VHDL for 
module) 

# We convert types to/ from STD_LOGIC at the beginning and end of the entity. 

# e.g. 

# module foo(c); 
35 # output c; 

# //more verilog code here 

# endmodule 
# 

# turns into 

40 # ENTITY foo IS 

# PORT { 



# SIGNAL a : IN STD_LOGIC; 

# SIGNAL b : INOUT STD_L0GIC; 

# SIGNAL c : OUT STD„L0GIC; 
45 # ); 

# END foo; 

# ARCHITECTURE behavior OF foo IS 

# SIGNAL tmp_a : STD_LOGIC„VECTOR ( 0 DOWNTO 0) ; 

# SIGNAL tmp_c : STD_LOGIC_VECTOR ( 0 DOWNTO 0) ; 
50 # — INOUT signals are kept as STD_LOGIC_VECTOR 

# --other signals here 

# BEGIN 

# --verilog code translates to vhdl here 

# c <~ tmp_c (0) ; 
55 # tmp_a(0) <= a; 

# END behavior 



# 

# IMPORTANT IMPORTANT 

# INOUT STD_LOGIC_VECTOR (0 DOWNTO 0) signals are not converted to STD_LOGIC 
60 # INOUT signals are not so easy to convert to STD_LOGIC 

# sometimes the INOUT signal looks like an output 

# sometimes its an input. Eventually, I could declare two tmp_signals. 

# Convert the signal on the rhs of all equations to be the input version 



# signal and convert all signals on the Ihs to be the output signal. 

# Determine what signal is driving. Then say: 

# inout_signal = (Driving) ? tmp_output_inout : l'bz; 

# tmp_input_inout = inout_signal . 

5 # For now you'll just have to deal with a STD__LOGIC(0 DOWNTO 0) INOUT. 

# Everything instantiating the module will hook up to it correctly. 

# END IMPORTANT IMPORTANT 
# 

# V2VHD_Equation can recursively and iteratively call itself . 
10 # The main idea is that complicated expressions 

# can be turned into simpler expressions through replacing 

# expressions with exclusive words. (see subroutines Replace and 
Replace_Equivalences ) 

# Converting an expression with V2VHD_Eguati on simplifies th 
15 # e.g. 

# verilog: c <= a + b + |c; 

# Gets turned into 

#1) c <= a + b + reduction; // $Equivalence__Iiist{ reduction} - 

" (c(msb) or c (msb - 1) ... or c(lsb))" 
20 # //$Width_List{reduction} 1; fas if 

reduction were a verilog signal . 

#2) c <= addition + reduction //$Equivalence_List {addition} = "a + b" ; 

# //$Width_List {reduction} 
max (width (a) , width (b) ) + 1; 

25 # 3} c <= tmp__addition //$Equivalence_JList {tmp_addition} = addition 

+ reduction; 

# //$Width_List{ reduction} 
max ( width ( addi t i on ), width (reduction ) ) + 1; 

# 

30 # V2VHD would then return c <= tmp_addition 

# V2VHD„Equation„_Wrapper is the top level call to V2VHD_Equation . calls 
ScReplace_JSguivalences after 

# V2VHD__Equation. Replace^ Equivalences will replace every 
35 key (%Equivalence_List ) with $Equivalence_Jjist { $key} . 

# Using c <= tmp_addition from the example before. Replace_Equivalences will 
do: 

# 0) c <- tmp_addition 

# 1) c <= addition + reduction; 
40 #2)c<=a+b+ reduction; 

#3) c <= a + b + (c(msb) or c (msb - 1) ... or c(lsb)); --voila, a valid vhdl 
equation 

sub V2VHD_Equation 

45 { 

my ($equation, 

@Module_Info) = @_; 

my ($Width — List , 
50 $Signal_List , 

$pWire_Assignments , 
$Eguivalence_I/ist) = @Module_Inf o; 

my $ width; 
55 my $left; 

my $ right; 

while (Sequation =- s/\s+//sg) {; }; 

#Convert all verilog numbers to equivalent word name. 
60 while ($equation =~ s/ (.*?>( \d+\ ' [bodh] [ \da-fxz] +)(.*) /$l/si) 

{ 

my ($replace_this) = &W2BS($2); 
$width = &Width„Of ($2, $Width_List) ; 



$replacement_name = ^Replace { "Verilog_Number 

$replace_this" , $ width, @Module_Info) ; 

$equation .= " $replacement_name $3"; 

#warn " verilog number equation now is $equation\n" ; 

} 

#Convert vector [max__index:min_index] to equivalent word name, 
while ($equation =~ s/* (. *?\b) ( \w+) \s* ( \ [(,*?) \ ])(.*) /$l/s) 
{ 

my $replace_this = $2 ; ; 

($replace_this, $lef t, $right) = &Vector_Range ( " $2 $3 ,f , $Width_List } ; 
my $rest - $5; 
#Worry about memories 

my ($l,$r, $up,$down) = split { As*\ , \s*/s , $$Width_List {$2 } ) ; 

if ($up ne " ") 

{ 

#It ' s a memory 

#warn "equation is $equation\n" ; 

warn " \nVERILOG TO VHDL CONVERSION; " . &date_time . " USING MEMORY 

$2\n" ; 

$replace_this . = " (CONV_INTEGER (unsigned { $4) ) ) " ; 
($left,$right) = ($l,$r); 

} 

else 
{ 

$right = Sleft if ($right eq " " ) ; #If only one value, 
#$replace_this .= &Vector_Order$lef t , $right ) ; 

$replace_this .= " [$lef t : $right] " ; #we 1 11 change vector order when we 

# r eplace__equi val enc e s 

} 

#warn "in brackets, { @Module_Inf o) \n" ; 

$replacement_name = ScReplace ( "Verilog_Bracket 

$replace_this" , " $lef t , $right " , @Module_Inf o) ; 

$equation .= " $replacement_name $rest" ; 



#WRONG WRONG WRONG WRONG WRONG 
#THE ORDER BELOW IS WRONG 

# Now the order of operators we have (according to verilog 13 64 and Samir 
Palnitkar's book) 

# to handle are 

# 1) Parentheses, Replecation and Concatenation 

# 2) Unary (+,-, ! ,~) 

# 3) Multiply, Divide, Modulus (*,/,%) 

# 4) Add, Subtract, Shift ( + ,-), «, » 

# 5) Relational (<, <=, >, >=) 

# 6} Equality <==, 1=) 

# 7) Binary Bitwise 

# 8) Logical (&&, | | ) 

# 7) Reduction (&,*,|) 

# 9) Conditional (?:) 
#10) Assignment (=) 

#WR0NG WRONG WRONG WRONG WRONG 

#THE ABOVE ORDER IS WRONG 

#AND IS A BUG IN THE 1364 spec. 

#SEE THE FOLLOWING POST FROM ALT . COMP . LANG . VERILOG 

#.♦. Based on the information obtained from "private sources" (a member 
#of the 13 64 WG) I concluded that the TAble 4-4 is, indeed, 
#wrong, and, maybe, the table in Thomas and Moorby 2nd is not 



#right , ei ther . 

#ALL unary operators have precedence higher than ANY binary operator, 
#while the precedence among unary operators is non-essential. 
#So r Table 4-4 gives erroneous precedence for ~& and -| UNARY 
5 #operators placing them where such BINARY operators should have 

#been had they existed. It is still to be determined whether 
#binary ^-/^ has the same precedence as & (T&M) or lower (IEEE 
#Draft) , and that can be easily accomplished with Verilog-XL 
#which I'm going to do shortly. 
10 # 

#Regards to all , 
#Sergei Sokolov 



15 my $unary_operators = 1 \+ | \- | \ ! | \~ ' ; 

m y $reduction„operators 

'\&{1}|\~\&{1} |\^tl>I\-\^Cl->| \^\~£1> | \ Ul> i \~\ itl> 1 ; 

my $all_unary__operators = join ( ' | ' , $unary_operators , $reduction_op era tors) 
my $relational_equality_operators = ' \<\= | \< | \>\= | \> | \={2 } \ \ I \ = * ; 
20 my $arithmetic_operators = '\*|\/|\+|\-'; 

my $binary_bitwise = ' \&{1} | \" {1} \ \ | (D | \~\" I \^\- ' ; 
my $shift_operators = ' \<\< j \>\> * ; 

#It r s a pain to differentiate between \&\& and \&, so change 
25 #logical operators to something easier to discern. The % marks 

fare the verilog escape character, so we know some verilog typer 

#won't accidentally type v ANET accidentally. 

while ($equation =~ s/\&{2} /VANDW ) { ; } 

# Similar argument for | | 
30 while ($equation =~ s/\ | {2} / VORV /) { ; } 

my $logical_operators = 1 x ANTT | N OR" 1 ; 

#1 also hate those === and !== operators which (for all synthesizable 
#code does just the same thing as == and != 
35 while ($ec[uation =~ s A I \={2} A ! W) { ; } 

while ($equation =~ s/ \= {3 } A = W ) { ; } 



40 



my 



$binary_operators_with_same_width__operands__and_shif t_operators = join 



CI'' 

$arithmetic_operators , 



$binary_bitwise , 
$ shif t_operator s , 



45 $relational_equality__operators , 

$ logical_operators 
) ; 

50 my $operator_order = join ( ' | ' , $all_unary_operators, 

$binary_operators_with_same_width„operands_and_shif t„operators, 
$logical„operators) ; 

55 # la) PARENTHESES 

{ 

my ($bef ore_paren, $inside_paren, $af ter_paren) 

&Count_Parentheses ($equation) ; 

while ($inside_^paren ne " 11 ) 
60 { 

############### 

# if there is one or more operators inside the parentheses, then 
process it (them). 



# Otherwise strip the parentheses and continue. 

# i.e. (counter - 1), process it. 

# (counter) , return counter 
if ($inside_paren =~ /$ opera tor_prder/ ) 

{ 

#warn "replace„this found ( $inside_paren) in ($ equation ) \n" ; 
#Recurse equation (DAMN DAMN equation!); 

my $replace_this = &V2VHD_Equation ( $inside_paren, @Module_Info) ; 
#warn "Parentheses converted ( $inside_paren) to ( $replace_this ) , 
($$Width__List{$replace_this}) \n" ; 

die "ERROR V2VHD_Equat ion: replace_this returned ( $replace_this) \n" 

unless ($replace_this =~ s/ A \s* (\w+) \s*$/$l/s) ; 
my $replacement_name = ^Replace (" Parentheses = $replace_this " , 

$$Width_List{$replace_this} , 
@Module_Info) ; 

$equation = " $bef ore_ paren $replacement_name $after_paren" ; 
twarn "equation now is $equation\n" ; 

} 

else 
{ 

#warn " parentheses, no operator f ound\n" ; 
#put parentheses around 

$equation = " $bef ore_jparen $inside_paren $af ter__paren" ; 

} 

( $bef ore_paren, $inside_paren, $af ter „paren) 

&Count_Parentheses ($equation) ; 

Iwam " parentheses equation now is $equation, width is $width\n" ; 

} 

} 

# lb) REPLECATION AND CONCATENATION 
t 

#Replicate first 

#warn " replecation equation was $equation\n" ; 
while ($equation =~ s/ A { . *?) \{\s* (\d+) \s* (\{ . *) /$l/s) 



my $bef ore_curly_brace = $1; 
my $repeat_number = $2; 

my ($b,$m, $e) = &Count_Paren theses ( $3 , ' \s*\ { 1 , ' \ } \s* ' ) ; 

#warn "bme is ($b) , ($m) , (Se) \n" ; 

$m = (" $m\," x $repeat_number) ; 

$m =- s/\,\s*$//s; #lose last comma. 

$e =~ s/~\s*\}//s; 

$equation = " $bef ore_curly_brace $b\{$m\}$e"; 
iwam 11 replecation equation now is $equation\n" ; 



#All other curly_braces ({,}) {including the replecation we handled 
above) are concatenation 

my ( $bef ore_curly_brace, $inside_curly_brace, $af ter__curly_brace) 

&Count_Parentheses ($equation, 1 \ { * , ' \} * ) ; 

while ($inside_curly_brace ne " " ) 

{ 

#warn "BPC ( $inside_curly_brace) \n" ; 
#warn %$Width_List ; 

my $replacement_name = &Process_Concatenation 

( " \ { $inside_curly_brace\ } " , @Module_Inf o ) ; 

$equation = " $bef ore_curly_brace $replacement_name 

$af ter_curly_brace" ; 

( $bef ore_curly__brace , $inside_curly__brace , $af ter_curly__brace ) 
&Count__Parentheses ($equation, ' \{ ' , 1 \} 1 ) ; 
} 



# 2) UNARY OPERATORS 

{ ########################################################«#* 

# In addition to the normal unary operators 

# Verilog has these weird but useful unary operators called reduction 
operators 

# a = |foo[3:0] => a = foo[3] | foo[2] | foo[l] | foo[0] ; 

# It turns out that these operators are quite useful. 

# However it is difficult to distinguish between the unary reduction 
operator 

# and the binary "or" operator. a = c | foo or a = c + | f oo looks quite 
like a = | f oo . 

# Here is how we differentiate. If the first non spaced character before 

the possible , 

# reduction character is a word <\w) then consider it a binary operator. 

If it is a , . 

# non word character, consider it a unary operator. This is good even 

for equations with 

# parentheses because we've already converted parentheses to words. 

# Consider: a = (c + b) 1 foo 

# Above, we've already converted (c + b) to tmp_parentheses so the 

equation we see is 

# a = tmp„parentheses | foo //binary or 

# 

while ($equation =~ / ( $all_unary„operators) / ) 

{ my $operator = &Find_In_Order ($equation, $all__unary_operators) ; 

last unless ($equation 

s/ A ( . *? [ A \w\s] ) \s* ($all_unary_operators) \s* (\w+) (\s* . *) /$!/ s \ \ 

$equation -~ 
s/^CXs*) ($all_unary_operators) \s* (\w+) (\s*.*) /$l/s) ; 
my $beginning = $1; 
$operator = $2; 
my $name = $3; 

$width = &Width_Of ($name, $Width_List) ; 
my $rest = $4; 
my $replace__this ; 

if ($operator =~ / A $unary_operat or s $ / ) 
{ 

if ($ operator eq " \ ! " ) 

if ($width == 1) {$replace„this = " (NOT $name) " ; } 
else{$replace_this = "\<$name \= \"".("0" x $width) . " \ " \ ) " ; } 
$ width = 1; 

} 

else 
{ 

$operator =~ s/WNOT/; 
$replace„this = "($operator $name) " ; 

} 

} 

else 
{ 

my $value_to_r educe = $name; 

my $reduction_operator = $operator; 

$reduction_operator = "OR" if ( $reduction_operator =- /*\\ {!}$/) ; 
$reduction_operator = "AND" if { $reduction_operator =- / A \&{1}$/); 
$reduction_operator - " NOR" if ( $reduction_operator 
/*\~{l}\| {1}$/) ; 



$reduction_operator = " NAND " if ( $reduction„operator 

/*Wl}\&{l}$/> ; 

$reduction_operator = "XOR" if ( $reduction_operator =~ 

$reduction_operator = "XNOR" if ( $reduction_operator 
/ A \"{l}\~$/> ; 

$reduction_operator = "XNOR" if ( $reduction_operator 

my ( $value_to_reduce, $vec__lef t , $vec_right) 

&Vector_Range ( $value_to_r educe , $Width„List ) ; 
if ($vec_right ne "") 
{ 

#We can just expand the bit vectors if width is left, right 
because reduction is simple i.e. |a 

( $replace_this , $tmp) 
&Expand_Array_Of_Bit_Vectors_Into_Separated_Bits ( " $reduction__operator" , 

$value_to_reduce , 

@Module_Info) ; 

} 

else 

#else it's not so simple, so generate a signal = to rhs and 
i then reduce the signal 

fwarn "reduction operator $reduction_operator , vtr $vtr, 

$tmp_width\n" ; 

#We need to first make an intermediate signal since there is an 

operator inside 

) my ($new_signal_name) = ScAdd_Intermediate„Signal 

("reduced„$reduction_operator = $value_to_reduce" , 

1, 

@Module_Info) ; 
($replace_this, $tmp) - 
5 &Expand_Array_Of_Bit_Vectors_Into_Separated_Bits(" $reduction_operator" , 

$new_signal_name , 

@Module_Info) ; 

0 } 

#Turn indexed bits into bit array of size 1 
while ($replace_this =~ s/\ [\s* { \d+) \s*\] /\ [$1 : $1\] /s) { ; } 
$width = 1; 

$replace_this = " ( $replace_this) " ; 

45 } 

my $replacement__name = &Replace ("unary = $replace__this" , 

$width, 

@Module_Info) ; 

50 $equation .= " $replacement_name $rest"; 

} 

> 

# 3,4, BINARY OPERATORS 

55 # 5,6 RELATIONAL (<, <=, >, >=) AND EQUALITY (==,!=) 

# AND LOGICAL 
{ 

#warn " pre-relational equation is $equation\n" ; 

#die "bowswop i 

60 $binary_operators_with_same„width„operands_and„shif t_operators\n" ; 
while ($equation 
/ ( $binary_operators„with„same_width_operands„and_shif t_operators) / s) 

{ 



my $operator = 

&Find„In_Order ( $equat ion , $binary_operators„with_same_width_operands_and_shi f t_o 
perators) ; 

die "BINAKY__OPERATOR ($operator) not found in ( {equation) \n" 

unless ({equation =~ s/ A ( .*?) (\w+) \s* ($operator) \s* (\w+) ( . *) /$l/s} ; 
my $lef t_operand = $2; 
$ operator - $3; 

#wam "operator now is $operator\n !l ; 
my $right_operand - $4; 
my $rest = $5; 
my $replace_this ; 

if (&Is_real ($lef t_operand) && &Is_real ( $right__operand) ) 
{ 

#warn " relational equation is real\n" ; 

#If both are real numbers, evaluate using perl's 

#binary operators . 

if ($operator eq " VANDV " ) 

{ 

if (($2 ==0) 1| ($4 == 0) ) {Sequation .= "0";} 
else {$ equation .= "1";} 

} 

else 
{ 

if ($operator eq "VORV" ) 
{ 

if (($2 1= 0) || ($4 1= 1) ) {$equation .= "1";} 
else {$equation .= "0";} 

} 

else 
{ 

my $evaluatedExpression = eval { " $lef t__operand $operator 

$right_operand" ) ; 

# Programming Perl p. 87: 

# 'The equal and not-equal operators return 1 for true, and 

" " for false 

# just as the relational operators do) . ' 

# Translate all forms of "false" to 0: 

$evaluatedExpression = "0" if ( ! $evaluatedExpression) ; 
$equation .= $evaluatedExpression; 

} 

} 

$equation .= $rest; 
next ; 



#shif t_operators operate on integers, all other operators need their 
integers to be converted to bit_ vectors. 

if ($operator =~ /~$shif t_operators$/ ) 
{ 

if (&Is_real ($lef t„operand) ) 
{ 

$replacement__name = eval "$ left __oper and {operator 

$right_operand" ; 

# Translate all forms of "false" to 0: 

$replacement_name = "0" if ( I $replacement_name) ; 

} 

else 
{ 

my ($name, $left , $right) = 

&Vector_Range {$lef t_operand, $Width_List) ; 

$width = &Width_Of ($lef t_operand, $Width_List) ; 
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TO SHIFT\n" 



AMOUNTXn 1 



die " ERROR V2VHD_EQUATI0N ($equation) HAS UNKNOWN width. UNABLE 
if ($left eq " " ) ; 

die " ERROR V2VHD_EQUATION ($equation) HAS NON- INTEGER SHIFT 

unless ($right_operand =~ s/*\s* { \d+) \s*$/$l/s ) ; 

if <$right eq " " ) 
{ 

$name = &Add_Intermediate_Signal ("shift = $lef t_operand" , 

$lef t_pperand_left_index, 
@Module_Inf o 



} 



$left — ; 
$right = 0; 



) ; 



############### 

#c [3:0] » 1 = c [3:1] ; 

#C [0:3] » 1 = c [0:2] ; 

my ©array = &Order ( $lef t , Sright) ; 
my $ zeros; 

while ( ($right_operand--) && ($width 1= 0) ) 

if ($operator eq " \<\< » ) { $zeros .= "0"; $width++; } 
else{ 

if ($operator eq " \>\> ") {pop ( ©array) ; $width— } 

else {die "ERROR V2VHD_EQUATION, UNKNOWN SHIFT 

ASSIGNMENT ($ operator) \n n ; } 
} 

} 

my $expand_this_string; 

if (©array) 

{ 

$left = $array[0]; 

$right = $array[-l] ; #last value in the array 
$expand_this_string = " $name\ [ $lef t\ : $right\] " ; 
if ($ zeros ne 11 " ) 
{ 

$expand_this_string . = " , \ "$zeros\" " ; 

#warn "sending $expand__this_string to EAOBVISB\n" ; 
($replace_this, $width) 
&Expand_Array_0f_Bit_Vectors_Into_Separated_Bits { " , 

$ expand_thi s_s t r ing , 
©Module_Info 

$replace_this = " std_logic_vector ' ( $replace_this ) \n" ; 

} 

else 
{ 

$replacement_name = " 0 " ; 

} 



} 

m Y $ replacement_name 

$replace_this" , $width, @Module_Inf o) ; 



ScReplace ( " shift 



$equation .= 11 $replacement_name $rest" ; 
next ; 

} 

5 if ($operator =- / /v $logical_operators$/ ) 

{ 

ioperator transforms 

#warn "found lo ( $lef t_operand, $operator , $right„operand) \n" ; 
$operator = "AND" if ($operator eq " \ % AND \ N " ) ; 
1° $operator = "OR" if { $operator eq "VORV"); 

$replace__this 

" ( " .&Process_If_Condition($lef t_operand, @Module_Inf o) . " ) $operator ( " 

.&Process_If_Condition($right_operand,@Module_Info) . " ) " ; 
$ width = 1; 

15 

my $replacement_name = &Add_In termed! a te_Signal ( " logical = \ " 1\ " 
WHEN ($replace_this) ELSE VOX"", 

$width, 

@Module_Info) ; 

$equation .= " $replacement_name $rest" ; 
next ; 

} 

25 #warn "calling CV2SLV ( $left_oper and, $ operator , $right_operand) \n" ; 

($width, $lef t_operand, $right_operand) 
&Convert_Integers_To_Std_Logic_Vector ( $lef t_operand, 

$operator, 

30 $right_operand, 

$Width_List, 

$Equivalence_List) ; 
35 if ($operator =~ / A $arithmetic_operators$/ ) 

{ 

# VHDL thinks c = a + b results in c__width = max (a_width / b„width) . 

# But that is clearly wrong. In reality, c_width 
max ( a_width , b_width ) + 1 . 

# So we use reconcile widths to give us signals (new_a,new_b) that 
have widths (a_width+l , b_width+l ) ; 

# We use reconcile known widths to get us a signal of the correct 

width . 

my $new_width; 
if ($operator =- /(\+|\-)/) 
{ 

$new_width = $width + 1; #Max_width from 
Convert__Integers_To_Std_Logic_Vector above . 

$lef t_operand = &Reconcile_Known__Widths ( 

$ le f t_operand , 
$lef t_operand, 
$new_width, 
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&Width_Of ($left_operand, $Width_List) , 

@Mo du 1 e_In f o 
) ; 

$right_operand = &Reconcile_Known_Widths { 

$ right_operand , 
$ r ight_operand , 
$new_width, 



&Width_0f ($right„operand, $Width_List) , 



@Module_Info 
) ; 

} 

if <$operator =~ A*/) 
{ 

$new_width = &Width_Of ( $lef t_operand, $Width_List ) + 
&Width_Of ( $right„operand, $Width_List ) ; 
} 

if ($operator =- /\//) 
{ 

$new_width = &Width_0f ($lef t_operand, $Width_Dist } 
&Width_Of ($right_operand, $Width_List) ; 
} 

#wam "worop is " . &Width„Of ( $right_operand, $Width_List ) . " , nw is 
$new_width\n" ; 

$ width = $new_width; 

twarn "width is ( $width) \n" ; 

#$replace_this = " $new_lef t_operand $operator $new_right_operand" ; 
$replace_this = " $lef t„operand $operator $right_operand" ; 
my $replacement_name = ^Replace ( "arithmetic 

$replace_this " , $width, @Module_Inf o) ; 

$equation .= " $replacement_name $rest" ; 
next ; 

} 

irelational operator transforms 

if ($operator =~ / A $relational_equality_operators$/ ) 
{ 

############################################################ 

# Convert boolean ( in) equality . Since the output of a conditional 

is a boolean 

# and we only understands std„logic, we need to replace the 
conditional with 

# a wire named something like tmp_std_logic . 

# Then we set tmp_std_logic <= , 1' when (condition) else 1 0'; 
# 

# N.B. In the future, since we convert everything to 
std_logic_vector , we might 

# be able to convert the boolean to std„logic_vector 

my $tmp__left = 

&Replace_Eguivalences ( $lef t_operand, $Equivalence„List) ; 

my $tmp_right 
&Replace_Equivalences ( $right_operand, $Equivalence_List) ; 

my $tmp_output_name ; 

twarn "operator ($operator) is relational_operator\n" ; 

if ($operator =~ s/\s*\={2 } \s*/ \= /s) { $tmp_output_name = 
" $tmp_lef t\_eg_$tmp_right" ; } 

if ($operator =- s | \s*\ ! Wl, 2} \s* | \/\= | s ) { $ tmp_output_name = 
" $ tmp_l eft \_ne_$ tmp_r ight " ; } 

if ($operator =~ /\s*\<\s*/s) { $ tmp_output_name = 
" $tmp_lef t\__lt_$tmp_right" ; } 

if ($operator =~ / \s*\<\ = \s*/s) { $ tmp_output_name = 
" $tmp_lef t\_le_$tmp_right" ; } 

if ($operator =- /\s*\>\s*/s) { $tmp_output_name = 
" $tmp_lef t\_gt_$tmp_right " ; } 

if ($operator =~ / \s*\>\=\s*/s ) { $ tmp_output_ name 
M $tmp_left\_ge_$tmp_right ,, ; } 

if ( $ tmp_output_name ) 



{ 

my $boolean = " $lef t_operand $operator $right_operand" ; 
$ tmp_output_name = &Add„Intermediate_Signal ( " $ tmp_output_name = 
\"1\" WHEN \{$boolean\) ELSE \"0\"" , 

@Module_Inf o) ; 



$equation . = " $tmp„output_name$rest " ; 
#warn "ton, ($ equation ) \n" ; 



} 

next ; 



} 



$operator 
$operator 
$ operator 
$operator 
$ operator 



"XOR" if ($operator =■ 
"AND" if {$operator =• 
"OR" if ($operator 
"XNOR" if ($operator = 
"XNOR" if ($ operator 



- / A \&$/) 

- / A \|$/) 
=~ /~\~\~$/) ; 



my $replacement„name = ScReplace ( "binary_operator 
$operator $right_operand" , 

$width, 

@Module_Info) ; 
$equation . = " $replacement_name$rest " ; 

} 

} 



= $lef t„operand 



CONDITIONAL ?: 

while <$equation =~ s/ (\s*) (\w+) \s*\?\s* (\w+) \s*\ : (\s*) / n $l$3 WHEN 
\ (" .&Process_If_Condition($2,@Module_Info) ,"\) ELSE $4"/sge) 
{twarn "found conditional ( $2 ) \n" 
;} 



# ASSIGNMENT 

# The following is copied very closely from the 
$binary_operators_with_same_width_operands case above 

# Assignment gets a little bit nasty because unlike verilog, VHDL requires 
that the left and right sides of 

# assignments be the same width. So we need to chop off or add bits to the 
right hand side of the assignment. 

# We do that in &Reconcile_Widths . 
{ 

my $tmp_eguation = $ equation; 

if ($equation =~ s/ A ( . *?) (\w+) \s* { \={1} } \s* (\w+) ( . *) /$1$2 $3/s) 
{ 

my $lef t_operand = $2; 
my $operator = $3; 
my $right_operand = $4; 
my $rest = $5; 

( $width, $lef t_operand f $right_operand) 
&Convert_Integers_To_Std_Logic_Vector ( $lef t_operand, 

$operator, 



$right_operand, 

$Width_List, 

$Equivalence_List ) ; 

twarn 11 lef t_operand, operator, right_operand, rest, width, 
replace_this IS $lef t_operand, $operator, $right_operand, $rest, $width, 
$replace_this\n" ; 

$right_operand = &Reconcile_Widths ( $lef t_operand, 



$ r i ght_oper and , 
@Module_Inf o 
) ; 

#warn " ro is $right_operand\n" ; 
toperator transforms 

#$replace_this = "$operator $right_operand" ; 

$equation . = " $right_operand$rest " ; #replace_this$rest" ; 

#warn " assignment equation now is $equation\n" ; 

} 

#We also need to match up lhs with values following ELSE statements 

#1 put a " N mark before all processed ELSE words to keep us from an 
infinite loop. 

#Again, we need to Reconcile_Widths . 

while ($equation 
s/M.*?) (\w+) (\s*\={l) . *?ELSE(\s+| ["V\w]}) (\w+) (.*)/$l/s) 

{ 

my $lef t_operand - $2; 
my $in__between - $3; 
my $right_operand = $5 ; 
my $rest = $6; 

( $width, $lef t_operand, $right_operand) 
&Convert„Integers_To_Std_Logic_Vector ( $lef t_operand, 



$right_operand, 

$Width_List, 

$Equivalence_List ) ; 

#warn " Conditional Assignment: lef t_pperand, injoetween, 

right_operand, rest, width, replace_this IS $lef t_operand, $in„between, 
$right_operand, $rest, $width, $replace_this\n" ; 

#Do the same width reconciliation deal as above, {if needed) 
$right_operand = &Reconcile__Widths ( $lef t_operand, 

$right_operand, 

@Module__Inf o 

) ; 

#in_between transforms 

$replace_this = " $lef t_operand $in_between \ * \ " $right_operand n ; 
$equation . - " $replace_this$rest *' ; 

#warn " ELSE assignment equation now is $equation\n" ; 

} 

# crush "marks 

while {^equation =~ s/W/g){;} 

} 

$equation =~ s/^\s* ( . *? ) \s*$/$l/s ; 
return ($ equation) ; 

} 

############################################################################### 
# 

# Reconcile_Widths and Reconcile_Known_Widths 
# 

# A big difference between verilog and vhdl is that verilog is more lenient 
when it 

# comes to width assignments. 

# eg. foo[7:0] = ook[3:0] => foo[7:4] = {0,0,0}; foo[3:0] = ook[3:0] 



# eg. foo[3:0] = ook[7:0] => foo[3:0] = ook[3:0]; 

# Not so for vhdl. It retires lef t„side_width = right_side„width. Thus this 
function. 

5 # Reconcile_Widths, takes as input a left and right operands. It forces the 

# right operand to the same width as the left operand. 
# 

# If the left operand width is smaller than the right operand width 

# Reconcile„Widths creates a signal_of_right_side_width <= right_side; 

10 # then sets left_side <= <signal_of_right_side_width) { (lef t_side_width -1) 
DOWNTO 0 ) . 
# 

# If the left operand width is bigger than the right operand width, 

# Reconcile_Widths creates a signal_of_right_side_width <= right_side, 

15 # it sets left_side <= std_logic 1 ( ' 0 ' x ($lef t_side - $right„side) , 
signal_of_right_side_width) ; 
# 

# eg. foo[7:0] = ook[3:0] becomes foo(7 DOWNTO 0) <= &V2VHD_Equation (foo[7:0] 
= {4'd0,ook[3:0] }) 

20 # 

# Reconcile_Widths wraps around Reconcile_Known„Widths 

# Reconcile_Known_Widths can also be used when one is comparing the right_side 
to a left_side 

# that is not in %$Width_I*ist . e.g. when instantiating a Module. 

^ 5 #####t####### # ### ############################################################^# 

t? # 

5 sub Reconcile_Widths 

3 { 

:30 my ($left_operand, 

- $ r ight_oper and , 

-I @Module_Info) = @_; 

my ( $Width_Iiist , 
=J35 $Signal_Iiist , 

1 $pWire_Assignments , 

3= $Eguivalence_List) = @Module_Info; 

[ my ($left_width) = &Width_0f { $lef t_operand, $Width_List ) ; 

"40 my ($right_width) = &Width_Of ( $right_pperand, $Width_List ) ; 

die "ERROR Reconcile_Widths: WIDTH OF ( $lef t_operand {" 
&Replace_Ep3zivalences($left_operand, $Equivalence_List ) . ")) NOT KNOWN! \n" if 
($left_width eq "") ; 

45 die "ERROR ReconcileJWidths : WIDTH OF ( $right_operand ( " 

&Replace_Ecaiivalences($right_operand / $Equivalence_List ) . »)) NOT KNOWN! \n" if 
($right_width eq " " ) ; 

re turn ( &Re c one i 1 e_Known_Wi dths ( $ 1 e f t _oper and , 
50 $right__operand, 

$left_width, 
$right_width, 
@Module_Inf o 
) 

55 ) ; 



sub Reconcile^ KnownJWidths 
{ 

60 my ($lef t_operand, 

$right_operand, 
$left_width, 
$ r ight_width , 



@Module_Info) - @_; 

my ( $Width._JList , 
$ S i gna l_Lii s t , 
$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o; 

#warn ( " RNW, $lef t_operand, 
# $ r ight_operand , 
#$left_width, 
#$right_width\n" ) ; 

#We may not know the left or right operand on pass 1, 

#die "Reconcile_Widths, left_width not known" if ($left_width eq ""); 
#die "Reconcile_Widths, right_width not known" if ($right_width eq " " ) ; 
return ($right_operand) if ($left„width eq " " ) ; 
return ( $right_operand) if {$right_width eq " " ) ; 

my $tmp_signal ; 

if ($left_width == $right_width) 

#warn " $lef t__operand has same width as $right_operand, returning\n" ; 
return ($right__operand) ; 

} 

else 

$tmp_signal = &Add_Intermediate_Signal 

("$left_operand\_$right_width\_bits„wide = $right_operand n , 

$ r ight_width , 
@Module_Info) ; 

} 

if ( $left_width < $right_width) 
{ 

#warn " RW: Iw < rw. \n" ; 

$right_operand = " $tmp_signal ( ($left_width - 1) DOWNTO 0)"; 

} 

if ( $left_width > $right_width) 
{ 

my $width_dif ference = $left_width - $right_width; 
my $filler = "VON*, " x $width_dif ference; 
my ($EAOBV, $junk) 

&Expand_Array_Of„Bit_Vectors_Into_Separated_Bits ( " , " , $tmp_signal , &Module_Inf o) ; 
$right_operand = 11 std_logic_vector\ ' ( $f iller$EAOBV) " ; 

} 

return ( $right_operand) ; 

} 

############################################################################### 
# 

# Add_Intermediate_Signal takes a vhdl string signal "a" or "a = b" and 
returns 

# the correct signal name to use. If signal is of the form "a = b" it replaces 

# equivalences of b and adds a <= b to wire_assignments 

sub Add__Intermediate_Signal 
{ 

my ($signal, 
$width, 

@Module_Info) = @_; 



my { 



$Width_List, 
$Signal_List , 
$pWire_Assignments , 
$Equivalence„List) = @Module_Inf o ; 

5 

my ($signal_lhs, @signal__rhs) = split ( /\s*\={l} \s*/s , $signal) ; 
my $signal_rhs = join ( " \=" , @signal„rhs) ; 

$signal_rhs = &Replace_Equivalences ( $signal_rhs , $Equivalence_List ) 
if ($ Equivalence^ is t && $signal__rhs) ; 

10 

die "ERROR Add_Intermediate„Signal : ILLEGAL WIDTH ($width) IN SIGNAL 
ASSIGNMENT ($ signal ) \n" 

unless ({$width s/ A \s* (\d+) \s*$/$l/ ) && ($width > 0) ) ; 

15 #just return signal_rhs if only one value is on the rhs . 

#eg. foo = bar, just return bar 
if ($signal_rhs =~ s/ A \s* ( \w+) \s*$/$l/s) 
{ 

#Orion, do width checking here 
20 return ($signal_rhs) ; 

} 

# rename signal_lhs 

$signal_lhs = &Get_Exclusive_VHDL_Name ( $signal_lhs, $Width_List) ; 
^;"25 if ($signal_rhs ne ""} 

"B { 

-A $$pWire_Assignments .= " $signal_lhs <= $signal__rhs ; \n" ; 

± } 

1:30 $$Signal_List{$signal_lhs} = "SIGNAL $signal_lhs : 

r: STD_LOGIC_VECTOR ( " . ( $width - 1)." DOWNTO 0);"; 

J"; $$Width_List{$signal_lhs} = ( $width-l) . " , 0 " ; 

return ( $signal_lhs) ; 

} 

- r 35 

=;n ############################################################################### 

'V: # Is_real returns 1 if the value passed to it is a real number, i.e integer >= 

rl 0 

il 40 ############################################################################### 
# 

sub Is_real 
{ 

my $ value = shift (@_) ; 
45 return (1) if ($value / A \s*\d+\s*$/s) ; 

return (0) ; 

} 

############################################################################### 
50 # 

# Count_J?arentheses 
# 

# so i have a string always @ (blow (me) (leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 
55 # beginning and last parentheses. I call Count_J?arentheses and it 

# returns 3 values, the beginning string: "always @", the parenthesized string 

# "blow(me) (leonardo | synplicity) " and the last string "blerg (boof)". 
# 

# If I want to search on something other than parentheses, say begin, end, I can 
60 # place their values in $begin_match and $end_match. 

############################################################################### 
# 

sub Count_Paren theses 



my { $string, $begin_match / $end_match) = @_; 
my $begin_string; 
my $paren_string; 
my $end_string; 

my $begin_match_de fault = ' \s*\(\s*'; 
my $end_match_de fault = ' \s*\)\s*'; 

$begin_match = $begin__ma tch__.de fault unless ( $begin„match) ; 
$ end_ma t ch - $ end_mat ch_de f aul t unl e s s ( $ end__mat ch ) ; 

warn " CP string is $string, \n" 

. " $begin_match, \n Send.jnatchW 
if (0); 

#if ($begin_match ne $begin_match_def ault) ; 

return ( " n , " " , " $ string" } 

unless ($string =~ ( . *?) $begin„match ( . *) $/s) ; 

#warn " found first bit 

rest is $2\n in string $string\n" 

# i f { $ GLOBAL_WARNING ) ; 

# . " $begin_match, \n $end_match\n" 
#if ($begin_match ne $begin„match_de fault) ; 

$begin_string = $1; 

my $paren_count = 1; 
$end_string = $2; 

while ($end_string =~ s/^ (.*?) ( $begin_match | $end_match) {.*}$/ $3 /&) 
{ 

my $match; 
$match = $2; 
$paren_string .= $1; 

if ($match =~ /$begin_match/ ) 
{ 

$paren„count++ ; 

} 

else 
{ 

$paren_count = $paren_count - 1; 

> 

last if ( $paren_count == 0) ; 
#else 

$paren__string .= $match; 

} 

#die "mismatched $begin_match, $end_match in 

$begin_string$paren_string$end__string" if ( $paren_count != 0) ; 
return ($ beg in_st ring, $paren_string, $end_string) ; 

} 

sub Handle_Next_I f _E1 se__Line 
{ 

my ($if_body, @Module_Inf o) = (@__) ; 

my ( 

$Width_List, 
$Signal_List , 
$pWire_Assignments , 

$Equivalence_Liist) = @Module_Inf o; 



my $rest_of_module; 
my $spacing; 

############################################################ 

# following a verilog "if (condition) "always @ (condition) , else, 
statement, there are three things that 

# can follow the statements. 

# 1) an if statement 
#2) a begin - end block 

#3) a one line statement ending with a semi-colon; 

# 1) an if statement 

if ($if_body =~ ( \s* ) \bif \s* (\ ( . *) /s) 
{ 

my ($tmp, $if„conditions , $tmp_if_body) = &Count_Parentheses ( $2 ) ; 
#warn "if statement is ($if_conditions) \n" ; 

$if_body = "$1IF " . &Process_If_Condition { $if_conditions , @Module_Inf o) . " 

THEN 

( $ tmp_i f _body , $ res t__o f__module) = 
&Handle_Next_If_JElse_Line ( $tmp_if_body , @Module„Inf o) ; 
$ i f _bo dy . = $ tmp_i f_body ; 

#If an else statement follows the block 
#Process it. 

if ( $rest_of _module =~ / A (\s*) else ( . *) /s) 
{ 

$if_body .= "$1ELSE"; 

( $ tmp__i f_b ody ,$res t__o f__mo dul e ) = 
&Handle_Next_If _Else_Line ( $2 , @Module_Inf o) ; 
$ i f _body . = $ tmp_i f _Jbo dy ; 

} 

$if_body .= " \n$ spacing" . 11 END IF;"; 
return ( $ i f _body , $res t_of __module ) ; 



# 2 ) a begin - end block 

if ($if_body =~ /^\s*\bbegin\b/s) 

{ 

#warn "hniel, begin end line, ib is $if__body\n" 
#if ($HNIEL_DEBUG) ; 

my ( $ tmp , $ tmp_body ,$res t_o f _modul e ) = 

&Count_Parentheses ($if_body, ' \bbegin\b' , ' \bend\b' ) ; 

#if we are in a begin_end block, then process each command. If there is 
an if statement 

#lurking, then call this function again. 

toy ©commands = split ( A ; /s , $tmp_if_body) ; 
my $line; 
$if_body = « " - 

while ( I ($tmp_body =~ / A \s*$/s) ) 
{ 

($tmp, $tmp_body) = &Handle__Next_If__Else_Line { $tmp__body, 

@Module_Info) ; 

$ i f _body . = $ tmp ; 

#warn "begin.end, ib ( $if_body) \n — tmpjoody ( $tmp_body) \n--\n" 
# i f ( $HNIEL_DEBUG ) ; 

} 

#warn "hniel, ib now is ( $if__body) \n ,! 
# i f { $HNIEL_DEBUG ) ; 

return ( $if _body , $rest_of_module) ; 

} 



#3) a one line statement ending with a semi-colon; 

if ($if_body =~ / A (\s*) (.*?;} (.*)/s) 

{ 

#warn "hniel, oneline ($2)\n" 
# i f ( $HNI EL_DEBUG ) ; 

$if_body = $1 . &Process — Regis ter_Assignment ( $2 , @Module__Inf o) ; 
#warn " becomes ( $if_body) Xn 1 ' 

#if ($HNIEL_DEBUG) ; 

$rest_of_module = $3; 

re turn { $ i f _body , $ r e s t_o f _modul e ) ; 

} 

} 

############################################################################### 
# 

# Process_If_Condition: converts verilog if conditions 

# to VHDL IF conditions. 

# V2VHD__Equation 

############################################################################### 
# 

sub Process__If_Conditi on 
{ 

my ($ condition, @Module_Inf o) = (@_) ; 
my { 

$Width_List, 

$Signal__List, 

$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o; 

#warn "PIC, $condition\n n ; 
my %E„List; 

if ($Equivalence_I/ist eq " " ) 
{ 

$Equivalence__List = \%E_List; 
$Module_Inf o [ 3 ] = $Equivalence_List ; 

} 

#relational_equality__operators , and transforms copied from V2VHD_Equation; 
my $vhdl__relational„equality_operators = ' \<\= | \< | \>\= | \> | \= {1} | \/ \= f ; 

# If there is no relational_equality„operators in the equation, it's 

# implied that the equation != 0. i.e. 

# if (foo) //same thing as if (foo 1= 0) ; 

# if (Ifoo) // same thing as if ( 1 foo != 0) ; 

my $result = &V2 VHD_Equati on ($ condition , @Module_Inf o) ; 

my $result__width = &Width_Of ( $result , $Width_List) ; 

#die " ERROR Process _If_Condition, WIDTH FOR (Sresult) WOT KNOWN in 
($condition) ! \n" 

#unless { $result_width) ; 

my $rhs = 0 x $result_width; 

Sresult = &Replace_Equi valences {$result , $Equivalence_Ijist ) ; 
my $return_string - n $result"; 
$return_string = " (Sresult) \/\= \"$rhs\" n 

unless ($result =~ /$vhdl_relational„equality_operators/ ) ; 
#warn " PIC, returns $return_string\n" if $start_special ; 
return ( $return„string) ; 

} 

############################################################################### 
# 

# Get_Attribute_Types : Returns all attributes defined by VHDL code . 



# Currently, I have just pasted in the attribute definitions from exemplar .vhd 

# into a "HERE" string; 

############################################################################### 
# 

sub Get_Attribute_Types 
{ 

my ($pAttribute_I/ist) = 
my $vhdl_string = q[ 

— Attribute declarations 



attribute 


required_time 


time , 




attribute 


arrival_time 


time j 




attribute 


output_load 


real 




attribute 


max__load 


real 




attribute 


clock_cycle 


. time 




attribute 


clock_of f set 


: time 




attribute 


pulse_width 


: time 




attribute 


input_drive 


: time 




attribute 


nobuf f 


: boolean 


attribute 


pin_jaumber 


: string 


attribute 


p r e s e rve__s i gnal 


: boolean 


attribute 


no opt 


: boolean 



-- New attributes in 2 . 1 release 

Specify pin__numbers for bits of a 1-dimensional array 
type exemplar_string_array is array (natural range <>, 
natural range <>) of character ; 

attribute array_pin_number : exemplar_string__array ; 

Buffer_sig attribute to force a (clock) buffer on a signal 
attribute buffer_sig : string ; 

— PAD attribute to force a particular PAD cell on a 10 pin 

— Does not work for Xilinx, Orca and Altera, 
attribute pad : string ; 

— Type needed to indicate speed requirements for module 

generators 

type modgen__select is (smallest, small, fast, fastest) ; 

— Use this attribute to set speed on signals/variables 
attribute modgen_sel : modgen_select ; 

New attributes in 2 . 2 release 

Attributes for encoding of enumerated types. 

type encoding_style is (BINARY, ONEHOT , TWOHOT, GRAY, RANDOM) 

attribute TYPE_ENCODING_STYLE : encoding_style ; 

— Example of using type_encoding_style for an enumerated 

type : 

type state_t is (PLAY, WAIT_F0R__M0VE , END_OF_GAME) ; 

attribute TYPE„ENCODING_STYLE of state_t:type is 

ONEHOT ; 

attribute TYPE_ENCODING : exemplar_string_array ; 



— Example of using TYPE„ENCODING for an enumerated type : 
type state_t is (PLAY, WAIT_FOR_M0VE , END_OF_GAME) ; 

attribute TYPE__ENCODING of state_t;type is 

( "Oil" , "110" , "101" ) ; 

] ; 

#Crush comments 

while ($vhdl_string =- s/ A ( . *? ) \-\- . *$/$l/m) { ; } 

my ©commands = split ( /\s*\ ; \s*/s , $vhdl_string) ; 

foreach $command (^commands) 

{ 

if ($command =~ / A \s*attribute\s+ ( \w+) \s+\ : \s* ( \w+) /s ) 
{ 

$$pAttribute_List{$l} = $2; 
#warn "Type $1 is $2\n" ; 

} 

} 

} 

############################################################################### 
# 

# V2VHD converts from a synthesizable verilog file to a synthesizable vhdl file 
# 

# Still to be done 

# 1) Make multiple behaviour modules for each definition 

# 5) Save comments around modules and always blocks 

# 6) Convert $display statements 

# 7) Make a special altera_verilog library that overloads verilog operators 

# That will make for a much cleaner compiler. 
# 

############################################################################### 
# 

sub V2VHD 
{ 

my ($Verilog_String, 
$ compl e t e_f i 1 ename , 
$pass, 

$Module_Indexed_Port_Width_Po inter , 
$Modul e„Indexed_Port_Names_Po inter , 
$Module_Indexed_Paramet er__Lis t_Po inter , 
$ Compon en t_Iiist_Po inter) = @_; 

my % En t i ty_And_Ar chi t e c tur e ; 
my %Module_Instantiation_List 7 
my @Module_Array; 

#Put the whole shebang including "included files in $line. 
$ compl ete_filename =~ tr|\\|\/|; 

my @tmp_path = split ( A/ / , $complete_f ilename) ; 

my $ filename = pop (@tmp_path) ; 

my $path = join ( " \ / " , @tmp__path) ; 

#warn "path, filename $path, $f ilenameW ; 

my $line = $Verilog_String; 

$line .= &read_file( 'fhOOO ' , $f ilename , $path) ; 

my $all_entity_declarations; 
my $all_architecture_blocks ; 
my %Def Param_List ; 

my $vhdl_module = " — $complete_f ilename\n\n" ; 



#Find and process comments 
$line = £cKill_Comments ($line) ; 



#$line 



= ScProcess_Comments ($line) ,- 
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#Find definitions and process ifdefs 

$line = &Process_Verilog_Directives ($line) ; 

#warn "at beginning, line is $line\n" ; 

my %attribute_type; 

&Get„Attribute_Types { \%attribute__type) ; 
# Process each module 



while ($line =- 

s/ A (.*?) \bmodule\s+(\w+) . *?\; ( .*?) \bendmodule\b ( .*)$/$l$4/s) 
15 { 

my $module_name; 
$module__name = $2; 

#warn "module $module_name, pass $pass\n" ; 
if ($pass — 2) 
20 { 

push (@Module_Array, $module__name) ; 

} 

f - . unde f % Parame t er__Li s t ; 

T---25 my % Parame terJLdst; 

«J my @parameter_order = ( ) ; 

zz my $module_commands = $3; 

y my $Process_Statements; 

my $Wire_Assignments = " 11 ; 
H : 30 my %Declared_Components; 

Jf my $instantiation_string; 

my $attribute_string; 

7^ 35 my %attribute__already__declared; 

^ #Clean up module_name 

r4 $module__name =~ s/^\s* ( , *? ) \s*$/ $l/s ; 

ij fwam "module name is $module_name\n" ; 

40 warn "VERILOG TO VHDL COTWERSION: " . &date_time . " PROCESSING MODULE 

$module__name\n" ; 

############################################################ 

# We need to know all defparams before we instantiate a module 
45 # So we look for defparams separately and store them in 

# %Def Param_Ijist which is indexed by instance name. 

# When it comes time to instantiate a module, we will have all 

# the information we need. 

while ( $module_commands =~ s/ A ( . *?) \bdefparam\s+ ( . *?) \ ; ( . * ) /$l$3/s) 
50 { 

#defparam ins tance_name .parameter = value, 
# ins tance_nameX. parame terY = valueZ ; 
#print "found defparam $2\n"; 
foreach $defparam (split ( /\s*\ , \s*/s , $2) ) 
55 { 

if ($defparam =~ / A \s* (\w+) \ . { \w+) \s*\=\s* { \S+) / ) 
{ 

$DefParam_List{$l} .= ",\n" if ( $Def Param_List {$1} ) ; 
$DefParam__List{$l} . = " $2 => $3"; 
60 twarn "adding $2 => $3 to dplist $l\n" ; 

} 

else 
{ 



die "ERROR: defparam statement $defparam not understood!"; 

} 

} 

} 

############################################################ 

# We need to find all exemplar attributes separately of the 

# commands that are split by semi-colon. 

# So we look for exemplar attributes separately and store them 

# When it comes time to instantiate a module, we will have 

# the attribute information that we need. 

# warn "before exemplar check, $module_commands\n \n"; 

# NO EXEMPLAR ATTRIBUTES ARE RESPECTED, MODULES WITH NO CONTENTS WILL 

# BE CONVERTED TO BLACK BOXES 

while (0)#{$module_commands =~ s/ A {.*?)\-\- 

\s*exemplar\s+attribute\s+ ( . *?) \s*$/$l/mi) 
{ 

my $attribute_inf o = $2; 

my ($name, $attribute, $attribute_value) = split (As+/,$2); 
$attribute =~ tr/A-Z/a-z/; 

my $att_type = $ at tribute_type{$at tribute} ; 

#wam "attribute found: name, attribute, at tribute_value 
$name, $attribute, $attribute_value , $att_type\n" ; 
if ($att_type) 

$attribute_string .= " — attribute $attribute : $att_type; \n" 

unless {$attribute_already„declared{$attribute} ) ; 
$attribute_already_declared{ $attribute} ++ ; 

$attribute_string .= " --attribute $attribute of Sname : ENTITY 

is $attribute_value; \n" ; 
} 

#warn "after exemplar check, $module_commands\n \n" ; 

#A11 other commands are separated by " ; " and are processed inline with 
each command. 

############################################################ 

# Port_JList only contains information for module ports 

# Signal_List only contains information for wires and registers 
# 

# Port_Width, Port_Type contains info for all ports, wires and registers 

# They should probably be renamed All_Nodes_Width/Type or something 
# 

# Port_Type is indexed by verilog {input , output, inout, reg, wire) its 
result is 

# a " , " separated list of all ports of that type 
# 

# Port_Width is indexed by the port name. Its result is "left, right" 

where 

# left is the first dimension of the array, right is the last dimension. 

# eg. for wire [7:3] foo; $Port_Width{ " f oo " } = "7,3"; 
# 

# Port_List is indexed by the module port_name. 

# Its value is SIGNAL $port_name : ( IN | OUT j INOUT) STD_LOGIC („VECTOR? ) 
(left DOWNTO right) 

# 

# Signal_List is indexed by the register/wire name 

# Its value is $Signal_List {$port} = "SIGNAL $port : STD„LOGIC („VECTOR? ) 
(left DOWNTO right)" 



undef %Signal„List ; 
my %Signal_List ; 

undef %Type_List; 
my %Type„ List; 

undef %Port_JList; 
undef %Port_Width; 
undef %Port_Type; 

my %Port_List; 
my %Port__Width; 
my %Port_Type; 

if (0)#($pass == 2) 

{ 

my $Port_Width_Po inter 

$ $Module_Indexed_Por t_Width„Point er { $module__name } ; 

die "ERROR MODULE ( $module__name) HAS NOT BEEN PREVIOUSLY SCANNED \n" 
if ($Port__Width_Po inter eq ,r " ) ; 

foreach $key (sort (keys (%{$Por t_Width_Po inter })) ) 
{ 

#warn " modu 1 e„name ( $ modu 1 e_name ) key ( $ key ) \ n " ; 
$Port_Width{$key} = "Taken\n" ; 

} 

} 

$Mo du 1 e__Indexed_Por t„Name s_P o in t er , 
$Module_Indexed_Parameter„List_Pointer , 

my @Module_Info = ( \%Port_Width, \%Signal_List , \$Wire_Assignments ) ; 

my $ counter = 0; 

my $number_of_commands = 25; 

while ( $module_commands =- s/ A ( . *?) \ ; ( . *) /$2/s) 
{ 

fCounter prints " ♦ " after $number_of_commands 
$counter++ ; 
print STDERR 11 . " 

if (($counter % $number_of .commands ) == 0); 

my $this_command = $1; 

my $next_commands = $2; 

my $rest_of_module = "$l\;$2 n ; 

#warn "rom is $rest_of__module \n" ; 

#warn " t c , $ this_command\n " ,- 

#Search for parameters and determine their type, 

#Types are " NATURAL " if they only contain numbers, else Type 

" STRING" 

if {$this„command =~ / A ( . *?) \bparameter\s+ ( . *?) \s*$/s) 
{ 

my $parameter_ecjuation; 
$parameter_equation - $2,- 

my ( $param__lhs , @param_rhs ) = spl 

( /\s*\ = \s*/ , $parameter„equation) ; 

my ( $param_rhs ) = j oin ( " \= " , @param_rhs ) ; 

my ( $parameter_type ) = " STRING" ; 

$parameter_type = "NATURAL" 

if ($param_rhs =- s/ A \s* ( \d+) \s*/$l/s) ; 

#warn " $param_lhs ; $param_rhs , pt is $parameter_type\n" ; 

#was $Parameter_String .= " $param_lhs : $parameter_type 

$param_rhs\n" ; 

$Parameter_List{$param_lhs} = " $parameter_type : = $param_rhs " ; 
#warn "found paramter " . $Parameter_List { $param_JLhs } . " \n" ; 

} 



############### 

# Get Signal Definitions 

if ($this_command 
/(.*?) \b ( input | output | inout | reg | wire | integer) \b { . * ) / s ) 

5 { 

my $direction = $2; 
my $port__list = $3; 
my $left_index = 
my $right_index = n " ; 
10 my $ width; 

############### 

# (Signal Widths Width > 1) => std_logic_vector 

if ($port_list =~ s/*\s*\[([ A \:]+>\: ( [~\] ] +) \] \s* ( . *) /$3/) 

15 { 

$left_index = eval($l); 
$right_index = eval($2); 

$type 

20 " STD_LOGIC_VECTOR" . &Vector_Order ( $lef t_index, $right_index) ; 

$width = "$left_index, $right_index" ; 

> 

else #Width is one. 
{ 

c;25 if (Sdirection =~ / A inout$/) 

i; { 

=^ #all inouts of width one should be considered 

#std_logic_vector . 
: 1Z $type = "STD_LOGIC_VECTOR (0 DOWNTO 0)"; 

: J 30 $width = "0,0"; 

;;f } 

else 

ET { 

s if ($direction =- / A integer$/i) 

035 { 

#Convert integers to 32 bit STD_LOGIC_VECTORS 
?! $width = "31,0"; 

$type = "STD_L0GIC_VECT0R(31 DOWNTO 0)"; 

^ 40 else 

{ 

############### 

# everything else is STD_LOGIC . 

# (wires and registers which will 

45 # be converted back to STD_LOGIC_VECTOR in the if ($dir) 
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condition below.) 



# Perhaps this could be cleaned up later 
$type = " STD_LOGIC " ; 
$width = "0,0"; 



} 



############### 

55 # Wires can be declared and assigned to in the same statement 

# e.g. wire a = b + c ; 

# So we strip away everything after the first assignment 

# And put the results in $Wire_Assignments 
my $rhs; 

60 if ($direction eq "wire") 

{ 

my @rhs = ( ) ; 

($port_list,@rhs) = split (/\s*\={l} \s*/s, $port_list) ; 



$rhs = join ( " = " , £rhs) ; #Put $rhs back together again 

} 

############### 

# Handle memories e.g. 

# reg [7:0] mem__array [512 - 1 : 0] ; 

if ($port_list =~ a/ A (.*?)\[(.*?)\: ( . *?) \] \s*$/$l/s) 
{ 

my $up — index = eval($2); 

my $down_index = eval ( $3 ) ; 

$ width .= " , $up_index, $down_index" ; 

my $array_order = &Vector„Order ( $up_index, $down_index) ; 
my $mem_type = "memory_type_$array_order" ; 
while ($mem_type =~ s/\s/\_/){;} 

my $ memo ry _ t yp e 

ScGet_Exclusive_VHDL_Name ( $mem_type , \%Port„Width) ; 

$Type_List{$memory_type} = " TYPE $memory_type IS ARRAY 

$array_order of $type;" ; 

$type = $memory_type; 

> 

############### 

# Get Port Names and transform names to Port /Signal_List 
$port_list =~ s/ A \s* ( .*?) \s*$/$l/s; #Strip spaces at either end 
foreach $port (split ( /\s*\, \s*/s, $port_list) ) 

die "ILLEGAL PORT NAME $port, $l\n" if { $port =~ /(\W)/); 
$Port_Type { $direction} . = " $port , " ; 
$Port_Width{$port} = $width; 

############### 

# If direction is a port, put it in port_list 

if ( ($direction eq "input") || 
($direction eq "output") || 
($direction eq "inout") 
) 

{ 

my %dir_xform; 
$dir_xform{" input"} = "IN"; 
$dir_xf orm{ " output " } = " OUT " ; 
$dir_xform{" inout"} = "INOUT"; 
$dir_xform{"reg"} = " " ; 
$dir_xform{"wire"} = 

my $dir = $dir_xf orm{ $direction} ; 

#warn "adding SIGNAL $port : $dir $type\n" 

#if ($direction eq "output"); 

$Port_List{$port} = "SIGNAL $port : $dir $type"; 

} 



############### 

# If direction is an internal signal or {an output which must 

# signal associated with it) or (an input port of STD_L0GIC) 

# declare it in %Signal_List 

if { ($direction eq "wire") || 
($direction eq "reg") || 
($direction eq "integer") |j 
($direction eq "output") || 

( ($direction eq "input") && ($type eq " STD_L0GIC " ) ) 
) 



# Convert all STD_LOGIC to STD_LOGIC_VECTOR { 0 DOWNTO 0) 
my $tmp_type = $type; 

$tmp_type =~ s/ A STD_LOGIC$/STD_LOGIC„VECTOR( 0 DOWNTO 0)/i; 
############### 

# Do not put a wire/register in signal list if it has already 

# been declared in port list. 

$Signal_List{$port} = "SIGNAL $port : $tmp_type; " 
unless $Port„List{$port} ; 

#wire foo = some value; // Put <foo = some value) in wire 



assignments 



if ( ($direction eq "wire") && {$rhs ne ) ) 
{ 

my $wire_assignment = &V2VHD_Equation_Wrapper ( H $port = 

$rhs" , @Module__Info) ; 

$Wire_Assignments . = " $wire„assignment ; \n" ; 

} 

if ( $direction eq "input" || $direction eq "output") 
{ 

############################################################ 

# VHDL will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp__$port for each output named 

$port . 

# later we assign the output $port <= tmp_$port and 

change all 

# assignments in the module to use 

# tmp_$port instead of port. 

my $tmp_port 

&Get_Exclusive_VHDL_Name ( " tmp_$port" , \%Port_Width) ; 

#keep $port as the key so we can wire up tmp_$port and 

$port later 

$Signal_List{$port} = " SIGNAL $tmp_j?ort : $tmp_type;"; 

#warn "added ($Signal_List {$port} ) in addition to 
portlist ( $Port_List{ Sport }) \n" ; 

} 

} 

} 

} 

#next if ($pass == 1) ; 

tcannot do next until we've determined that the entity is a black box 

if ($this_command =- / A { \s*) \bassign\b( . *?) \= { . *) $/s) 
{ 

my $wire_assignment = " " . &V2vHD_Equation„Wrapper ("$2 

$3 " , @Module_Inf o) . " \ ; \n" ; 

$Wire_Assignments .= $wire_assignment ; 

} 

#get module instantiation 

if ($this_command /(.*?) (\w+) \s+ (\w+) \s*\ ((.*) \) \s*$/s) 
{ 

my $module_being_instantiated = $2; 
my $instance_name = $3 ; 
my $Connections = $4; 

# warn " c onnec t ing 

($module_being_instantiated, $instance„name, $Connections ) \n" ; 



############### 

# hack a register into syn_dpram 

if ($module_being_instantiated =- /~syn_dpram__.(\d+)x(\d+) \_ruwr$/i) 
{ 

#warn "warning, found syn_dpram\n" ; 
my $WrAddress = $Connections ; 
my $WrClock = $Connections ; 

#Orion, make a subroutine that returns what is connected to 



what 



die "WrAddress not found for LPM_ROM $instance_name n 
unless ( $WrAddress 

s/ A . *?\ . \s*WrAddress\s*\ (?\s* (\w+) .*$/$l/s) ; 

die "WrClock not found for LPM_ROM $instance_name" 
unless ($WrClock 
s/ A .*?\.\s*WrClock\s*\(?\s*(\w+) .*$/$l/s) ; 

my $Delayed„Address = &Add_Intermediate_Signal 

( " dl_$WrAddress " , 

&Width„Of ( $WrAddress , \%Port_Width) , 

@Module„Info) ; 

$Connections =~ s/ \b$WrAddress\b/$Delayed_Address/ ; 

$Process_Statements .= GENMEM WARNING 1 I ! SUPER HACK MADE FOR 
VERSION 1.0 SIMULATION WARNING! I I WARNING 1! ! \n rt ; 

$Process_Statements .= " — GENMEM of 

$module„being_instantiated\.vhd DOES NOT CORRECTLY LATCH WrAddress \n« ; 

$Process_StatementS .= "—SO WE HACK IN A LATCH HERE AND WIRE 
$module_being_instantiated\. WrAddress to $Delayed_Address\n" ; 

$Process_Statements .= "PR0CESS\n BEGINXn WAIT UNTIL 

$WrClock = \"l\";\n $Delayed_Address \<\= $WrAddress ; \n n ; 

$Process_Statements .= "END PROCESS ; \n" ; 

Lam "VERILOG TO VHDL CONVERSION: " . &date_time . " : INSTANTIATING 
$instance_name IN MODULE $module_name \n" ; 

#If module_being_instantiated is a black box, declare it as a 

component, 

telse instantiate it normally 

if (1) #$$Component_List_Pointer{$module_being__instantiated} ) 

#warn " $module_name instantiates black box 
$module_being_instantiated\n" ; 

#warn "here is 

components i st" . ( $$Component_Li st__Po inter {$module_be ing_inst ant ia ted} ) . n \n" ; 

$Declared_Component s { $module_being_ins tant iated} ++ ; 

$ ins tant iation_st ring .= " $instance_name : 
$module__being_instantiated\n tI ; 
} 

else 
{ 

if ($pass == 2) 
{ 

$ Mo dul e_In s t an t i a t i on_L i s t { $modul e_name } 
" $module_being__instantiated, " 

unless ( $Module__Instantiation_List { $module_name} 

/ \b$module_being_instantiated\ , / ) ; 

#warn "module ( $module„name) , MIL is now 

C$Module_Instantiation_List { $module_name} ) \n" ; 

} 

$instantiation_string .= " $instance_name : ENTITY 
work. $module_being_instantiated\ (behavior\) \n" ; 



} 



if ( $Def Parara_Li s t { $ ins tance_name } ) 
{ 

$instantiation„string .= " GENERIC MAP 

\ (\n" . $Def Param_List { $instance_name} . " \) \n" ; 

#warn 11 PARAMETERS in 

$instance_name\n" . $Def Param_JList{$instance_name} . " \n" ; 
} 

############################################################ 

# I initially thought it would be really easy to just hook up the 
ports. 95% of the time it is total cake. 

# But 5% of the time is a royal pain. 
# 

# Here are the major differences between verilog and VHDL port 
instantiation . 

# 

# 1) Verilog does not care that you leave a port unconnected. VHDL 

does . 

# 2) Verilog does not care that the widths of the ports and the 
widths of the connected signal 

# do not match. VHDL does. 

# 3) Verilog considers a bit vector of width 0 and a single bit to 
be interchangable . 

# VHDL considers STD__LOGIC different than STD_LOGIC_VECTOR ( 0 

DOWNTO 0) . 

# 

# Problem 1 is easy to solve: Keep a list of module ports and 
instantiated connections 

# Each Port that does not have an associated connection gets 
wired to "open". 

# 

# Problem 2 is solved in the following manner: 

# If a port is an input, e.g. M . input_signal ({-a , {4{b}}})" / 

# use the results from our V2VHD_Equation_Wrapper ( input_signal = 
({~a , {4 {b} }}...). V2VHD„Ecjuation 

# is sophisticated enough to deal with all verilog operators and 
can also reconcile widths . 

# 

# For each output connection, e.g. " . output_signal ({-a 

{4{b}}}> 

# We make a tmp__output_signal which has the same width as the 
output port. Then we use V2VHD_Equation 

# again, &V2VHD„Equation_Wrapper ( " { {-a , {4{b} } } } 
tmp^utpu^signal" . . . ) . 

# 

# Problem 3 is also solved by having a tmp signal act as the go- 
between . 

# 

# This makes for very ugly vhdl code. When I have time, 1*11 fix 
it so that the 

# only time we generate a tmp signal is for the nasty 5% of the 

time . 



my $Module_Port„Names_Po inter = 

$$Module_Indexed_Port_Names_Pointer{$module_being_instantiated} ; 

die "ERROR IN INSTANTIATING ( $module_being_instantiated) . UNKNOWN 

MODULEXn" 

if ( ($Module_Port_Names__Pointer eg " " ) && ($pass == 2}); 
my $Module__Port_Width_Po inter = 

$$Module„Indexed_Port__Width_Po inter {$module_being_instantiated} ; 



#my $Module_Parameter_Pointer = 
$$Module_Indexed_Parameter„List_Pointer{$module_being_instantiated} ; 

my %Connection_Iiist ; 

foreach $ connect ion (split ( / \s*\ , \s* / s , $Connections ) ) 
{ 

#last if ($pass — 1); 

if {$connection =- A . \s* (\w+) ( . *) /s) 
{ 

my $Module__Port_Name; 
$Module_Port_Name = $1; 
#my $Connection_rhs = $2; 

my ($tmp, $Connection_rhs, $tmp2) = &Count_Parentheses { $2 ) ; 

die "ERROR INSTANTIATION OF $instance_name IN MODULE 
$module_name NOT UNDERSTOOD ( $connection) $l\n" 

if <$Connection__rhs eq " " ) ; 
$Connection_rhs =~ s/ A \s* ( . *?) \s*$/$l/ ; 

$Connection_List{$Module_Port_Name} = $Connection„rhs ; 

#warn " INSTANTIATION ( $module_being_instantiated) adding 
$Connection_rhs, to 
$Module_Port_Name ( " . $Connection_List { $Module_Port_Name} . " \n" ; 

die "ERROR INSTANTIATION OF MODULE $module_being_instantiated 
NAMED $instance_name \n" 

IN MODULE $module__name REFERS TO AN UNKNOWN PORT 

$Module_Port_Name\n 1 ' 

unless { $$Module„Port_Width„Fointer { $Module_Port„Name} 

| | ($pass 1) ) ; 

} 

else 
{ 

die " ERROR INSTANTIATION OF $instance_name IN MODULE 
$module_name NOT UNDERSTOOD ( $connection) $l\n" ; 

#$module_port„list .= " $connection,\n"; 

} 

} 

my $module_port_list ; 

my $pw__array = join ( " \n " , keys ( %Port_Width) ) ; 

foreach $port (sort (keys (%$Module_Por t_Names_Po inter) ) ) 
{ 

my $what_port_connects_to = $Connection_List { $port } ; 
my $port_width = &Width_Of ($what_port_connects_to, 

$Module_Port_Width_Pointer) ; 

if ($what_port_connects_to eq " " ) 
{ 

$module_port_list .= " $port => open An" ; 

next ; 

} 

my ( $ tmp_name , 
$direction, 
$port_type) 

5cGet_Port_Name„Direction_And_Type ($ $Module__Port_Names_Po inter {$port} ) ; 
my %E_List; 

my $port_name 
ScV2VHD_Equation($what_port_connects„to,@Module_Info, \%E_List) ; 
$port„name =- s/As* ( . *?) \s*$/$l/s; 



my S connect ion_width = &Width_Of ($port_name # \%Port_Width) ; 
if ( $connection_width eq " " && ($direction =~ /^OU^/) 

($pass 1=1)) 

{ 

warn " WARNING : INSTANTIATION OF $instance_name IN MODULE 
$module_name HAS A PORT NAMED \ n" ; 

warn " ($what _jport_connects_to) THAT HAS NOT BEEN 

DEFINED . ASSUMING A SIGNAL OF WIDTH\n" ; 

warn " ( $port_width) EQUIVALENT TO WIDTH OF MODULE 

($module_being_inst ant rated) PORT\n" ; 

warn " ($port_name) \n" ; 

$connection_width = $port_width; 

&Add_Intermediate_Signal { $what_po reconnect s_to , $connection_width, ^Module 
_Info) ; 

} 

if ($E„List {$what_port_connects__to} ) 
{ 

#warn "e_list ( $what_port_connects_to) known\n" ; 

$port_width = &Width_Of ($what — port_connects_to, \%Port_Width) ; 

} 

#If the port width does not match or if $what_port_connects_to 
contains some funky operators 

#do the safe thing and make a tmp — wire . 

if { {$connection__width != $port_width) || 
($what_port_connects_to =~ /\W/)) 
{ 

if ($direction =~ /^IN0UT$/i) 
{ 

#warn (%Port_Width) ; 

die ("ERROR MODULE $module_name , INSTANTIATION 
$instance_name INOUT PORT, \n" 

. " $what_port_connects_to (width $connection_width) 
MUST HAVE THE SAME WIDTH AS $port (width $port_width) \n 11 ) ; 
} 

if ($direction =~ /^IN$/i) 
{ 

$what_port_connects_to ~ "To_$instance_name\__$port " ; 

$what_port_connects_to = 
&Get„Exclusive_VHDL_Name ($what_port„connects_to / \%Port_Width) ; 

#warn n instance_name is $instance__name, port is $port, 
mpwn is " . $$Module_Port_Width_Pointer {$port} . "\n" ; 

$ Po r t_Widt h { $ what_£>o r t__c onnec t s_t o } = 

$ $Module_Port_Width_Pointer { $port } ; 

$Signal_List {$what_port_connects_to} = &Declare_Signal 
($what_jport_connects_to, \%Port_Width) ; 

$Wire_Assignments . = " . &V2VHD_Equation_Wrapper 

( " $what_por t_c onnec ts_to = " . $Connection_List { $port} , 

@Module__Inf o) . » \ ; \n" 

if ($pass == 2) ; 

} 

if ($direction =~ / A 0UT$/i) 
{ 

Swhat _j)ort_connects_to = "From_$instance_name\_$port" ; 

$what port connects to = 
&Get_Exclusive_VHDL_Name ( $what _port_connects_to , \%Port_Width) ; 



$PortJtfidth{$what_port_connects_to} 

$$Module_Port_Width_Pointer{$port} ; t 

$Signal_List{$what_j3ort_connects„to} = &Declare_Signal 

($what_port_connects_to, \%Port_Width) ; 

$Wire„Assignments .= " n . ScV2VHD_Equation_Wrapper 

( SConnection_List{ Sport }. " = $what - port_connects_to" , 



if ($pass = = 2) ; 



@Module_Inf o) . " \ ; \n" 

} 

} $what_port„connects_to .= "(0)" if ($port_type =~ 

/ A STD_LOGIC$/i) ; . 

$module_port_list .= " $port -> 

$what_port_connec t s_to , \n" ; 

} 

#Lose the last comma 
$module_^>ort_list =~ s/\,\s*$//s; 

$instantiation_string .= " PORT MAP \(\n" ; 
$instantiation_string . = " $module _jport_list \ ) \ ; \n\n" ; 

} 

############################################################ 

# In verilog, you often declare a bunch of wire and assign statements 

# right before you do an always or initial block. It's nice to do it 



this way 



# so that wires that determine the outcome of the always statement 

# are near the actual always statement. 
# 

# We do the same thing in our initial and always blocks. 

# We put all previously assigned wires 

# before the PROCESS statement. And clear out $Wire„Assignments so 

# that the assignments only show up in one place. 
# 

# find initial always statements. 
# 

# assume that a statement always @ (posedge a or posedge b) 

# always has "a" as the clock and "b" as the asynchronous event. 

# we can get fancier later. 

if ($rest_of_module =~ /~\s*\b (always | initial) \b\s* (.*) $/s) 
{ 

#update heartbeat 
print STDERR " . " ; 
$ counter = $number_of .commands ; 



#warn "in always statement \n 11 ; 
my $always_or_initial = $1; 
my $always_statement = $2; 

#warn "found always statement, $always__statement\n" ; 
my $clk; 

my $clk_level = " 0 " ; 
my $edge; 

my $asynchronous_event ; 

my $asynchronous_level = "O" ; 

my $asynchronous_edge; 

my $wait_statement ; 



my $tmp; 

my $always_condition; 
my $always_innards = $2; 



my $ tmp__always_condi t ion ; 

$Process_Statements .= $Wire_Assignments ; 
$Wire_Assignments = " " ; 

#Search for always @(foo) 

if ($always__statement =~ / A \@(.*)$/s) 

{ 

#warn "found \@- remaining $l\n"; 

( $tmp , $always_condition , $always_innards ) 

&Coun t_Paren theses ($1) ; 

# convert always condition 

$tmp_always_condition = $always_condition; 
#get clock and clocks edge 

if ($always_condition =- s/ (pos |neg) edge\s+ ( \S+) ( . *) /$3/s) 
{ 

$clk = $2; 
$edge = $1; 

$clk„level = "1" if ($edge eq "pos"); 

#$wait_statement = "UNTIL $clk = \'".{$edge eq "pos " ) - " \ ' " ; 
$wait_statement = "UNTIL $clk = \" u . ($edge eq "pos " ) . " \ " " ; 

twarn "always condition is { $always_condition) \n" ; 

} 

else 
{ 

if ($always_or_initial =~ /always /i) 
{ 

#No clock statement, but possibly a conditional always 
#e.g. always @(a or b or c) 

while ($always_condition =~ s/ \s*\bor\b/\ , /i) { ; } 
$wait_statement = "ON $always_condition" ; 
#warn "wait_statement is $wait_statement\n" ; 

} 

} 

} 

my $rest_of__module_innards; 
( $always_innards , $rest_of _module_innards ) 
&Handle_JSfext_If„Else_Line ( $always_innards , 

@Module_Inf o) ; 

my %Variable_Conversion_List ; 

while ( $always_innards =- s/ Please Convert (\w+) To A Variable/ /s } 
{ 

#warn "found conversion of ($l)\n" ; 
$Variable„Convers ion_JList { $ 1 } + + ; 

} 

foreach $VCL (keys (%Variable_Conversion_List ) } 
{ 

#warn "VCL is ($VCL) , width of 
" . &Width_Of ( $VCL, \%Port_Width) . " \n" ; 

my $tmp_name = &Add„Intermediate_Signal ( "VARIABLE_$VCIi" , 

&Width_Of ($VCL, \%Port_Width) , 
@Module_Inf o) ; 

&Convert_Signals_To_Shared_Variable ($tmp__name, \%Signal_List ) ; 
while ($always_innards =- s/\b$VCL\b/$tmp_name/si ) { ; } 



$always_innards = " $tmp_name :« $VCL; \n$ alway s_innards\n 

$VCL <= $tmp_name; " ; 
} 

############################################################ 

# &Handle_Next_If_Else_Line has converted everything inside the 
always statement to always_innards and the rest 

# of the module is in $rest_of_module_innards ; So set our top 
level module_commands = $rest_of_module_innards 

# and continue parsing from there. 
$module_commands = $rest_of _module_innards ; 

#get asynchronous signal and edge if it exists 

if (§always_condition =~ /\s+or\s+ (pos |neg) edge\s+ ( \S+) / s) 

{ 

$asynchronous__edge = $1; 
$asynchronous„event = $2; 

$ asynchr onous_l eve 1 = "1" if ($ asynchr onous_edge eq "pos"); 

toy $f irst_if_then„statement = "IF $ asynchr onous_event = 

\ ' $asynchronous_level\ ' THEN" ; 

my $f irst_if_then_statement = "IF $asynchronous_event = 

\ " $asynchronous_level \ " THEN" ; 

my $death_string = "ERROR ALWAYS CONDITION 
$tmp_always_condition HAS ASYNCHRONOUS SIGNAL ($ asynchr onous„event) \n" 

. "BUT DOES NOT HAVE THE SIGNAL IN THE FIRST IF STATEMENT . \n B 
. "INSIDE ALWAYS BLOCK IS ($ alway s_innards ) An"; 

#Process first if condition 

#make sure asynchronous edge was involved in first if 

computation. 

die C " $death_string" ) unless {$ alway s_innards 
s/^ (\s*) IF ( . *?)THEN( . *) $/$l$first„if„then__statement$3/s) ; 
my $fic = $2; 

die ( " $death_string" ) unless {$fic =~ /$ asynchr onous_event/s) ; 
die ( " $death_string u ) unless 
( $ alway s_innards 

s/ {$first_if_then_statement.*?)ELSE( .*) $/$lELSIF $ c Ik \ ' EVENT AND $clk 
\"$clk„level\" THEN$2/s) ; 



BEGIN" ; 



$Process_Statements .= " PROCESS ($clk, $asynchronous_event ) \n 
$Process_Statements .= 11 " ; 

} 

else 
{ 

$Process_Statements .= "PROCESSXn BEGINVn" ; 

$ Processes tatements . = " WAIT $wait_statement ; \n" 

if ($wait_statement) ; 
#$Process_Statements ♦ = n $ alway s_innards \n END PROCESS ; \n" ; 

} 



$Process„Statements . = $ alway s_innards ; 
$Process_Statements .= " \n WAIT; " 

if ($ alway s__or„initial =~ /initial/); 
$Process_Statements .= " \nEND PROCESS; \n\n" ; 
} #Done with always ©innards . 

} 

#If we've printed status " . " , print a new line 
print STDERR "\n" 

if ($counter >= $number„of_commands) ; 



#########################################################*## 

# Put it all together. 

5 # Check to see if anything needs to be put inside the architecture block. 

# If nothing does, assume its a black box and instantiate a "component" 
with noopt 

# attributes and the exact same Parameters and Ports as the entity hooked 

up to the 
10 # component. 

# P.S. I hate black boxes. 

(1) # ( ($Process„Statements.$Wire^ 
ring) eq " " ) 

^ my $Component_String 

&Declare„Entity ($module_name, \%Port_List , \%Parameter_List ) ; 

while ($Component_String =~ s /ENTITY/ COMPONENT/ ) { ; } 

while ($Component_String =~ s/END\s+$module_name\s*\ ; /END 

20 COMPONENT \ ;/){;} 

my $tmp_cs = $Component_String; 

$Component_String .= " --attribute noopt: boolean; \n" ; 

$Component_String .= " attribute noopt of $module_name : component is 

true ; \n " ; ... 
;;:25 $Component_String .= " —Hard instantiation of $module„name 

"u megafunction in VHDL with user defined parameters \n\n\n" ; 

4 $$Component_List„Pointer{$module_name} = $Component_String; 

J;; #else #It is not a black box, declare it as a normal module 

Q If 

U ( ($Process_Statements . $Wire„Assignments . $ instant iation_st ring . $ at tribute_st ring 

r { ###################################################^## ###### 

:135 # unlike Verilog, VHDD requires that all entities be defined before 

fvi another , _ , , n 

?: # architecture block instantiates said entity. (Sounds like a legal 

verdict doesn't it?) . . 

?jf # So, we put our port and parameter information into 

WJ 40 $entity_declaration / then put all 

I-"- - - # $entity„declaration at the top of our file. 
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50 



my $entity„ declaration 

&Declare_Entity ( $module_name , \%Port_List, \%Parameter_Dist ) ; 

# Everything below goes in the architecture block. 
#I'll put a commented out entity declaration in there too so 
#it will be easier for a coder to figure out what is going on 
#Put it all in a string called $architecture_block 



IS\n" , 



my $architecture_block = "ARCHITECTURE behavior OF $module„name 

my (@Component„Array) = sort (keys (%Declared_Components) ) ; 

$architecture_block .= "attribute noopt: boolean; \n" if 

55 @Component_Array ; 

foreach $key (@Component„Array) 
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{ 

$architecture_block .= ( $ $Component_L is t_Po inter {$ key} ) ; 

} 

foreach $type (sort (keys (%Type_List) ) ) 
{ 

$architecture_block .= " 11 . $Type_List {$type} . n \n" ; 



} 



while ($Wire_Assignments =~ s/W/g){;> #crush tick escape character 
should already be done, but it does not hurt anything 
#warn "wa is $Wire_Assignments\n" ; 

############################################################ 

# VHDL will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output 

# and assign the output $port <= tmp_$port . All 

# other assignments in the module are changed to use 

# tmp_$port instead of port . 
# 

# Also, VHDL considers std_logic to be different than 
std_JLogic„vector (0 downto 0) . Verilog does not. 

# We solve this above by assuming everything is a std_logic__vector ( 0 
downto 0 ) . Here we 1 1 1 take 

# a port (std_JLogic) and instantly convert it to tmp_port 
(std_logic_vector (0 downto 0)) and set 

# tmp_port(0) <= port; if port is input and port <= tmp„port(0) if 
port is output. 

# Extra tricky, though is that fpga express does not like ' event on 
std_logic_vectors . 

# we'll need to convert 'event signals back to std_logic 

foreach $port_declaration (sort (keys (%Port_List) ) ) 
{ 

my ( $port_name, $port_direction, $port_ type) = 

&Get„Port_Name_Direction„And_Type ($Port_List { $port_declaration} ) ; 

my $port__type__is_std__logic = 0; 
$port_type_is_std_logic = 1 

if ($port_type =- s/ A STD_LOGIC$/STD_LOGIC_VECTOR ( 0 DOWNTO 

0)/i) ; 

my $tmp_signal_list = $Signal_List {$port_declaration} ; 
if ( $tmp_signal_list 

/^\s* (SIGNAL | VARIABLE | SHARED \s+VARI ABLE) \s*(\w+) /is 
#($port_direction =~ /^0UT$/i) || 
# ( $port_type_is_std_logic) 

) 

{ 

my $tmp port name - $2; 

#warn "port_name is $port_name tmp__port„name is $1, 

$ tmp_p o rt_name \ n 11 ; 

#add new name to signal list if any Process , Wire, or 
instantiation signal uses it. 

my $port_name_used = 0 ; 
#Orion, maybe could use /g option here if we knew the special 
variable for how many 

# times /g matched or we could next if we were here for pass 1 

while ( $Process_Statements =~ 

s/\b$port name\b/$tmp port name / s ) { $port„name_used++ ; } 

my $ even t_Process_S tat ement s ; 

#Remember, elk is first in an asynchronous reset statement. 

i f ( $port_name__used) 

{ 

while ( $Process_Statements =~ 



s/\b(PROCESS\s*\(\s*) #$1 = PROCESS 

^ $tmp_port_name(\s*\, \s*\w+\s*\) ) # $2 = n 

reset \) " 

(,*?\b) # $3 = reset 

statement 

$tmp_port_name(\ , EVENT\s+AND\s+) # $4 = 

' event and 

$tmp_port_name{\s+\ = \s+) \" ( [01] ) \" # $5 = " = 

" $6 = new elk logic level 

(\s+.*?\bEND\s+PROCESS) # $7 = rest 

to end process , 

/$l$port_name$2$3$port„name$4$port_name$5\ ' $6\ • $7 /six) 

{ 

$port_name_used = $port_name_used - 2; 
die "Incorrect \ 1 event substitution\n" 
if ( $port_name_used < 0) ; 

} 

while ($Process_Statements 
s/ (\bPROCESS\s+BEGIN\s+WAIT\s+UNTIL\s+) $tmp_port_name ( \s+\=\s+) \ " { [01] ) \"/ 

$l$port_name$2\ ' $3V /six) 
{$port_name__used = $port_name_used - 1;} 

} 

while ($Wire_Assignments 
s/\b$port_name\b/$tmp^port_name/s) { $port_name_used++ ; } 

while ($instantiation_string 
s/ (\=\>.*?\b) $port_name\b/$l$tmp_port_name/) { $port_name_used++; } 

if ($port__name_used) 
{ 

my $ tmp_wi r e_a s s i gnmen t ; 

$tmp_port_name "(0)" if ( $port_type_is_std_logic) ; 

if ($port_direction =~ /-0UT$/ ) { $tmp_wire_assignment = " 

$port_name <= $ tmp_port_name ; \n " ; } 

if ($port_direction =~ / A IN$/ ){ $tmp_wire_as si gnmen t = " 
$ tmp_port„name <= $port_name ; \n" ; } 

#die "DID NOT FIND ( $port_name) IN ARCHITECTURE BLOCK 
( $code_in_architecture_block) \n" 

#unless ( $code_in_architecture_block 

s/ ( .*\; [ A \;\=]*\b$port_name\b[^\;\=]*[ A \;] *\;) ( ■*) /$l$tmp_wire„assignment$2/s) ; 

$Wire_Assignments .= $ tmp_wire_as si gnmen t ; 

} 

else 
{ 

undef ($Signal_List{$port_name}) ; 

} 

} 

} 

############### 

# Now because FPGA express hates std_logic_vector 'event and wait 
statements, we need to generate 

# a std__logic signal to be used in all other 'event and wait 

statements 

my %std_logic_xform; 

if (0) #No, I refuse to support FPGA express 
{ 

while ( $ Pr oc es s„S t at ement s =~ 

s/\b(PROCESS\s*\(\s*) # $1 = PROCESS \( 

<\w+) (\s*\,\s*\w+\s*\) ) # $2 = elk, $3 = " 

, reset\) " 



statement 

logic level 
end process 



(.*?\b) # $4 = reset 

\2 <\ , EVENT\s+AND\s+) # $5 = 'event and 

\2(\s+\=\s+)\" ([01])\" # $6 = » = " $7 = new elk 

(\s+.*?\bEND\s+PROCESS) # $8 = rest to 

/$1$2$3$4($2(0) )$5$2(0) $6V$7V$8/six) 



{;} 

#my $std_logic_name 
" ($2(0) ) " ;#&Get_Exclusive_VHDL_Name{std_logic_$2, \%Port_Width) ; 
#$std_logic_xform{$l} = $2; 

#$l$std_logic„narae$3$4$std„logic - name$5$std_logic_name$6\ ' $7\ 1 $8/sixee) 

while ($Process__Statements 
3/ (\bPROCESS\s+BEGIN\s+WAIT\s+XMTIL\s + ) $tmp_port_name ( \s+\ = \s + ) \" ( [01] ) \ " / 

$l$port_name$2\ <$3\ 1 /six) 

{;} 

} 

foreach $signal ( sort (keys (%Signal_List) ) ) 
{ 

$architecture_block .= " " . $Signal_List {$ signal } . " \n" ; 

} 

$architecture_block .= "BEGIN\n\n" ; 

$architecture_block 

$Process_Statements . $Wire_Assignments . $instantiation_string . $ at tribute_s t ring; 
$architecture__block . = "END behavior; \n\n\n" ; 

#last thing convert [a:b] to (a downto b) 

$architecture_block = ScV2VHD_Index ( $architecture_block) ; 

$Ent ity_And_Archi tecture { $module_name } 
&Get_Library_Declaration($architecture_block) . $ ent i ty_declarati on . $ architecture 
_block; 

#$all_architecture_blocks .= $architecture_block; 
#warn "defined $module_name\n" ; 

} 

############################################################ 
#Now we are finished with the contents of the module. 

#Save away valuable information for later regardless of if its a black 
box or not 

$$Module_Indexed_Port_Width_Pointer{$module_name} = \%Port_Width; 
$ $Module_Indexed_Port_Names_Pointer { $module_name} = \%Port__List ; 
$ $Module_Indexed_Parameter_List { $module_name} = \%Parameter_List ; 

} 

#####################################################^###### 

# Now all is done, except that we need to order the modules 

# VHDL is particular about the order in which things are declared. 

# Everything must be declared before it is instantiated. Fortunately, I 

# have a list of what is instantiated called %Module__Instantiation_List ; 

my $return_string; 

foreach $entity (&Order_Entities ( \%Module_Instantiation_List , 

@Mo du 1 e„Ar r ay } 

) 



$return_string .= $Entity_And_Architecture{$entity} ; 

} 

5 return ( $return_string) ; 

} 

#####################«^ 
# 

10 # Order_Entities is a recursive function that takes a hash and an array of 
keys . 

# It returns an array of entities in order of dependance. The first entity 

returned ^ . ^ _ . . _ 

# will not instantiate any other entities. The second entity returned will 

15 only instantiate t . ^ 

# the first entity if it instantiates any entities. Likewise for the 

third. . . last ^ . , 

# entites. The last module returned will be the top level m the heirarchy. 

# 

20 # The value of the hash is a comma separated string of entities that are 
instantiated 

# within the hash. 

# i e 

# $$pInstantiation_Hash{a} = "first module instantiated in a, second module 
-25 instantiated in a, 

;:: # last module instantiated in a" 

y # 

0 # Qkevs is an array of all entity names that should be ordered. 

0 ########################«^^ 

:so # 

:1 sub Order_Entities 

S { 

my ($pInstantiation_Hash,@keys) = @_; 
35 my @return_array; 

n my $already_declared = "module already declared" ; 

^ #There is no way that we can confuse "module already declared" with a 

y verilog module name 

340 #module is a key word and no spaces are allowed in module names, 

for each $key (©keys) 

if ($$pInstantiation_Hash{$key) eq $already_declared) 



45 { 



#warn "$key already declared\n n ; 
next ; 



if ($$pInstantiation_Hash{$key} ne " " ) 

50 { 

my $value = $$p!nstantiation_Hash{$key} ; 
$value =~ s/\,\s*$//; 
push ( &return_array , 

&Order_Entities ( $pInstantiation_Hash, 
55 split C/\s*\, \s*/s, $value) 

) 

) 

#now everything on which $key is dependant has been declared 
60 #so its safe to declare it. 

push ( @return_array , $key) ; 

$$p!nstantiation„Hash{$key} = $already_declared; 



return (&return_array) ; 

} 



sub V2VHD„Index 
{ 

my ($string) = @_; 

#If a variable has two vector indecies, the second one takes precedence, 
while ($string =~ s/ ( \ [ ] *\] \s*) (\ [ . *?\] ) /$2/s) { ; } 
while ($string =~ s | (.*) \ [(.*?) \] {.*) | $1| s) 
{ 

my $rest = $3; 
#warn "found $2\n" ; 
$GLOBAL_DEBUG = 1; 

$string .= &Vector_Order ( split { /\s*\ : \s*/s, $2) ) ; 
$GLOBAL_DEBUG = 0; 
$ string . = $rest; 

} 

return ($string) ; 

} 

############################################################################### 
# 

# Declare Entity 
# 

# Takes a module_name , \%Port_List , \%Parameter_List and 

# returns a string that contains a vhdl ready entity declaration 
# 

sub Declare_JEntity 
{ 

my ($module_name, $pPort_List, $pParameter„List) = @_; 

my $entity_declaration .= 11 ENTITY $module_name IS\n" ; 

my @Parameter_Array = sort (keys (%$pParameter_List) ) ; 

if ( &Parameter_Array ) 

{ 

$entity_declaration GENERIC \(\n" ; 

foreach $parameter (@Parameter_Array) 
{ 

my $Parameter_String = " $parameter 
: " . $$pParameter_List{$parameter} . " ; \n" ; 

$entity_declaration .= $Parameter_String; 

} 

$entity_declaration =~ s/\ ; \n$/\n/s ; #Get rid of last semi-colon. 
$entity_declaration . =" \);\n" ; 

> 



my @Port_Array = sort (keys (%$pPort_List) ) ; 

if <@Port_Array) 

{ 

$entity_declaration .='» PORT \(\n"; 
foreach $port (@Port_Array) 

{ 

$tmp = $ Port List { $port } . 11 \n n ; 

#$entity_declaration .= $tmp; #$Port_List {$port } . " \n" ; 
$entity_declaration .= " " . $$pPort_List { $port> . " \ ; \n" ; 

1 

$entity_declaration =~ s/(.*)\;/$l/s; 
$entity_declaration .= " );\n" ; 

} 

$entity_declaration . = " END $module_name ; \n\n" ; 



return ( $entity_dec lar at ion) ; 

} 

############################################################################### 
# 

# Get__ibrary_Declaration 
# 

# Very simple for now, may get more complicated later 

sub Get_Library_JDeclaration 
{ 

my ( $architecture_block) = @_; 

my $library„declaration = 
"LIBRARY ieee;\n" 

. "use ieee.std_logic_1164.all; \n" 
. "use ieee . std_logic_arith . all ; \n" 

. "use ieee. std_logic_unsigned. all ;\n" ; 

$library_declaration .= "\nlibrary std; \nuse std. textio . all; \n n 
if ($architecture_block =~ / \bwrite\ ( / ) ; 

return ( $library_declaration) ; 

} 

sub V2VHD_Files 
{ 

my ($Verilog_String, $DestinationJDirectory, ©files) = @_; 

my (@Files_To_Synthesize) ; 

my (@Do_Not_Synthesize_These) ; 

#warn "vs = $Verilog_String, dd is $Destination_Directory, files are 
@files\n" ; 

my $COPYRIGHT_NOTICE== 
" — Copyright (C) 1991-200 0 Altera Corporation 

— Any megaf unction design, and related net list (encrypted or decrypted) , 
— support information, device programming or simulation file, and any other 
— associated documentation or information provided by Altera or a partner 
— under Altera' s Megaf unction Partnership Program may be used only to 
— program PLD devices (but not masked PLD devices) from Altera. Any other 
— use of such megafunction design, net list, support information, device 
--programming or simulation file, or any other related documentation or 
--information is prohibited for any other purpose, including, but not 
— limited to modification, reverse engineering, de-compiling, or use with 
— any other silicon devices, unless such use is explicitly licensed under 
--a separate agreement with Altera or a megafunction partner. Title to 
— the intellectual property, including patents, copyrights, trademarks, 
--trade secrets, or maskworks, embodied in any such megafunction design, 
— net list, support information, device programming or simulation file, or 
--any other related documentation or information provided by Altera or a 
--megafunction partner, remains with Altera, the megafunction partner, or 
--their respective licensors. No other licenses, including any licenses 

--needed under any third party's intellectual property, are provided herein, 
ii . 

my %Module_Indexed_Port_Names ; 

my %Module_Indexed_Port_Width; 

my %Module_Indexed„Parameter_Values ; 

my %Component_List ; 

my %Additional_Files ; 

#warn "mipn pointer is " . \%Module_Indexed_Port_Names . ,! \n" ; 
my $Top_Wrapper_Name = "Top_Level_$Top_Level_Module_Name u ; 



$Destination_Directory =~ tr|\\|\/|; 
$Destination_Directory =- s/^\s* { . *? ) \s*$/$l/ ; 
$Destination_Directory =~ s/ yv (.*)\/$/$l/; 

5 foreach $pass (1,2) 

{ 

warn "VERILOG TO VHDL CONVERSION: n . &date„time . " PASS $pass\n" ; 

foreach $file (©files) 

{ 

10 $file =~ tr|\\[\/| ; 

my $vhdl_file = $file; 

$vhdl_file =~ s/ A .*\/ ( . *?) $/$l/s; # Crush path, so that files in 
#warn "vhdl file is $vhdl_f ile\n" ; 

# different directories end up in the same place. 
15 $vhdl„file =~ s/{.*)\. (.*?)$/$l/; #Crush all after last 

my $extension = $2; 

my $vhdl_innards ; 
if ($extension =~ /^vhd/i) 
20 { 

warn "VERILOG TO VHDL CONVERSION: " . &date_time . 
" leaving vhdl file ($file) alone. \n" ; 

} 

else 

r25 { 

.7- $vhdl„file = " $Destination_D i rectory \/ $vhdl_file\ .vhd" ; 

% warn "VERILOG TO VHDL CONVERSION: " . &date_time . " SCANNING $file 

« \n";# TO $vhdl_file.\n" ; 

t"B0 $vhdl_innards = &V2VHD ( $Verilog__String , 

ih $file, 
V'> $pass, 

U; \ %Module_Indexed_Por tjffidth , 

T \ %Module_Indexed_Port_Names , 

f.~35 \%Module„Indexed_Parameter_Values , 

\%Component_List) ; 

Is > 

if ($pass == 2) 

O40 { 

p£ # if there is nothing in vhdl_innards copy the verilog file 

directly. It will get used later in quartus . 

# otherwise, make a vhdl file. No need to copy the verilog file if 
the output directory 
45 # is 

if ( $vhdl_innards =~ / /v \s*$/s) 

{ 

#Orion, debug this. 

if (0) # ($Destination_Directory ne " . " ) ) 
50 { 

open (SRCFILE, "< $f ile" ) || die " FILE ERROR! CAN NOT OPEN 

Sfile $!\n" ; 

my $Dest_File = " $Destination_JDirectory\ / $f ile" ; 

open (DESTFILE, "> $Dest_File " ) || die " FILE ERROR! CAN NOT 
55 OPEN $Dest_File $ ! \n" ; 

while (<SRCFILE>) 
{ 

print DESTFILE $_; 

} 

60 close (SRCFILE) ; 

close (DESTFILE) ; 

print "COPIED $file TO $Destination__Directory\n" ; 

> 



} 

else 
{ 

open (DESTFILE, "> $vhdl_f ile" ) || die " FILE ERROR! CAN NOT 
OPEN $vhdl__file $ ! \n n ; 

print DESTFILE "$COPYRIGHT_NOTICE" ; 
print DESTFILE " $vhdl_innards " ; 
close (DESTFILE) ; 

warn "VERILOG TO VHDL CONVERSION: " . &date_time . " CONVERTED 
$f ile TO \n" . ( " H x60) . " $vhdl_f ile\n H ; 

push (@Files_To_Synthesize, $vhdl_f ile) ; 

} 

} 

} 

} 

return (@Fi les_To_Synth.es ize) ; 

} 

sub V_TCL2VHD_TCL 
{ 

my ( $Destination_Directory, ©files) = @_; 

foreach $file (©files) 

{ 

open (TCL, " < $file") || die "FILE ERROR! CAN NOT OPEN $file $ ! \n" ; 
my $tcl„file = $file; 
$tcl_file = $file; 

$tcl„file =~ s/(.*)\.tcl/$l\_vhd\.tcl/; 
$tcl_file = " $Destination_Directory\/$tcl_f ile" ; 

open (TCL_VHD,"> $tcl_f ile" ) || die "FILE ERROR ! CAN NOT OPEN $tcl_file 

$!\n"; 

while (<TCL>) 
{ 

chomp ; 

while (s/\.v(\W) /\.vhd$l/) {;} 
s/\ . tcl/_vhd. tcl/g; 

#s/ A (\s*set_clock\s+\-port\s+\-name\s+) (\S+) ( .*) /$1$2\ (0\) $3/; 
print TCL__VHD "$_\n" ; 

} 

Close TCL; 
Close TCL_VHD; 

} 

} 



# Do not forget the 1 at the end of a pm file 
1 



vpp .pm 



# ! //c/perl/bin/perl .exe 

$GL0BAL_C0PYRIGHT„NOTICE=«END_OF„C0PYRIGHT_STRING ; 
//Copyright (C) 1991-2001 Altera Corporation 

//Any megafunction design, and related net list (encrypted or decrypted) , 
//support information, device programming or simulation file, and any other 
//associated documentation or information provided by Altera or a partner 
//under Altera' s Megafunction Partnership Program may be used only to 
//program PLD devices (but not masked PLD devices) from Altera. Any other 
//use of such megafunction design, net list, support information, device 
//programming or simulation file, or any other related documentation or 
//information is prohibited for any other purpose, including, but not 
//limited to modification, reverse engineering, de-compiling, or use with 
//any other silicon devices, unless such use is explicitly licensed under 
//a separate agreement with Altera or a megafunction partner. Title to 
//the intellectual property, including patents, copyrights, trademarks, 
//trade secrets, or maskworks, embodied in any such megafunction design, 
//net list, support information, device programming or simulation file, or 
//any other related documentation or information provided by Altera or a 
//megafunction partner, remains with Altera, the megafunction partner, or 
//their respective licensors. No other licenses, including any licenses 
//needed under any third party's intellectual property, are provided herein. 
//Copying or modifying any file, or portion thereof, to which this notice 
//is attached violates this copyright. 
END_OF_COPYRIGHT_STRING 



# 

# Verilog Pre-processor . 
# 

# Giving you the power of the Perl language from within your 

# Verilog source file. 
# 

# Any text between /*{ - }*/ pairs will be treated as a Perl expression. 

# You may put any Perl code in there that you like. You may define variable 

# and call functions. You may even define your own Perl functions, 

# then call them. 
# 

# **************** FILE GENERATION & USAGE **************** 
# 

# In a DOS box, you invoke vpp, like any other Perl program, by typing 

# "perl vpp.pl <arguments>" . Here's the whole usage story: 



# 

# Usage : 

# perl vpp.pl [-D <dest-dir-name>] 

# [-P <output-f ile-name-pref ix> ] 

# [~L <lib-dest-f ile-name> ] 

# [-X <f orced- output -f ilename-extension> ] 

# [<global-perl-var-name>=<var-value>] . . . 

# <source_f ile> [, source_file] . . . 



# 

# ** <source_f ile> arguments: 
# 

# Every source file you list will be given the /*{ - }*/ perl -expansion 

# treatment, and a corresponding pre-processed output file of the 

# same name, with the prefix "GENERATED.' 1 , will be produced in the 

# output directory. Unless you specifically say otherwise, the 

# output directory will be "./GENERATED/" 



# ** _D <dest-dir-name> argument (optional) : 
# 

# As -mentioned above, vpp will automatically output the pre-processed 

# files to the directory ./GENERATED/ by default. You can specify another 

# directory using the -D argument. 
# 

# ** _p <dest-dir-name> argument (optional) : 
# 

# For each source file processed, vpp will create (generate) a processed 

# output file (emitted into the destination directory, per -D above) . 

# But what is the output file named? By default, it gets the name 

# of the original source file, with the prefix "GENERATED_" added. 

# Thus, by default, Vpp transforms the file "foo.v" into the file 

# " GENERATED /GENERATED_foo .v 11 . If you want some other prefix, you 

# can set it with the -P argument. The prefix "-" (dash) is magic, 

# and is interpreted as: "keep your stinking prefix away from my file." 
# 

# ** -l <lib-dest-file-name> (optional) : 
# 

# The " -L 11 argument sets the generated "library" output file. In the 

# course of doing their work, some vpp generator-functions actually 

# -create- modules (&Mux does, for example) . These modules need to 

# live in a file somewhere. This argument tells vpp where to put 

# automatically-generated "library" modules. This argument is 

# optional. If you don't specify, all auto-generated modules will 

# be emitted to a file named "generated_vpp_modules .v" in the 

# destination-directory. 
# 

# ** -x <forced-output-f ilename-extension> (optional) : 
# 

# If, for example, you were reading-in a bunch of files with 

# the extension ".vpp" (e.g. "my_litte_pony . vpp" ) , and you wanted 

# to generate a bunch of like-named files with the extension 

# ".v" (e.g. — > "my_little_ pony .v" ) , you would just say "-X v" on 

# the command line. I think that's about all there is to it. 

# ALL output files will be coerced to have this extension. 

# ** <global-perl-var-name>=<var-value> arguments (optional) : 
# 

# Vpp is all about parametric / conditional verilog generation. 

# The Vpp sources themselves contain a good deal of Perl code. 

# The Perl code in the source files is often "controlled" by a 

# set of global variables that can be thought of as "parameters." 

# For example, a single Perl variable called " $DELTA_32 " controls 

# whether the Delta CPU core is built as a 32-bit machine ( $DELTA„32=1) 

# or as a 16-bit machine ( $DELTA_32=0 ) . One way to set this variable is 

# to place a line at the top of the "delta. v" source file itself. ^ This 

# works, but it means you actually have to go in and edit a line in the 

# source file to build the "other flavor" of CPU. 
# 

# In general and often, you want to build a piece of hardware either 

# "this-a-way" or " that-a-way" , as-controlled by a Perl variable 

# "at the top of the file" (e.g. $WAY=" this-a" or $WAY=" that-a" ) . 

# Vpp lets you set Perl variables, visible to stuff inside your 

# embedded Perl code, right on the Vpp command line. This lets 

# you parametrically-generate the output by running Vpp with 

# different command line args . Can I stop explaining this now? You 

# must surely get it. (This is just like setting pre-processor 

# macros on the command- line of your C -compiler) . 
# 

# You may set as many Perl variables on the command line as you 

# like, or none at all. 



# NOTE: argment ordering — setting variables vs. source files. 

# In general, all Perl-variable-setting arguments should come -before- 

# the source-file arguments. 
# 

# **************** Vpp: CONCEPTUAL INTRODUCTION **************** 
# 

# In principle, you can start a Verilog file with "/*{", write your entire 

# chip in Perl, and end it with a "}*/". I've written a variety of 

# reasonably-sophisticated (and hopefully -useful) Perl functions that manage 

# much of the drudgery of Verilog coding. I've used them to create a 

# working SOKGate design (-3000 equivalent Verilog lines) which is 

# 95% Perl and 5% naked Verilog. But before we get to the fancy predefined 

# "generator" functions, let's first cover the basics. 
# 

# > Perl code that GENERATES Verilog < 

# 

# Your encapsulated Perl code ultimately "does something" by PRINTING into 

# the OUTPUT FILE (the output file is the result of the pre-processor) . 

# Any explicit "print" statements in the embedded Perl code emit their results 

# into the output file. [But, as you shall see later, directly using the 

# built-in Perl "print" funcition is seldom necessary, and is f rowned-upon] . 
# 

# For some simple tasks (like Perl-based ■ "define constants"), 

# explicitly printing things from your Perl code can be awkward. The following 

# reference to the Perl variable $my_bus_width works, but, is certainly awkward: 
# 

# wire [((/*{ print " $my_bus_width" ; }*/) - 1) : 0] my_bus ; 
# 

# In such cases it's convenient to dispense with the explicit "print" 

# statement. Thus, vpp _sometimes_ automatically prints the final 

# "return value" of the embedded Perl expression so you don't have to 

# type "print" before every single thing you do. (I'll explain the _sometimes_ 

# rules later) . 
# 

# Thus, the preceding example could be more compactly written as: 
# 

# wire [{(/*{ $my_bus_width }*/) - 1) : 0] my_bus; 
# 

# Just as an aside, the preferred way to write that statement in vpp is; 
# 

# wire /*{&W( $my_bus_width )}*/ my_bus; 
# 

# (The predefined "&W() n function is discussed in some detail below). 

# Because the evaluated results of Perl expressions are emitted directly 

# into the Verilog output, vpp can (if you like) supercede all the 

# funcitonality of Verilog' s native, lame 1 de fine-macros . In particular, 

# vpp allows you to compute (gasp!) const ant -values with arbitrarily-complex 

# mathematics. Perl (being a real programming language) supports things like 

# logarithms, which are conspicuous by their absence in Verilog. 

# Here 1 s an example to give you a taste : 
# 

# /*{ 

# $ ADDRES S_BITS = &BitS_To_Encode { $MAX_ADDRESS) ; 

# }*/ 

# wire /*{ &W($ADDRESS_BITS) }*/ address_bus; 
# 

# And, yes, the 11 &Bits_To_Encode" function is predefined for you, and 

# documented below. And, because this is all just Perl, you're free 

# to define your own functions just like " &Bits_To_Encode" which implement 

# arbitrarily-complex math, right up to cosines. 
# 

# > Five ways to emit Verilog < 



# 

# Here are the five ways you can generate Verilog statements from 

# embedded Perl (details follow) : 

# . ^ _ 

# 1) Type any Perl expression. The result „sometimes_ gets printed. 

# 

# 2) Use a "print" statement (discouraged). 

# 3) Use the "&Vprint" function (better). 
# 

# 4) Use the — (dash-dash) embedded-Veri log-literal syntax (best) . 
# 

# 5) Call a Perl function (user-defined or pre-defined) which internally 

# uses one of the above four methods . 
# 

# **** i. Emitting Simple Perl Expressions. 
# 

# Often, you just want the value of a Perl variable (or expression) to 

# get emitted into the pre-processed output. This is the default behavior 

# for any embedded Perl: The ultimate "return-value" of the entire 

# embedded expression gets written into the output file. Often, 

# this is exactly what you want, like this: 
# 

# wire / * { $my_computed_wire_name } * / ; 
# 

# But consider what happens when you *set* (as opposed to *use*) a 

# Perl variable: 
# 

# /*{ $my_computed_wire__name = $module_name . "_$i" ; }*/ 

# In this example, I am building-up a perl variable (a name xn a loop) 

# that I'll use later. Unfortunately, the expression I typed does 

# have a value (the string-value assigned to $my_wire_name ) . ^ Because 

# vpp just emits the "return value" of whatever perl expression you 

# type, the wire name you computed gets emitted directly into the output 

# Verilog file, right there where you only wanted to set a variable. 

# Surely not what you wanted. Another example is even 

# more heinous. Suppose you defined these constants at the top of your file: 
# 

# /*{ $data_bus„width = 16; 

# $address_bus_width = 24; 

# }*/ 

# 

# The "re turn -value" of this embedded expression is 24, so vpp will emit 

# a naked "24" at this point right into your Verilog output file — and^ 

# a naked "24" (outside any module, on a line by itself) is not a valid 

# Verilog statement. Instant syntax-error. 
# 

# So. There needs to be some way to tell vpp when you want the return- value 

# of your expression printed, and when you don't. There are two ways. Here 

# are the rules: 
# 

# * The return value of any Perl expression is emitted *unless*: 
# 

# 1) The embedded Perl expression started with "/*{q n 

# (note the 'q', for "quiet"). 
# 

# 2) The embedded Perl expression started with " /*{" on a line 

# by itself. 
# 

# So, to fix the above heinous " data_bus_width" example, we'd just do this: 
# 

# /*{ 



# 
# 
# 
# 



$data_bus_width = 16; 
$address_bus_width = 24; 
}*/ 



# The opening " /*{" , on a line by itself, tells vpp that the following 

# Perl expression is probably some sort of mini-program { lines-o-code) 

# (as opposed to a quick reference to a variable) , and that the 

# final return-result should not automatically be printed. You are, of 

# course, free to * explicitly* print things from such an embedded 

# statement using one of the other methods 2.. 5, but now the choice is yours. 
# 

# **** 2. Calling the "print" Perl facility directly 
# 

# As I've said to the point of tedium, the output of any "print" statement 

# in the embedded Perl gets sent directly into the pre-processor output. 

# Note that vpp uses funny internal Perl magic to re-direct the "print" 

# output to the pre-processor output file instead of STDOUT. You, the 

# user, do not need to (and should not) give a filehandle to your 

# "print" statements (unless you're Perl program internally uses 

# files for some purpose, which would certainly be twisted) . 
# 

# If you use "print," the result will be correct but not pretty. 

# The indentation of the printed text will probably be wrong, and 

# there will be no indication of where the printed text came from. 

# in other words, using "print" directly is functional, but not 

# pretty. The pre-processor output file will be hard to look at if you 

# use a lot of direct "print" statements. And there's not much of a reason 

# to use "print" directly because vpp gives you: 
# 

# **** 3, The built-in &Vprint function 
# 

# If you want to directly emit text into the pre-processor output, ^ 

# the &Vprint function formats it nicely so the output file is easier 

# to look at. In particular, the text is printed with a starting left- 

# margin set by the Perl expression's opening "/*{". This indentation 

# makes a huge readability difference. 
# 

# Secondly, each hunk-o-text emitted by &Vprint is preceded by an 

# expression-number comment. This tells you *which* Perl expression 

# generated the resultant text. This may seem silly, but it ends up 

# really saving the day. When there's a syntax error in a bunch of generated 

# code (that you didn't type, and may never have seen before) , the 

# first question is usually "where did all this shit come from?" ^ It's 

# really handy if there's a juxtaposed comment that tells you which 

# expression generated the code. 
# 

# All the original Perl expressions passed along into the pre-processor 

# output (still hidden from Verilog by /*£ - }*/ comment -pairs) . Each one 

# is recognized (of course) and given a unique number, which happens to 

# be the line number on which it started. That expression number 

# is re-emitted as a /* - */ comment (with indentation) before every 

# output from &Vprint . This makes it very easy to track-down 

# the original Perl code when errors occur. That all sounds complicated, 

# but it's actually pretty simple. Let me give you an example of what 

# you'd see in the preprocessed output file if you use ScVprint : 

# (This is a real example, cut-and-pasted directy from a vpp-generated 

# file) : 
# 

# /*{ —67—: 

# # Altera gives you this one-bit "TRI" module for tri-stating 

# # signals. Great, but I need 16 of them. It's a good thing I'm 

# # writing this in Perl where I have loops (Iterated Verilog instances 

# # don ' t work in Quartus ) . 



# for (my $i = 0; $i < $uP_DATA„BITS ; $i++) 

# { 

# — TRI Data_Bus_Buf f er_$i ( 

# -- .oe (do_drive_data_bus) , 

# — .in (uP_DATA„out [$i ] ) , 

# — .out (uP_DATA [$i ]) 

# — ) ; 

# } }*/ 

# /* 67 */ TRI Data„Bus_Buf f er_0 { 

# /* 67 */ *oe (do_drive_data__bus) , 

# /* 67 */ .in (uP_DATA_out [0 ]), 

# /* 67 */ .out (uP„DATA [0 ]) 

# /* 67 */ ) ; 

# /* 67 */ TRI Data_JBus_Buffer_l ( 

# /*67*/ .oe (do__drive_data_bus) , 

# /* 67 */ -in (uP_DATA_out [1 ] ) / 

# /* 67 */ .out (uP_DATA [1 ]) 

# /* 67 */ ) ; 
# 

# ... omitted for brevity (2-14) ... 
# 

# /* 67 */ TRI Data_Bus_Buf fer_15 ( 

# /*67*/ .oe { do_dr ive_dat a_bus ) , 

# /* 67 */ .in (uP_DATA_out [15 3), 

# /* 67 */ .out (uP_DATA [15 ]) 

# /* 67 */ ) ; 
# 

# There you can see the original Perl expression, which has been 

# given a number <»~67--:", inserted by vpp), and all the Verilog code 

# it generated. Each line is preceded by a /* 67 */ to indicate where 

# it came from, and that it was, in fact, generated. 

# "But Wait," I hear you stridently object, "I can see the original 

# Perl expression, and there's not a single call to ' &Vprint ' anywhere 

# in there!" Well, yes. You're right, of course. In practice, no one 

# ever actually calls SVprint because of the glorious " — " (dash-dash) 

# Verilog-literal syntax. Let me tell you all about it. 
# 

# **** 3. The " — " (dash-dash) Verilog-literal syntax. 
# 

# Because your embedded Perl expressions are, after all, only there 

# to print Verilog, vpp gives you a super-quick shorthand for 

# generating a line of verilog. Any line which starts with ^ 

# .__« (two dashes, pre- and post-whitespace ignored) is taken as a ^ line ox 

# Verilog to be printed, after variable expansion (interpolation), into 

# the pre-processor's output. This syntax is line-based: Anything 

# on the line after a leading " — " will get printed, semicolon 

# and all, as double-quoted text. You get a free newline, so you 

# are relieved of ending all your Verilog lines with an expicit "\n". 

# All of which adds up to a very tidy way to generate Verilog code 

# from within Perl, perfectly illustrated by the above example. 

# Now it may strike you as odd that vpp provides you with a way or 

# embedding Perl within Verilog, and then builds a whole new 

# mechanism for embedding Verilog in the Perl, which is itself embedded 

# in Verilog. The obvious question: "Why not just type the stmkin' 

# Verilog in the first place, and do away with the Perl altogether?" Good 

# question. Easy answer: Variable -interpolation (and, to a lesser 

# extent, repetition (looping)). If Perl $-variables were not ^ interpolated 

# into the " — " - embedded Verilog, the whole exercise would, m fact, 

# be totally pointless. But, of course, Perl $-variables *are* interpolated 

# (according to Perl's double -quo ted- string substitution rules). And I 

# shouldn't have to tell you how valuable that is. This gives 



# you the power to generate fully-parametric Verilog source code . 

# Verilog 1 s lack of VHDL 1 s ad-hoc, limited "generate" syntax is now completely 

# filled and not with some limited, abominable kludge, but with a 

# complete, real, documented, and familiar programming language. 
# 

# Just FYI, the " dash-dash syntax is really just a shorthand for 

# passing the remainder of the line (as a double-quoted string with a 

# newline stuck on the end) as an argument to ScVprint. You could, 

# of course, call ScVprint explicitly, but the function name, parenthesis, 

# and quotation marks are quite a lot of overhead, and end up being 

# distracting. The results would be the same, but the " — 11 -trick makes 

# the original source much more readable, easier to type, and harder 

# to screw up. 
# 

# With what I've shown you so far, you can completely replace Verilog' s 

# pathetic 1 define -macro s , and have access to a fully- featured "generate" 

# utility that kicks ass on the thing in VHDL . This is where a 

# traditional pre-processor would leave you standing at the bus 

# stop. But I'm going to give you the whole ride. 
# 

# 

q **************** ADVANCED STUFF **************** 
# 

# Vpp (and an associated file, "GeneratorJFunctions . v M ) give you a 

# pre-built library of Perl functions, intended to ease your Verilog 

# programming task. You are free, of course, to use as much or as little 

# of this library as you like. Better still, you are free to expand 

# the library to fill whatever deficiencies you imagine. 
# 

# I) ELIMINATING DRUDGERY: Port lists. 
# 

# Complex Verilog designs contain a lot of redundant information. The poor 

# programmer frequently has to type and re-type the same names, numbers, 

# etc. without error. Designs which follow consistent coding guidelines 

# are especially redundant. Let me give you an example: Some module " foo", 

# with a few inputs and outputs, which is instantiated by "bar:" 



# 

# module foo (in_l, in_2 , in__3 , out_l, out„2) ; 

# input in_l ; 

# input [1:0] in_2 ; 

# input [2:0] in_3 ; 

# output out_l ; 

# output [1:0] out__2 ; 
# 

# Contents -- 

# endmodule 
# 

# 

# module bar ( . . .bar 1 s args . . . ) ; 

# ..definition of bar's args... 
# 

# // Instantiate "foo" 

# // But first, declare all the connection wires: 

# wire in_l ; 

# wire [1:0] in_2 ; 

# wire [2:0] in_3 ; 

# wire out__l ; 

# wire [1:0] out_2 ; 
# 

# foo The__Foo ( 

# .inl (inl), 

# . in2 ( in2 ) , 

# . in3 ( in3 ) , 



# .outl (outl) , 

# .out2 (out2) 

# ) ; 

# endmodule 

# Notice that you, the user, had to type "in_l" correctly, with the correct 

# width, no fewer than five (5) times. And typical designs are even worse 

# than this trivial example, because many of foo's ports are passed through 

# bar's ports, to whomever is instantiating bar, and so on. Thus the 
10 # plumbing-chore of adding another input (say, "in_4") to foo can be 

# a reasonably-big hassle, and an opportunity for error. 
# 

# Wouldn't it be great if there were some way to state, m one neat, 

# self-contained place, "here are the names of foo's ports, their widths, a 
15 # directions". Then, later, refer to them as a group? Yes, it is great. 

# 

$VPP_PROJECT„ID_HASHCODE = ' #_d-+@G ! --&&n== [ [ ) (*#\$)*() ( *$\#$\ . ars < ; 
$VPP_COPYRIGHT„WARNING_STRING = 
20 "Warning— see copyright notice: { $VPP_PROJECT_ID_HASHCODE) " ; 

################################################################ 

# goldfish & ribbit 
# 

~25 # It would be very nice to have the Perl library functions 

# "carp" and "croak", which are defined in the module "carp.pm" 
# 

# Sadly, including standard Perl libraries in a plat form- independent 

# way is tricky. Aaron's solution: Write our own "carp" and "croak" 
^30 # functions, and give them silly names: 

sub goldfish 
{ 

my ($msg) = @_; 

i35 # Grab info about the caller of my caller. 

my($package, $filename, $line) = caller(l) ; 
die "$filename line $line: ' $msg'\n"; 

} 

^40 sub ribbit 
{ 

my ($msg) = @_; 

# Grab info about the caller of my caller. 
my{$package, $filename, $line) = caller(l); 
45 die "$filename line $line: '$msg'\n"; 

} 



################################################################ 
50 # Strip„Perl_Comments ($expr) 
# 

# Takes a string, which might be a multi-line Perl expression. 

# For some reason, the Perl "eval" function is too lame to ignore 

# comments embedded in the eval-expressoin. Fine. We'll strip 
55 # the comments so it doesn't have to. 

# 

################################################################ 

sub Strip_Perl__Comments 

{ 

60 my $expr; 

my ©lines; 
my $stripped„expr ; 
($expr) = (@_J ; 



©lines = split {/\n/, $expr) ; 



$stripped_expr = " " ; 
5 foreach (©lines) 

{ 

$stripped_expr . = "\n" , next if /^\#/; 
s/ A (.*?) [ A \\]\#.*$/$l/; 
$stripped_expr .= "$_\n"; 

10 } 

return $stripped_expr ; 

} 

################################################################ 
15 # Strip_Verilog__Comments ($expr) 
# 

# Takes a string, which might be a multi-line Verilog expression. 

# Strips out all the "//" comments. 
# 

20 ################################################################ 
$global„strip_mode = "normal"; 
sub Strip_Verilog_Comments 

my $expr; 
{$expr) = (©_); 

my $stripped_expr ; 
$stripped__expr = " " ; 

my ©lines ; 

©lines = split (/\n/, $expr) ; 



foreach $line { ©lines) 
C 

$line = s/ A ( .*?)\/\/.*$/$l/; 
$stripped_expr .= "$line\n"; 

} 

return $stripped_expr ; 



################################################################ 

# Expand_Literal_Verilog_Lines 
# 

# When you're auto-generating Verilog in a Perl statement, it's 

45 # really important to be able to emit lines of Verilog code without 

# turning it into a federal case. 
# 

# We've made it pretty easy by just declaring that anything you 

# print (using "print" or &Vprint) gets emitted into the Verilog file. Pretty 
50 # easy, but not easy enough. 

# 

# It ends up being awkward to write a block of verilog code 

# by starting every line with: 
# 

55 # &Vprint ( " 

# 

# and ending every line with: 
# 

# \n«); 
60 # 

# In particular, it's easy to forget and hard to read. 
# 

# So, to make Verilog code generation even easier, we declare that 



c25 
H30 



□35 



# any line in a Perl expression that starts with two dashes ( " — " ) 

# is a line of Verilog, and the two dashes are interpreted as a 

# shorthand for "print the rest of this line into the Verilog file." 
# 

# This is accomplished by literally replacing ' — ' with ' &Vprint ( " 1 

# (at the beginning of lines) , and ending such lines with an 

# automatic ' \n" ) ; 
# 

# This definitely falls under the category of syntactical sugar. But it 

# sure is sweet. 
# 

# One other nit: If a '#' character appears in the line, 

# backslash it. This is because ■#' is a legitimate Verilog character, 

# and we later go out of our way to strip-out - delimited Perl comments 

# unless they're preceded by 'V 
# 

# DANGER: Conflict with vaild Perl syntax. 
# 

# Mostly, in Perl programs, you don't start lines with the 

# character string Mostly. Unless, of course, you're 

# pre-decrementing a value: 



# All I can say is: Don't pre-decrement things at the beginning of lines. 

# and, if you really must, I can select a different Verilog-literal 

# marker sequence. Don't hold your breath. 
# 

# Orion has selected a different Verilog-literal marker sequence, but the old 

# one still works as well. Because emacs doesn't tabulate comments 

# (i.e. perl code) in verilog mode well. I've added understanding of 

# "b{" and "e}" . When alone on a line, these two get translated into "begin" 

# and "end" respectively. Perl-mode also doesn't understand — as perl code. 

# it thinks its pre-decrement and the tabs get screwed up as a result. My 

# new Verilog marker is "_ perl mode in emacs does the right thing with 

# 

# One other hack (this is starting to get dirty) : 

# lines that start with " — >" don't count. If you want to emit a Verilog 

# line that starts with ">", you have to say: " — >" . Note the extra space. 

# We special-case " — >" because we've gone and defined a tabular-data syntax 

# that encourages users to type this symbol. See "&Parse_Named„Arguments f " 



################################################################ 



sub Expand_Iiiteral_Verilog_Lines 
{ 

my $expr; 
my ©lines; 
my $expanded_expr ; 
($expr) = (@__) ; 

©lines = split (/\n/, $expr) ; 

$expanded_expr = " " ; 
my $line_number = 0; 
foreach (©lines) 
{ 



# Special escape for dealing with lines that start with " — >" 
# (There's probably some way to do this in a single regexp, 



# 
# 
# 
# 
# 



$i = 37; 
while ($i) 
— Si; 



# 
# 
# 



below. 



# but I don' t care) : 
my $is_verilog = 0; 

my $do_print_into_lib_f ile = 0; 
my $verilog_string = " " ; 

if (<!/^\s* — >/) Sc& (L/ A \s*< — /)) # — > or < — disqualifies it 
{ 

$is„verilog = / /V \s*--(L?) (.*)$/; 

$do_print_into_lib_f ile = ($1 eq "L"); 
$verilog_string = $2; 

} 

if (/*{\s*)b(\s*)\{\s*$/) 
{ 

$is — verilog = 1; 

$verilog_string = $1.$2." begin"; 

} 

if (/ A (\s*)b(\s*) \{\s*S/) 
{ 

$is_verilog = 1; 

$verilog„string = $1.$2." begin"; 

} 

if (/*(\s*)\} (\s*)e\s*$/) 
{ 

$is_yerilog - 1; 
$verilog_string = $1.$2." end"; 

} 

if (/ A (\s*) \_{\s+) (.*)$/) 
{ 

$is_verilog = 1; 

$verilog_string = $1.$2." ".$3; 

} 

$expanded_expr .= n $_\n n / next if 1 $is„verilog; 

# escape the • #' character, so it doesn't get stripped-out as 
# a Perl comment : 

$verilog_string =- s/\#/\\\#/g; 

# Escape the quote-characer, because it foils our "surround 

# the string with quotes" strategy; 
$verilog_string =~ s/\ " /\\\ " /g; 

# Escape the quote-characer , because it foils everything 
$verilog_string =~ s/V/WV/g; 

if ($do_print_into_lib„file) { 

$expanded_expr . = "fcLprint ( \ " $verilog_string\\n\ " ) ; \n" ; 
} else { 

$expanded_expr .= "ScVprint (\ " $verilog_string\\n\ " } ; \n" ; 

} 

$line_number++ ; 

> 

return $expanded„expr ; 

} 

################################################################ 

# Build_Width_String 
# 

# If you have a wire that's 8 bits wide, you often need to get a 



vpp_ptf _parse . pm 



################################################################ 

# parse„ptf.pm 
# 

# A set of Perl subroutines for parsing and writing PTF-files. 
# 

# PTF-files used to be known as SDF-files. That's why these 

# subroutines all have 11 SDF " in thier names. 
# 

############################################################################### 
# 

# Parse__SDF_Files 
# 

# This takes an array of filenames that contain SDF data. It turns them xnto 

# an associative array so that the rest of perl can hack away. (I'm such a 
poet . ) 
# 

# This function is used in: 

# mk„systembus .pi 

############################################################################### 
# 

sub Parse_SDF„Files 
{ 

my $text_string = " " ; 
my $Top__Level = shift(@_); 
for each $ filename (@_) 
{ 

# print STDERR "Parse„SDF: Opening $f ilename . \n" ; 

open ( SDF , "<$ filename " ) or die "can not open $f ilename: $!"; 
while (<SDF>) 
{ 

s/~( .*?) \#.*$/$l/; 
s/ A \s+//g; 
s/\s+$//g; 

s/ A \s*(.*)$/$l/; 
tr/\"//; 

$text_string .= $_."\n" ; 

} 

close (SDF) ; 

} 

# Make some adjustments to normalize the text string: 

# * Put every statement (ending in " ; " ) on a line by itself. 

# * Put every " { " or " } " on a line by itself. 
# 

50 # This makes parsing easy and natural. We do this 

# by -first- stripping-out all the newlines 

# in the file, then adding them back in where we want them. 
# 

# NOTE: PARSING LIMITATION: 

55 # Your NAME = VALUE -VALUES cannot contain the characters: 

# ; { or } 

# Since VALUES are quoted, it would be possible to make 

# this parser handle these characters. Fine. You do it. 
# 

60 $text_string =- s/\s+/ /mg; 

$text„string =~ s/\n+//mg; 
$text_string =~ s/\ ; / ; \n/mg; 
$text_string =~ s/ \ { / \n\ { \n/mg; 



$text„string =■ 



- s/\}/\n\}\n/mg; 



my @tree = ( ) ; 

push {Stree, " $Top_Level ,, ) ; 

my $tree_path = " " ; 

undef % PARAMETER ; 
my % PARAMETER; 

foreach (split ( /\s*\n\s*/ , $text„string) ) 
{ 

$tree_path = join( ' : 1 f ©tree) ; 
if (/"( ["\ = ]*)\=\ n ?([ A \ ,1 ]*)\"?/) 
{ 

$PARAMETER{ n $tree_path:$l"} = $2; 

$ PARAMETER {" LEAF :$tree„path" } .= n $l,"; 

my $ltp = $ PARAMETER { "LEAF : $tree_path" } ; 

} 

if t/\{/) 

{ 

$last„line =~ s/ A \s* ( . *?) \s*$/$l/ ; 

$ PARAMETER { "LEAF : $tree_path" } .= " $last_line , " ; 

my $ 1 = $ PARAMETER { " LEAF : $ t ree_path 11 } ; 

push (©tree, $last_line) ; 

} 

if {/\}/) 
{ 

pop C&tree) ; 

} 

$last_line = $_; 

} 

my $param_ptr = { } ; 
%$param„ptr = % PARAMETER ; 

return ($param_ptr) ; 

} 

############################################################################### 
# 

# sub Print_SDF_File takes PARAMETER list references 

# Prints out a . sdf file 
# 

# This function is used in: 

# roy_sys t embu s . p 1 
# 

############################################################################### 
# 

sub Print__SDF_File 
{ 

my ($filename, $PARAMETER_j?tr , $top„level, $suppress_comments) = S_; 
my % PARAMETER = %$PARAMETER_ptr ; 

open (SDFOUT, "> $filename" ) or die "unable to open $filename, $!"; 
my $old_out = select (SDFOUT) ; 

&Print_SDF_Level ( $ PARAMETER^ tr , $top_level , $suppress„comments ) ; 
close (SDFOUT) ; 
select ($old__out) ; 

} 



############################################################################### 
# 

# sub Print_SDF_Level takes PARAMETER list references and $ level. 

# Prints out a level in the sdf file. 

# "Level" means something that has parameters and/ or other levels 

# underneath it. Level "foo" looks like: 
# 

# foo 

# { 



# something=" something„else" 

# something2="something_else2 " 

# something3=" something_else3 " 

# another_level here 

# { 

# another_level_parameter="you get the idea" 

# } 



# ) 
# 

# It tabs the whole level according to how many tt :"s there 

# are in the path name. 
# 

# Print_SDF_Level is one of a continuing series of recursive/ 

# iterative functions by Orion Pritchard. If Print__SDF_Level 

# comes across another level (Conveniently called another_level 

# in the example above), it calls Print_SDF_Level on that level. 
# 

# This function is used in: 

# — internal to this file only — 
# 

### ############################################################################ 
# 

sub Print_SDF_Level 
{ 

my { $PARAMETER_j?tr , $ level, $suppress_comments) = @_; 

my @level_list = split (/\ : / , $level) ; 

my $number_of_tabs = (scalar (@level_list) - 1) ; 

my $spacing = ( " " x (4*$number_of_tabs) ) ; 

my ©leaves = (split ( A ,/, $$PARAMETER_ptr { "LEAF :$ level" })} ; 

foreach $leaf (©leaves) 

{ 

my $p = $$PARAMETER_j?tr { " $ level ; $leaf " } ; 

my $e = $ $PARAMETER_ptr { " EDIT : $ level : $leaf 11 } ; 

$e = "\[EDIT\] n unless $e; 

if ($p ne " ") 

{ 

my $string = " $spacing$leaf =\ " $p\ " \ ; " ; 
print "$string n ; 

#print ((" "x(60-$string_length) ) . "\# $e") if ! $suppress_comments ; 
print "\n"; 

} 

else 
{ 

print " $spacing$leaf \n" ; 
print " $spacing\ { \n" ; 

&Print_SDF_Level ( $PARAMETER_ptr , " $ level : $leaf " ) ; 

} 

} 

my $out_string = " " x (4* ($number_of__tabs-l) ) . " \ } \n" ; 
print $out__string if ( $number_of _tabs > 0); 

} 



############################################################################### 
# 

# Add_SDF_Node adds a node to the tree /parameter structure that 
parse /print_sdf_f iles 

# know so well. Xt adds the parameter value and also updates the LEAF 
value ( s ) . 

# Add_SDF„Node is smart enough to add heirarchy if its needed. 

# e.g. 

# &Add_SDF_Node{\%PList, "a:b:c:d = foo" ) would ensure $$Plist { " a : b : c : d" } = foo 

# and also make sure that $$Plist { "LEAF : a" } includes b, "LEAF : a :b" includes c, 
etc . 

# 

# INPUTS 

# $parameter__list : the "pointer" to the list that add__SDF_node should add to. 

# $parameter: a string of the form "parameter = blerg" . 

# $options: "edit options", not required. 
# 

# 

# This function is used in: 

# mk_sy st embus .pi 

# v2vpp.pl 
# 

############################################################################### 
# 

sub Add_SDF_Node 
{ 

my ( $parameter_lis t , $parameter , $opt ions ) = ( @_) ; 

$options = "EDIT" if (!$options); 

$parameter =~ s/ A \s* ( . *? ) /$1/ ; 

$parameter =- s/ A ( . *?) \s*$/$l/ ; 

$options =~ s/ A \s* { .*) /$1/; 

$options =~ s/ A (.*?)\s*$/$l/; 

# print " \n\nAdd_SDF_Node, param, parameter , options are 
$param, $parameter, $options\n" ; 

#put the parameter in the heirarchy 

my ($parameter_lhs, $parameter_rhs) = split ( / \s*\=\s*/ , $parameter ) ; 

# Don't let the user add null entries to the tree. It's just annoying: 

# return if $parameter_rhs eq " " ; 

$$parameter_list {$parameter_lhs} = $parameter_rhs ; 
$$parameter_list { "EDIT: $parameter_lhs" } = $options; 

#put the leaf (ves) in the heirarchy. Only add 

#to leaf value if path has not been declared before. 

#Iterate over all levels in the path. 

my ©path = split ( /\s* : \s*/ , $parameter_lhs ) ; 

while (scalar (@path) > 0) 

{ 

#leaf_rhs is equal to last value in parameter_lhs 

my ($leaf_rhs) = pop(@path); 

my ($leaf__lhs) = joint 1 : 1 ,@path) ; 

#print STDERR "in While loop, path is @path, l_rhs is $leaf_rhs, l_lhs is 
$leaf_lhs\n" ; 

my $leaf_string = $$parameter_list { "LEAF :$ leaf _lhs "} ; 

if ($leaf_string !~ / \b$leaf_rhs\b/ ) 

{ 

#print STDERR "leaf_string is $leaf_string, adding $leaf_rhs to 

melee\n" ; 



next if $leaf_rhs eq " " ; 



# Add a comma if the string exists, and it doesn't already end in a 

comma . 

# 

$$parameter_list{" LEAF :$ leaf _lhs H } .= 

if ($$parameter_list{"LEAF:$leaf_lhs" } ne «- ) 

{$$parameter_list{"LEAF:$leaf_lhs"} 1- /\,$/ ) ; 

$$parameter_list{ 1, LEAF:$leaf_lhs"} .= " $leaf_rhs " ,- 
$leaf_string = $$parameter„list { "LEAF :$ leaf _lhs "} ; 
#print STDERR " leaf _string now is $leaf_string\n" ; 

} 

} 

# 

# Get„All_SDF_Parameters„At_RegExp_Level 

# Recursively searches associative array %$pList for level indexes that match 

# $Reg_Expression. Starts at $Level, returns an array of a="b" if $Level 
matches 

# $Reg_Expression (or just a if a="a" )- 

# $Reg_Expression defaults to /.*/ (match everything). 

# This function preserves the order of the values in the ptf file 
# 

# This function is used in: 

# mk_syst embus . pi 

# 

sub Get_All_SDF__Parameters_At„RegExp_Level 
{ 

my ($pList, $Level,$Reg_Expression) = ©_; 
my (©values) ; 

$Reg_Expression = "\.\*" if ($Reg_Expression eq ""); 

#warn " GASPAREL $Level\n $Reg__Expression\n" ; 
my Slist = $$pList { "LEAF : $Level " } ; 
foreach $entry (split ( /\s*\ , \s*/ , $list) ) 
{ 

#warn "entry is $entry\n" ; 

if ($Level =~ /$Reg__Expression/) 

{ 

#warn "entry matched reg_exp\n" ; 

my $entry_value =$$pList { " $Level : $entry" } ; 

if ($entry eq $entry_value) 

{ 

push (©values, " $entry n ) ; 

> 

else 
{ 

push (©values , " $entry\=$entry_value" ) ; 

} 

} 

else 
{ 

push (©values , &Get_All_SDF_Parameters„At__RegExp_Level ( $pList , 

" SLevel: $ entry" , 
$Reg_Expression) ) ; 

} 

} 

return (©values) ; 



## ############################################################«####*^^#^* ##### 
# 

# Add_SDF_Parameters 

5 # ^ . 

# A simple subroutine to ease typing. You pass in the module name and a string 

# of the form "parameterl 
$parameterl / parameter2=$parameter2 / parameter3=$parameter3 " . 

# If your parameters are global, you just need to pass the parameter name and 
10 # this function takes care of the rest. 

# 

# Sometimes, the user might want to specify the parameter string 

# on the Vpp command-line. In this case, it's important that the 

# parameter string not have any equals-signs in it. To allow this, 

15 # this routine interprets the magic token 11 equals — " as an equals-sign. 

# 

# This function is used in: 

# v2vpp . pi 

# 

sub Add_SDF_Parameters 
,25 ^ my ( $Module_Name , $parameter_string, $section_name) = (@_) ; 

$parameter_ string =~ s/ equals — / = /g; 

$section_name - "PARAMETERS" unless $section_name; 

}30 foreach $parameter (split (As*, \s*/ , $parameter_string) ) 

1 { my ($lhs,$rhs) = split { /\s*\=\s*/ , $parameter) ; 

$rhs = eval<"\$" .$lhs) if ($rhs eq " " ) ; 
* &Add_SDF_Node ( $TL ,": MODULE $Module„Name : $section_name : $lhs=$rhs " ) ; 

, 35 } 
} 



1; # Modules need to say "One!" 
i 40 



45 



50 



55 



wiz__convert . pm 

################################################################ 

# wiz_convert .pm 
# 

# Format-conversion subroutine library. 
# 

# So many formats, so little point. 
# 

################################################################ 

################################################################ 

# Convert_Srec„To_Mif 
# 

# Converts an S-record file (as might be emitted by 

# the GnuPro compiler) into a mif-f ile suitable for initializing 

# an APEX on-chip ROM. 

# 

# If you don't specify a base-address for the S-record 

# contents, it just uses the first address it sees. You have 

# been warned. 
# 

################################################################ 

sub Convert_Srec_To_Mif 

{ 

my ($srec_name, $mif_name, $srec_base_address) - (&_} ; 

open (SREC, "< $srec_name") or die "Couldn't open $srec_name: $ 1 " ; 

open (MIF, "> $mif_name" ) or die "Couldn't open $mif_name: $ ! " ; 

my $a; 

my $recordType; 
my $recordLength; 
my $ r ec or dAddr ess; 
my $recordData; 
my $recordChecksum; 
my $residue; 
my $i; 

print MIF «EOP; 
WIDTH=16; 
DEPTH=512; 
ADDRESS_RADIX=DEC ; 
DATA_RADIX=HEX ; 
CONTENT BEGIN 
EOP 

while ($a = <SREC>) 
{ 

if ($a =~ /^S{ [123] ){..)(.*)(..)$/)# an S record we can use 
{ 

$recordType = $1; 
$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 
$recordLength -= $recordType + 2 ; 

my $addressStringLength = ($recordType +1) * 2 ; 

$recordAddress = hex ( subs tr ($a, 0, $addressStringLength) ) ,- 
$srec_base_address = $recordAddress if ( $srec_base_address 

$recordAddress -= $srec__base_address ; 
$recordData = substr ( $a, $addressStringI/ength) ; 



if ($residue) 
{ 

$recordAddress — ; 

$recordData = $residue . $recordData; 

} 

$recordIjength = length { $recordData) & -3; 
$i = 0; 

while ($i < $recordLength) 
{ 

printf MIF " %5d : %s%s ; \n*\ $recordAddress/2 , 
substr ($recordData / $i+2 , 2 ) , 
substr($recordData / $i / 2) ; 

$recordAddress += 2; 

$i += 4; 

} 

$residue = substr ( $recordData, $i) ; 

} 

} 

print MIF «EOP; 

END; 

EOP 

# We discovered this interesting fact about the S-Record file 

# Perhaps our caller might like to know about it: 
# 

return $srec_base_address ; 

} 

##### ########################################################### 

# mif„num_to_decimal 
# 

# Given a value you got from a MIF-file, and the accompanying 

# RADIX string (BIN, DEC, HEX, OCT, or UNS) ; 

# This converts the number to base-10 and returns the result. 
# 

################################################################ 
my %mif_base = { BIN => 2, 

OCT => 8, 

DEC => 10, 

UNS => 10, 

HEX => 16 

) ; 

my %mif_digits = (0=>0 , 1=>1 , 2=>2 , 3=>3 , 4=>4 , 5=>5 , 6=>6 , 7=>7 , 8=>8 , 9 
a=>10 ,b=>ll, c=>12 , d=>13 , e=>14, f =>15) ; 

sub mif_num_to_decimal 
{ 

my ( $mif_string, $mif_radix) = {£„} ; 

my $base = $mif_base{ $mif_radix} ; 

$mif_string = lc ( $mif_string) ; 

my @char_list = split ( " " , $mif_string) ; 

my $ re suit = 0 ; 

foreach $char (@char_list) { 

$result *= $base; 

$result += $mif_digits{ $char} ; 

} 

re turn $ re sul t ; 



} 



################################################################ 

# Emit_Bin_Data 
# 

# Just a utility routine, used only by Convert_Mif_To_Dat , 

# below. 
# 

# Presumes the global filehandle DAT is open for writing. 
# 

################################################################ 

sub Emit_Bin_Data 

{ 

my ($data_val, $data_width) = (@_) ; 

my $bit = 0; 
my $result = 

for ($bit = 0; $bit < $data_width; $bit++) 
{ 

if ($data_val % 2 == 0) { 

$result = "0" . $result; 
} else { 

$result = "1" . $result; 

} 

$data_val = int ($data_val / 2) ; 

} 

print DAT "$result\n"; 

} 

################################################################ 

# Convert_Mif_To_Dat 
# 

# Verilog simulations allow you to initialize memory with 

# .dat-files. Quartus allows you to initialize memory with 

# .mif -files. One could write a Perl-script to convert 

# mif -files into dat-files. Oh, look I One did! 
# 

# This function takes, as arguments, the name of the mif-file, 

# the name of the dat-file, and the width of the memory- to-be- 

# initialized, in bits. 
# 

################################################################ 

sub Convert_Mif_To_Dat 

{ 

my ($mif_name, $dat_name) = (@_) ; 



# Load mif-lines into a big string 

open (MIF , "< $mif_name" ) or die "Couldn't open $mif_name: $ ! " ; 
my $mif_c on tents = " " ; 
while (<MIF>) 
{ 

# While we've still got $_ as a line, strip-off " — " comments 
s/^(. *?)--. 

$mif_.c on tents .= $_; 

} 

close (MIF) ; 

# Eliminate /* - */ comments: 

while ($mif_contents =- s/ ( . *?) \/\* . *?\*\/ ( . *) /$1 $2/sg) {}; 



# Eliminate loathsome whitespace: 
$mif_contents =~ s/\s+//sg; 

my $mif_addr_radix = "HEX"; # Default, as-shown in mif-spec. 
my $mif_data_radix = "HEX"; 
my $mif_width = " " ; 

# I don 1 1 happen to care about the depth . 

$mif_addr_radix = $1 if $mif_contents =~ /ADDRESS_RADIX= ( \w+) ; /is ; 
$mif_data_radix = $1 if $mif_contents = ~ /DATA_RADIX= ( \w+) ; /is ; 
$mif_width = $1 if $mif_contents =- /WIDTH= { \w+) ; /is ; 

$mif_depth = $1 if $mif_contents = ~ /DEPTH= { \w+) ; / is ; 

if (($mif_width eq " " ) ) { 

printf STDERR " Convert_Mif_To_Dat : suspicious mif-file: $mif„name\n 
printf STDERR " no WIDTH specif ied. \n" ; 
return -1; 

} 

if (($mif_depth eq " " ) ) { 

printf STDERR "Convert_Mif„To_Dat : suspicious mif-file: $mif_name\n 
printf STDERR " no DEPTH specif ied An" ; 
return - 1 ; 

} 

open (DAT, "> $dat_name") or die "Couldn't open $dat_name: $ ! " ; 

if ($mif_contents »~ /CONTENTBEGIN ( . * ) END\ ; /is) { 

warn "Convert_Mif_To_Dat : no contents in mif file: $mif_name" ; 
return -1; 

} 

my $contents_section = $1; 

my @ s tatement_list = split (A;/, $contents„section) ; 

foreach $ statement <@statement„list ) { 

next unless $statement =~ / A ( [ \dABCDEF] +) \ : ( [ \dABCDEF] + ) $/i ; 
my $addr = $1; 
my $data = $2 ; 

my $dec_addr = 5cmif_num_to_decimal ($addr, $mif_addr_radix) ; 
my $dec_data = Scmif_num__to_decimal ($data, $mif_data_radix) ; 

printf DAT ("@%X\n", $dec__addr) ; 
&Emit_Bin_Data ($dec_data, $mif_width) ; 

} 

close (DAT) ; 

} 



# For some reason, modules need a return-value. 

# here 1 s mine : 
"Abraham Lincoln" ; 



Docket No. 


Notes 


Due Date Initial 


KLA1P012 WO 


desian EP JP with ISA-US 

UuOIUI 1 • 1 — I j Wl Will 1 1 VJ / V V«/ VJ 


07-Jun 


T 


VISAP015 WO 


nat f l in AU, CA and EP 


08-Jun 


H 


SUN1P270 WO 


all (except US) with EP/ISA 


09-Jun 


H 


SUN1P800 WO 

v_y V/ 1 ¥ II vy \J vy . v v >— ' 


all (except US) with EP/ISA 


12-Jun 


H 


KL A1 P004 WO 

1 X l_/V 1 1 W \J^T . V V V-/ 


nat'l in EP and JP 


17-Jun 


H 


9AY1T001 


trademark filina in FP JP CA and AU 

LI OVJt^l 1 IC4I l\ 1 1 1 1 1 1 XJ III 1 — 1 i ul j X//* ul l\J / \ vy 


20-Jun 


H 


CYTOP003 WO 

V_y 1 1 V_/ | VJ V-/\J. V V V-/ 


all (includina US) 

a 1 1 1 1 1 ivyi u xi 1 1 ivj w w i 


23-Jun 


H 


[ AM1P0QR WO 


nat'l in EP (FR DE GB IT) JP KR SG 

1 lul 1 III L.I ll l \ j I— > l— j v_j i—J 1 1 i y w i , i xi x j vy 


28-Jun 


T 


1 AM1P0Q7 WO 

L./AI V I 1 lU\7i . V V \~f 


nat'l in FPfBF FR DF GB IT NL FS^ IL JP KR SG 

HOlt III CrlUL,! I x, Ly 1— X3 U] 1 1 j 1 N 1 — , L_vy y IL_,vJI t l\l \|VJW 


29-Jun 


K 


I AM1P139 WO 

1 /\l V 1 I 1 1 vSw . V V V_y 


all includina the US with EP/ISA and TW 

C~4 II III V*i V-4 VJ 111 \-4 LI 1 VV Vy W V V 1 LI 1 L_ 1 / ■ V— // \ %>A 1 1 Vd 1 ¥ ¥ 


30-Jun 


T 


I AM1P140 WO 


all includina the US with EP/ISA and TW 

dll II IV/IU\Jll 1U Ll IXr WW VVIL1 1 1— 1 / 1 VV/ \ Ul IVJ 1 V V 


30-Jun 


K 


L AM1P141 WO 

V 1 II 1 ~T 1 . V V Xy 


all includina the US with EP/ISA 

C4 1 1 11 IV/IUUII *' 1 *^ >y w YYILI ■ L.I t I V— ' I \ 


30-Jun 


T 


SUN1P264 WO 

\J \J IN II £— \J^T • V V X-/ 


all (exceot US'! with EP/ISA 

dll \UAV/U *• xyxy J ii III 1 1— 1 / I v-// \ 


30-Jun 




CAMIP002 WO 


all (exceot US) with EP/ISA 

dll l wAOC[J i. xy vy i vv I vi i ui / ivv/\ 


10-Jul 




CAMIP004 WO 


all (except US) with EP/ISA 


10-Jul 




1MECP006 WO 

IIVII_-Xyl VUUi » w 


instructions to follow 

ill w l i u vy li vy i i vy l vy i vy ■ i >y w v 


11 -Jul 


K 


IMFCP007 WO 

1 J VI L_Xa/l \J\J t • V V W 


instructions to follow 

ii i o Li LjIVvlix/i iv Lvy 1 v«y i ■ vy v » 


11 -Jul 


H 


IMFCP008 WO 

1 1 V 1 1 X-/ 1 vjvju. v v w 


instructions to follow 

ii ion Uvuvyi i o cw iuiivvi 


11 -Jul 


T 


IMFOP00Q WO 

1 1 v 1 1 Xy 1 x/x/*-/ . v v X-/ 


instructions to follow 

1 1 ion uuuvji io lw ivyiivy vv 


11 -Jul 


K 


SUN1P399 EP 

\J UIN 1 1 vy vy vy • L_ 1 


nat'l filina in EP fDE FR GB) (file in Julv) 

1 1 CI Ll IIIIIILJ III I— 1 \ l~y L_ f 1 1 \j V» ' 1— ' y ^1 1 1 w III V/MIJfy 


25-Jul 


T 


SCHIP002 WO 

vj Xy 1 111 vu^^v w 


nat'l filina in CN JP KR EP (DE FR IE IT GB) 

llCiLl 1 till IVJ III V-/ 1 ^IjVJI , 1 M ^i^yu^j I I Vj I I— ; 1 1 y ^* ' J 


28-Jul 


K 


^PHipnpp wo 


nafl filina in CN JP KR EP (DE FR IE IT GB) 

l la i I i nil ly ii i xyi n ,ur \,l.i v LyL_,i i \,il.,i i > v_-» i— » j 


28-JuI 


H 


oAMiTnn^/A 

OAIVII 1 UUO/A 


iraaemanx Tinny in cr, or, dnu au 


02-Aug 


K 


CAMIT002/A 


trademark filing in EP, JP, CA and AU 


02-Aug 


K 


SCHIP003.WO 


nat'l filing in CN,JP,KR,EP (DE,FR,IEJT,GB) 


22-Aug 


K 


SUN1P707.EP 


naf 1 filing in EP (DE,FR,GB) (file in August) 


31 -Aug 


H 


AVI1P003 


nat'l filings in DE and JP 


08-Sep 


K 


TRIPP030PX1.WO 


further instructions to follow - due 2/28/02 







06/06/2001 2:08 PM 



wiz_utils . pm 



################ 

# wiz_utils .pm 
5 # 

# A set of utility routines and global variables 

# which are useful for automating the wiard "back-end" 

# build proecss. These include: 
# 

10 # * Path names for all the Nios HDK source directories. 
# 

# * A handy subroutine for parsing named function arguments. 
# 

# * A handy subroutine for stripping Perl comments. 

15 # . . . n 

# * Routines for copying files and directories pla t form- independent ly . 

# 

# We would like to auto-flush our buffers in the new, fancy 
20 # way (using ->autof lush ( ) ) , but for now we'll do it in the 

# old, cryptic way (using $|), because we can't seem to find 

# our library modules . 
#use 10: : Handle; 

$|=1; # set flushing on STDOUT 

25 my $wiz_util_old_fh = select (STDERR); 

$|=1; # set flushing on STDERR 

select ($wiz__util_old_fh) ; 



use vpp; 
30 use ptf_update; 

use mk„custom_sdk; # Just to get f ormatted-print function "prmt_command. 

# — Inefficient. Sould put in some shared 

# module . 



35 

###### ########################################################## 

# Progress 

# 

40 # Prints-out a happy progress message in a standard format. 
# 

################################################################ 

sub Progress 

{ 

45 foreach $msg (&_) 

{ &print_command ($msg) } # Use DvB's unimprovable format. 

} 



50 $LEONARDO__EXEC = $ENV{ " SPECTRUM_ROOTDIR" } ; 

$LE0NARD0_EXEO~ s/\\/\//g; # I hate 'V. 

$ PERLr_PROGRAM_FILfE = $ENV{ " JPERL_PERL„CMD " } ; 

$PERL_PROGRAM_FILE = "perl" if 'defined ( $PERL_PROGRAM_FILE) ; 

55 

################################################################ 

# Build__Cmd_Line 
# 

60 # Turning a bunch of strings into a command-line isn't as easy 

# as one might think. First of all, it's safest to double-cjuote 

# every argument — especially since filenames might very well have 

# spaces in them. 



# 

# Second, clients may have already preemptively double-quoted 

# the arguments they're pas sing-around, so I want to be careful 

# to not put -another- layer of quotes on an argument if it's 

# already been quoted. 
# 

# and, finally, we want to do all this in a way that works 

# on 98/NT/2000/Solaris/HPUX. Whee . 
# 

# This function takes an arbitrarily- long list of strings, 

# each of which is taken as a single argument for a shell -command . 

# This function returns a single command-line (string) , which is 

# the union of all the arguments, separated by spaces. Each argument 

# may contain spaces . Each argument in the resultant command line 

# will be double-quoted. 
# 

# A single element in the list — may — consist of multiple command- line 

# arguments. If so, each one must be double-quoted, and they must 

# all be separated by spaces. 
# 

# This function also handles I/O redirection properly, and doesn't 

# molest (quote) I/O redirection specifiers (>,<,|,&) if they appear in 

# an argument all by themselves. 
# 

# > significant consideration: 

# 

# On Windows platforms, the "system" command WILL NOT WORK if the 

# command-name (Oth arg) is double-quoted. This is odd, since it 

# works fine at the interactive command line. Nevertheless, bitter 

# experience shows that perl's "system" feature will not work for 

# double-quoted program names. So we don't double-quote the program 

# name. This means that "Build.Cmd^Line" won't work for 

# program names with spaces in them. For the most part, for the 

# Nios HDK, this means (ahem) : 
# 

# PLEASE DO NOT INSTALL QUARTUS UNDER A PATH WITH SPACES IN IT. 
# 

# Thank you. 
# 

################################################################ 
sub Build._Cmd_JL.ine 
{ 

my @cmd_args; 
(@cmd_args) = (@_) ; 
45 

my @broken_args ; # Break-apart any already-double-quoted commands. 

foreach $argo (@cmd_args) 
{ 

50 # No quotes in argument: Just pass it along. 

push ( @broken__args , $argo) , next if $argo I- /\" /; 

# There has to be a double-quote at both ends of the 

# argument, or else it's not valid. Strip-off leading/trailing 
55 # quotes to make splitting easier: 

# 

$argo =~ s/"As*\ " ( . *> \ " \s*/$l/ or die 

"Build_Cmd_Line: Illegal use of double-quotes: 
[$argo] " ; 

60 

my @sub„args = split ( / \ " \s+\ " / , $argo) ; 
foreach $sub_arg (@sub„args) 

{ push ( @broken_args , $sub_arg) } 



} 



$result = " " ; 

foreach $argo ( @broken_args ) 
{ 

# Choke if there's a double-quote buried in the argument: 
$argo I- /[*\\]\"/ or die 

" ERROR: Build_Cmd_Line : argument contains double-cjuote : 
[$argo] . "; 

if ($result eq " " ) 
{ 

# First argument is special. We don't quote it, and it 

# can't have spaces. (See rant, above). 

$argo !~ As/ or die 

"It seems that you have installed Quartus in a 
directory-path which has spaces in its name: 

$argo 

The Nios HDK simply will not work under these 
conditions. It is very regrettable, and extremely 
sad. Yet, alas, it is also true."; 

$result = $argo . " " ; 
} else { 

# Not the first argument. 

# Quote it if it's not an I/O redirection thingamabob: 
$argo =~ s/\s* ( . *?) \s*/$l/ ; # strip leading/ trailing spac 

$argo = n \" " . $argo . "\" " if $argo =~ / [*\>\<\ | \&] / ; 

$ result .= $argo . " 

} 

} 

return $result; 

} 

################################################################ 

# Run_System_Command 
# 

# THE FIRST ELEMENT OF THE ARGUMENT LIST IS AN ERROR MESSAGE! 
# 

# You pass a -list- of arguments (some of which may contain 

# spaces) . This function builds them into a properly- formed 

# command line, runs the command-line via "system," checks 

# for an error, and prints an informative error message if it happens. 
# 

# If the system command results in an error, this function 

# does not return. 
# 

################################################################ 

sub Run_Sy s t em_C ommand 

{ 

my $ e r r o r_ms g ; 
my @cmd„args ; 

($error_msg, @cmd_args) = (@_) ; 
my $cmd_line = &Build_Cmd_Ljine (@cmd_args) ; 
my $num_words = scalar (@cmd_list) ; 



# comment-out these flusharoos until we can make IOrHanlde work. 
#STDOUT->autof lush(l) ; 

#STDERR->autof lush ( 1 ) ; 

5 my $run_banner =< <END_RUN_B AOTTER ; 

************************************************ 

* About to Run System Command: 

$cmd_line 

************************************************ 

10 

END__RUN_BANNER 

print STDOUT $ run_banner ; 
print STDERR M " ; 

15 

system ($cmd_line) -= 0 or die 

"ERROR ($?) running system command line. 
*** $error_msg 

[$cmd_line] " ; 

20 } 

################################################################ 

# Log 
# 

25 # Logs messages to either one, or both, of two log-files 

# at the same time . 
# 

# One log-file is a high-level "scorecard. " This file should 

# contain progress messages for "very big" operations only. 
30 # When your giant 72-hour regression test is complete, A 

# user should be able to print-out this file on a few pages 

# and determine, from 10, 000 feet, what happend and how it went. 
# 

# The second log file is lower-level progress report. It should contain more 
35 # fine-grained progress messages, but still nothing like 

# the aggregated STOUT and STDERR, which will be megabytes and 

# megabytes of crap. 
# 

# The first argument to this funciton is logged (with a times tamp) 
: 40 # to the scorecard file. Null strings ( " " ) are not logged. 

# The first argument is also logged to the progress report file. 
# 

# The second argument is logged (with a time stamp) to the 

# progress report. Null strings ( " " ) are not logged. 
45 # 

# **** Where are the log files? 
# 

# By default, the scorecard log messages will go to a file named 

# ". /scorecard. log" , and the progress report messages will go to a file 
50 # named 11 . /progress_report . log" 

# 

# (The messages are also emitted to STDOUT and STDERR) . 
# 

# There is not currenly any way to change the default behavior. 
55 #1 might do this someday if I have time. 

# 

################################################################ 

sub Log_Guts 

{ 

60 my $ 1 o g_f i 1 e_name ; 

my $msg; 

my $ do_t ime s t amp ; 

my $ do — s end_t o_s t dou t ; 



($log_f ile„name, $msg, $do_time stamp, $do_send_to_stdout } = (@_) ; 

return if ! defined ($msg); 
return if $msg eq 11 " ; 

my $time_string = localtime ( ) ; 
my $uber_msg = " $msg\n"; 

$uber_msg = " — > $time_string < — \n$uber_msg" if $do_time stamp; 

open (LOG_FILE, "» $log_f ile_name" ) or die 
"Log: Couldn't open $log_f ile_name : $ I " ; 
print LOG__FILE $uber_msg; 
close (LOG_FILE) ; 

if ( $do_send_to_s tdout ) { 

print STDOUT $uber_msg; 

} 

} 

sub Log 
{ 

my $score_msg; 
my $prog_msg; 

($score_msg, $prog_msg) - (@_J ; 

my $scorecard_file = $E3W{NI0S„SC0RECARD} ; 

my $progress_f ile = $ENV{NIOS_PROGRESS_REPORT} ; 

$scorecard__file = " . /score_card. log" if $scorecard_f ile eq 

$progress_file = " . /progress_report . log" if $progress_f ile eq " " ; 

my $progress_only = $score_msg eq " " ; 

&Log_Guts ($scorecard_f ile, $score_msg, 1, 1) ; 
&Log_Guts ($progress_f ile f $score_msg / 1, 0); 
&Log_Guts ($progress_f ile, $prog„msg, 0, $progress_only) ; 

} 

################################################################ 

# Find_SOPC_Component_Di rectory 
# 

# In an ideal world, a user would be able to take a system's PTF-file, 

# copy it to another computer (or directory) , and reproduce the 

# original system from it — even if the new computer has the 

# SOPC-Builder library installed in a totally different place. 
# 

# To accomplish this, we need to do "run-time binding" of the SOPC-Builder 

# library/ libraries . This means we have to go out and find them 

# when the user actually runs the tool, based on some kind of 

# search-path. 
# 

# The search-path is handed to us by the caller as one of those 

# dash-dash command-line arguments. If no search path is specified, 

# we use a sensible default (set up in " Process_Wizard_Script_Arguments , " 

# below) . 
# 

# This function uses the library-search path to find the correct 

# directory containing the given component-class name. 
# 

# It does so by going through all of the directories in the path and 

# looking for a -subdirectory- which contains a " class. ptf" file. If 

# we find one, we open it and see what "class" it is. We return the 

# -subdirectory name- in which we found the matching "class .ptf " file. 



# 

################################################################ 

sub Find_SOPC„Component_Di rectory 
{ 

my { $module_class , $path_string) = (&_) ; 

# Path- elements can be split by numerous oddball characters. 

# this might very well come in handy later: 
# 

my @path„dirs = split ( As* [\ f \ ; \ | ! \s*/ , $path_string) ; 

my $result = ""; # Subdirectory in which we found matching "class. ptf" 

foreach $dir (@path„dirs) { 

# It's polite to tolerate directory-names both with- and without 

# trailing slashes. If we see a trailing slash, we get rid of it: 

# (and we convert all evil backslashes into good forward-slashes. 
$dir =~ s|\\|\/|g; 

$dir =~ sj\/$| |g; 

# Get a list of all subdirectories. Actually, we just get a list 

# of all the files, and then ignore them if they're not 

# directories . 
# 

if (lopendir (DIR, $dir) ) { 

warn ("Couldn't open SOPC library directory '$dir' : $ ! 11 ) ; 
next; 

} 

my ^subdirectories = (readdir (DIR) ) ; 
closedir (DIR) ; 

foreach $sub_dir (©subdirectories) { 
my $sub_dir_path = " $dir/$sub_dir" ; 

my $class_ptf_f ilename = " $ sub_dir__path/ class .ptf " ; 

next if I-d $sub_dir_path; # Must be a directory... 

next if i-e " $c las s_ptf_f ilename" ; # with a class. ptf file. 

my $db_PTF_file = new_ptf_f rom_f ile ( $class_ptf_f ilename) ; 

next if t $db_PTF_f ile; # If we can't open it: forget i 

my $db_Class = &get„child„by_j?ath <$db_PTF„f ile, "CLASS" ) ; 

next if i$db_Class; # No 'class' section: forget it 

my $ f ound_c las s_name = &get_data ($db_Class) ; 
next if $f ound_class_name ne $module_class ; 

# If we got to here, then we've found a "class. ptf" file which 

# defines the class we're looking for. I suppose I could 

# do other checks, like look for a valid " MODULE_DEFAUIiTS " section, 

# but that's a slippery slope. For now, a "class. ptf" file which 

# defines the class we're looking for is good enoug. 
# 

$result = $sub_dir_path; 
last; 

} 

last if $result; 

} 

if (!$result) { 
warn ( " 

SOPC-Builder library component ' $module_class ' not found. 

Could not find a 'class. ptf file which defines 1 $module_class ' 



on the path: ( $path_string) \n" ) ; 

} 

return $result; 

} 



################################################################ 

# Process_Wizard_Script_Arguments 
# 

# At the top of each X-wizard script (mk_<X>.pl) there was 

# a little preamble of code which analyzed the PTF file and 

# set some global variables in a highly-ritualized way. 
# 

# Did someone say "highly ritualized?" This sounds like a job 

# for a subroutine. I'm so lazy. That's why I'm a good Perl 

# programmer. 
# 

# This is just a wrapper around &Parse_Named_Arguments which, 

# additionally: 
# 

# * Reads the "argments" to this script out of the (indicated) PTF file, 

# and re-phrases them as an argument list which is interpreted 

# by the aforementioned &Parse_Named_Arguments . 
# 

# * Sets the global variable $QUARTUS_PROJECT_DIR 
# 

# * Sets the global variable $ MODEL S IM_D I R 
# 

# * Returns a string of all the input arguments with the 

# equals-signs substituted with " equals " . 

# (useful for passing arguments down to PTF-file) , 
# 

# * "Decodes" spaces in input - argument s . 

# we've found that it's difficult to pass 

# script -arguments around if they contain whitespace. 

# solution: Replace " " with " jperl„space " . This 

# function does the reverse, acting as a receiver for 

# this sneaky encoding. 
# 

# This routine has one (and maybe later more) arg which is 

# always accepted: "wizard." This is saved-away in the PTF-file 

# and used by the wizards themselves later to figure out 

# who ran this funciton (which wizard) , and who should be called 

# when this device needs to be edited. 
# 

# The use of the term "arguments" in this function is a bit tricky. 

# There are really two distinct sets of things we call "arguments": 
# 

# 1) The actual arguments passed to this here function, which 

# specify the current working directory and PTF file and stuff . 
# 

# 2) The contents of the WIZARD_SCRIPT_ARGUMENTS" section of the 

# PTF file 
# 

# We have to process the type (1) arguments in order to -get at- the 

# type (2) arguments. The result of this function, a hash, is obtained 

# by opening the PTF file (based on the (1) arguments) and then recasting 

# the contents of the PTF-flile (the type (2) arguments) . How very 

# confusing. Sorry. That's what happens when there are multiple levels 

# of indirection. 
# 

$Process_Wiz__Args_Doc=<<END_OF_DOCUMENTATION_STRING ; 



[hippie] 



-tolerate unfamiliar arguments. 



* LONG NAME SHORT DEFAULT 
# 

* system_directory — none— 

* targe t__module_name name — none- - 

* systera_name --none-- — none— 

* sopc_di rectory — none-- — none— 

* s opc_l ib_path — none — — none - - 
generate — none-- 1 
verbose v 0 



DESCRIPTION 



Directory where system resides. 
Module being generated. 
Name of system being generated. 
Where the SOPC-Bldr is installed 
Where to look for lib dirs . 
"Yes, please do generate, please 
*bool* Extra blabbering output. 



# Just for sheer convenience, we also provide the client (caller) with 

# "fictitious" arguments called: 
# 

# class_directory — none-- — none — Where THIS component lib dir is. 
system_sim__dir sim_dir — none — If sim project, where to put it. 

END_OF_DOCUMENTATION_STRING 
# 

################################################################ 

sub Pr o ce s s_Wi z ard__S c r ip t_Argumen t s 

{ 

my ($arg__doc_string, @input_arg_list) = (@_) ; 

################ 

# Pre-process argument string. 
# 

# I thought I'd get a list of space-delimited arguments. 

# Instead, I just get one single argument, which is a big ol ' string. 

# I'll just write a little bit of code which works either way: 
my @intermediate„arg_list = ( ) ; 

my @quoted__string_list = (}; 

for each $in__arg (@input_arg_list ) 

{ 

while ($in_arg =~ s/\" ( ["V'l *) \ " / V _ARG_QUOTED_STRING \"/) 

{ 

push (@quoted_string_list , $1) ; 

} 

push (@intermediate_arg_list , split (/\s+/, $in_arg) ) ; 

> 

foreach $arg (@intermediate_arg_list ) 
{ 

while ($arg =- /\" ARG QUOTED STRING \ a /) 
I 

my $next_quoted_string = shift (@quoted_string_list ) ; 
$arg =- s/\ "_ARG_QUOTED_STRING_\ " /$next_quoted__string/ ; 

} 

push (@processed_arg_list , $arg) ; 

} 

################ 

# First, we expect to see a certain, predefined set of 

# incoming arguments . 
# 

# Note that these incoming arguments are re-interpreted as part of 

# our fictitious name=value "argument" list, as well as processed 

# directly here. 
# 

my @name„equals_jvalue_JList = (); 
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my $sys__dir = " 
my $sys_name = " 
my $mod_name = " 
my $lib_path = " 
5 

while ($arg = shift (@processed_arg_list ) ) 
{ 

# We expect arguments to be name=value pairs that begin 

# with double-dashes. Hmm. 

10 $arg =~ s/" — // or die "malformed argument: $arg" ; 

$arg =- /{[*=]+)=( [*=] * } / or die "malformed argument: $arg"; 
push (@name_equals_value_list , $arg) ; 
my $arg_name = $1 ; 
my $arg_value = $2 ; 

15 

$sys_dir - $arg_value if {$arg_name =~ /"system_directory/ ) ,- 
$sys_name = $arg_value if ($arg_name =~ / A system_name/) ; 
$mod__name = $arg_value if ($arg_name =- / A t arge t_modul e_name / ) ; 
$sopc_dir = $arg_value if ($arg__name =~ / A sopc_di rectory/ ) ; 
20 $lib_path = $arg_value if ($arg_name =~ / /v sopc_lib_j?ath/ } ; 

$verbose = $arg_value if ($arg_name =- / A verbose/); 

} 

# Library path default: 

25 # If no library path was specified, we use a sensible default: 

# 

if ($libj>ath eq " " ) { 

$lib path = " $sopc__dir/ components " ; 

push (@name_equals_value_list , " sopc_lib__path=$lib_path" ) ; 

30 } 

# This is a bit bogus, but it's a thing several people might need 

# to know, and which we can figure out here. 

push (@name_equals_value_list , "system_sim_dir=$sys — dir/$sys_name\_sim" ) 



ScProgress ("Extracting PTF info for $mod_name.") if $verbose; 

$msg ~ "Couldn't process PTF-file arguments for module $mod_name."; 
my $ptf _f ilename = " $sys_dir/$sys_name .ptf " ; 

&PTF_Translate_01d_Version ( $ptf_f ilename) ; # Update legacy files. 



my $db_PTF_File = &PTF_New_Required„Ptf„From„File ( $ptf_f ilename , $msg) 
my $db_Sys = &PTF_Get_Required_Child_By__Path ($db_PTF_File, 

45 " SYSTEM" , $msg) ; 

################ 

# The " - targe t__module_name" argument is special. If it has the 

# exact-same name as the system itself, then we get the 

50 # WIZARD_SCRIPT_ARGUMENTS from the SYSTEM section itself, instead 

# of one of its sub-modules . 
# 

my $db_Module = $db_Sys ; 

$db_Module = 5cPTF_Get_Required_Child__By_Path 
55 ( $db_Sys , "MODULE $mod_name" , "That ' s odd. " ) 

unless $mod„name eq $sys_name; 



my $db_Wiz_Args - &get_child_by_path ($db_Module, 

n WIZARD_SCRIPT_ARGUMENTS" ) ; 

################ 

# The fictitious " c las s__di rectory" argument 
# 



# We -wish- the user had passed us yet-another command-line argument 

# called " — class_directory" The user did not because it is, after 

# all, something we could figure out for ourselves. Please allow 

# me to demonstrate: 
# 

if ($mod_name eq $sys_name) 

# If We're generating the system (and bus) itself, then 

# the "class_directory" is just the directory in which the 

# system-builder library stuff lives: 
# 

# NOTE: JWIZ NAME CHANGE 

# The name of this directory should be changed when we 

# re-name all the components. I think. Maybe, 
push (@name_equals_value_list , 

"class_directory-$sopc__dir/bin" ) ; 

} else { 

# This is just an ordinary module, so we search for its 

# class-directory in the conventional manner: 

my $class = &PTF_Get„Required_Data_By_Path ($db_Module, "class") 

my $class_dir = &Find„SOPC_Component_Directory ($class, $lib_path) ; 
push (@name_equals_value_list, " class_directory=$class_dir " ) ; 

} 

################ 

# For compatibility with the old-style (and very powerful) 

# 5cParse_Named_Arguments function, we convert all the assignments 

# in the fetched WIZARD_SCRIPT„ARGUMENTS section into 

# a Perl-list of "name=value n strings. This lets us use all our 

# old, familiar argument -parsing -and- checking infrastructure. How 

# civilized. 
# 

my $num_wiz__args = &get_child„count ($db_Wiz_Args) ; 

for ($child_index = 0; $child_index < $num„wiz_args ; $child_index++) 

my $db_Arg = &get_child ( $db_Wiz_Args , $child__index) ; 
push ( @name_equals_value_list , 

&get_name ($db_Arg) . " = " . &get_data ($db_Arg) 

) ; 

} 

# Take spaces from Perl as a special token. This helps us smuggle 

# them past the command line. 
# 

# This is almost totally anachronistic, but c'est la vie, eh? 

# There's no reasyn really to quit doing this. 
# 

my $named_arg_string = join ( " , " , @name„equals_value_list) ; 

$named_arg_string =~ s/\n/ /mg; # form a single line, pleas 

$named_arg_string ~- s/ jperl_space / /g; 



my ($arg, $user_def ined, $table) = 

ScParse_Named_Arguments ( " $arg_doc_string \n $Process_Wiz_Args_Doc" 

$named_arg_string) ; 



# DELETE ME: 

# This code is obsolete. Anyone relying on these variables 

# is in grave danger. 
# 

$QUARTUS_PROJECT_DIR = $ $arg{ " system_di rectory 11 } or die 



"ERROR: No Quartus project diretory specified."; 



$QUARTUS_PROJECT_DIR s/\\/\//g; #Crush backslashes in project dir 
$QUARTUS„PROJECT_DIR =~s/\/$//; # strip trailing "/" from wd. 

$MODELSIM_DIR = " $QUARTOS„PR0JECT_DIR/$PROJECT_SIM_SUBDIR_NAME 

return ($arg, $ us er_de fined, $db_ Module, $db_PTF_File) ; 

} 



################################################################ 

# Perlcopy 
# 

# "cp" is different on every platform. Worse, sometimes you 

# get read-only files as a result, which is never what we want 

# (in this particular application) . 
# 

# One way to copy files is via a Perl-routine. This 

# routine opens the source-file, reads it into a list of lines, 

# closes it, opens the destination file, writes the list of lines, 

# then closes it . 
# 

# As an added bonus, you may pass-in an optional regexp which gets 

# applied to every line on its way through. Most people will 

# never use this, but it sometimes comes in handy. 
# 

# Crude, but effective. 
# 

################################################################ 

sub Perlcopy 

{ 

my ($src, $dest, $regexp) = (@_) ; 
$src =~ 

my $src_root = $1; 

# If the destination is given as a directory, add-on the 

# root filename . 

$dest .= $src_root if $dest =~ /[\\\/]$/; 
my @lines; 

open (SRC, "< $src") or die 

"Perlcopy: cannot open source file $src: $!"; 
while (<SRC>) { push (Klines, $_) } 
close (SRC) ; 

open (DST, "> $dest") or die 

"Perlcopy: cannot open destination file $dest: $!"; 

foreach $line (Klines) { 
if ($regexp) { 

eval ("\$line =- $regexp u ); 

die "Perlcopy error ($@) evaluating expression: $regexp" if $@; 

} 

print DST $line; 

} 

close (DST) ; 

} 

################################################################ 
# CopyDir 



# 

# Copies all files in the $src directory to the $dest directory. 
# 

################################################################ 

sub CopyDir 

{ 

my $src; 
my $dest; 

($src, $dest) = (@_) ; 

$dest =~ /[\\\/]$/ or die 

"ERROR: CopyDir destination ($dest) must be a directory."; 

opendir (DIR, $src) or die 

"ERROR: CopyDir can't open directory $src: $!"; 

my $fname; 

while (def ined($fname = readdir (DIR) ) ) 
{ 

next if $fname =-* 

&Perlcopy ( " $src/$fname 11 , $dest) ; 

} 

closedir (DIR) ; 

} 

################################################################ 

# Create_Dir_lf_Needed 
# 

# The name pretty much says it all, don't it? 
# 

################################################################ 

sub Create__Dir__If_Needed 

{ 

my $DIR_NAME; 
{ $DIR__NAME) = ; 

if (!-e $DXR_NAME) 
I 

# 511 is octal '111 1 . No one here can 

# figure out how to make an octal number. 
# 

mkdir ($DIR_NAME, 511) or die 

"Error creating dir $DIR_NAME : $1"; 

} 

} 

################################################################ 

# Copy_JTool_Control_Files 
# 

# Some of the more complex wizard-generated modules have, 

# for example, "black boxes*" Others have RAM or ROM components. 

# All of these things are rather tricky to support, 
# 

# A scheme has been devised for synthesizing, compiling, and 

# simulating "complex" components containing black-boxes and 

# such. The details of this scheme are beyond the scope of this 

# comment. Suffice it to say that the scheme requires the presence 

# of a variety of "magic" files in the project directory. 
# 

# This function copies all the "magic" files needed to 

# support complex components. One-stop shopping. For some 

# not -so -complex components, you may end up with more files than you 



# really needed. That wouldn't be the end of the world. 
# 

# You pass-in (a reference to) the %arg-hash used by mk„syst embus . 

# That contains special entries telling us where all the various 

# directories are. 
# 

##### ########################################################### 

sub Copy_Tool„Control_Files 

{ 

my ($arg) = (&_) ; 
################ 

# If you aren't simulating, you realy only need one file: 

# good ol' "leonardo_def ine.v" 
# 

# If you are simulating, then we do some extra work to set up 

# the simulation directory. 
# 

# We used to use Perlcopy to move a flat-text version of leonardo_def ine . 
) # into project directory. Unfortunately, now we need to explicitly spit 

# out, so that it may be encrypted, if need be. 
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# 



&Perlcopy ( " $$arg{sopc_directory} /bin/vpp/leonardo„def ine . v" , 



# H $$arg{system_directory}/" ) ; 



open < ALTERA JFILEHANDLE, "> $ $arg{ system_di rectory} /leonardo_def ine . v 
or die "Unable to open $$arg{system_di rectory} /leonardo_def ine.v" 
print ALTERA__FILEHANDLE " $GLOBAL_COPYRIGHT_NOTICE\n" ; 
print ALTERA_F ILEHANDLE " Me fine LEONARDO_SPECTRUM true"; 
3 close ALTERA„F ILEHANDLE ; 



return unless $$arg{do_build_sim} ; # > Adios, muchachos I <- 

&Debug (0, "Copying simulator files to $$arg{system_sim_dir} " ) ; 



################ 
# Build simulation directory, copy-in a few special files; 
# 

&Create_Dir_If_Needed ( $$arg{system_sim_dir} ) ; 
-0 &Create_Dir_If_Needed ( " $$arg{ system__sim_dir} /work" ) ; 



&Perlcopy 

{ »$$arg{sopc_directory}/bin/vpp/modelsim_def ine.v" , 
" $$arg{system_sim_dir} / " ) ; 

&Perlcopy 

( " $ $arg { sopc_directory } /bin/modelsim_support / test_equipment . v " , 
" $ $arg{ system_sim_dir} / " ) ; 



50 &Perlcopy 

{ "$$arg{sopc„directory} /bin/model sim_support/_inf o" , 
n $$arg{system_sim_dir}/work/" ) ; 

# Copy over the magic "sim.mpf" file, with one substitution: 
55 my $test_bench_name = " $$arg{system_name}_test_bench" ; 

ScPerlcopy 

( "$$arg{sopc„directory}/bin/modelsim_support/sim.mpf " / 
" $ $ ar g { sy s t em_s im_di r } / $ t e s t_bench_name . mp f " , 
" s / SOPC_TEST_BENCH_JSTAME / $ t e s t_bench_name / g " 
60 ) ; 



################################################################ 



# Firm_Flip_Flop Renaming. . . 
# 

# We have to create a bunch of custom variants of the file 

# l! Firm_Flip_Flop.v t, The Nios core uses three variants: 
5 # 

# Address„Out„Reg 

# C on t r o l_Ou t_Reg 

# Data_In_Reg 
# 

10 # The system-bus module creates yet more. 
# 

# All our "firm flip flop" WISIWYG register modules get the same 

# processor-name prefix as all the rest of the Verilog files. 

# We use the port list from "Firm_Flip_Flop" to build-up port lists 
15 # for its (identical) variants. The reason we need these variants 

# at-all is because they will end up with different .esf -files. That 

# all gets handled at the PBM-level, though. The Nios core itself 

# can't know whether or not these signals go off -chip. 
# 

20 # The firm flip-flop file gets created via a call to VPP. 
# 

# THIS SUBROUTINE CALLS &Vpp . 
# 

# DO NOT CALL THIS SUBROUTINE FROM WITHIN &Vpp, because 
25 # &Vpp is not reentrant. 

3 !############################################################### 

11 sub Create„Firm_Flip_Flop_Variant 

e { 

S30 my ($system_directory, 

7 $sopc_di rectory, 

L $part_ type , 

f @variant_names) = (@_) ; 

35 die "ERROR Create_Firm_Flip_Flop„Variant: PART_TYPE SETTING ($part_type) 

3 NOT SPECIFIED " 

II unless ($part_type) ; 

:= foreach $variant_name (@variant_names) 

Uo { 

&Vpp ("-Q", 

^ "-O" , " $sy st em_di rectory /Svari an t„name .v" , 

" FIRM_FLIP_FLOP_MODULE_NAME = $variant_name H , 
"PART_TYPE = $part„type" , 
45 # NOTE: HARD DEPENDENCY ON NIOS COMPONENT 

# It would be a good idea, in the future, for 

# this function to be un- linked from the exact 

# location of the nios -component library directory. 

# Make no mistake: It's done this way because of 
50 # expediency and safety. Many an evil has been 

# committed in the name of meeting the ship-date, 

# and this is a case-in-point . It's defensible since 

# this is, after all, the Nios kit. If there's no 

# nios -component , it's not much of a kit. 
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«$sopc„directory/components/altera„nios/vpp_source/f irm_f lip_f lop . vpp ,f , 
) ; 

} 

} 

################################################################ 

# Create_ESF_File 

# 



# Creates an ESF-file which contains the text you specify as 

# its body. 
# 

# You can create multiple ESF-files at the same time, all with the 

# same body, by passing-in a list of filename (roots ) . 
# 

################################################################ 

sub Create_ESF_File 

{ 

my ($esf_body / $system_directory, @root_f ilename_list) = (@_) ; 

foreach $esf_f ilename__root (@root_f ilename_list ) { 

my $esf_name = " $system_directory/$esf_f ilename_root .esf " ; 

open (ESF_FILE, "> $esf_name") or die "couldn't open $es£_name: $!"; 

print (ESF_FIIiE " \n 

0PTI0NS_FOR_INDIVIDUAL_NODES_0NLY 

{ 

$esf_body 

} 

"> ; 

Close (ESF_FILE) ; 

1 

} 

################################################################ 

# Get„Direction_From_Avalon_Type 
# 

# Given one of those crazy Avalon port-type strings, this function 

# tells you whether the port is an input, an ouput, or an inout . 
# 

################################################################ 
sub Get_Direction_From_Avalon_JType 

{ 

my ($crazy_type) = {©_) ; 

die "badly- formed port type specifier: $crazy_type" unless $crazy__type 

/ (master | internal | external ) _ ( input | output | inout ) _? ( shared_) ?(.*)/; 
return $ 2 ; 

} 



################################################################ 

# PTF_Eval_Expr 
# 

# If you have an assignment -value from a PTF-file, 

# this subroutine trys to evaluate it as a numerical expression. 

# This is handy for converting hex-values to "real numbers," 

# for example- -or even allowing users to put hones t-to-Pete 

# arithmetic expressions in their PTF-files: 
# 

# IRQ_Number = "36 + OxC"; # Valid when evaluated. 
# 

# Sometimes, numeric fields can have special marker-values, 

# like "N/A" or "peripheral-controlled" . We give the caller option 

# of specifying a list of such "special" values, which we return 

# unmolested. 
# 

# The user may also optionally provide a description, which is 

# handy for error-reporting. 
# 

################################################################ 



sub PTF_Eval_Expr 
{ 

my ($ value, $description, @special_yalues) = (@_) ; 

foreach $ special (@special__values) 

{ return $value if $value eq $special; } 

$description = " <unknown> " if $description eq ""; 

my $result = eval ($value) ; 

my $msg =«EOM; 

Error: Could not evaluate the following expression: 
$value 

This nasty little expression was found in the 
PTF data under this path: 

$description 

When I tried to evaluate said nasty little expression, 
I got this here error: 

EOM 

die $msg if $@; 
return $ result; 

} 

################################################################ 

# PTF_Get_Boolean_Data_By_Path 
# 

# Fishes value out of PTF-file, then validates to make 

# sure it's boolean. 
# 

################################################################ 

sub PTF__Get_Boolean_Data_By_Path 

{ 

my ($ptfRef, $path, $default) = (@_) ; 

my $data - get_data_by__path ($ptfRef , $path) ; 

return &Vpp_Validate_jBoolean ($data, $path, $default) ; 

} 

################################################################ 

# PTF_Get_And__Evaluate_Data_By_Path 
# 

# Gets indicated value out of PTF, then 

# tries to evaluate it using PTF_Eval_Expr , above. 
# 

################################################################ 

sub PTF_Get_And_Evaluate_Data_By_Path 

{ 

my ($ptfRef , $path, @special_values) = (@„) ; 
my $data = &get_data_Jby_path (@__) ; 

&PTF_Eval_Expr ($data, $path, @special_values) ; 

} 

################################################################ 

# PTF___Get__Required_Data_By_Path 
# 

# Just like ptf^parse's r 'get„data_by_path, " except that 



# we print a nasty error message and die if the data 

# we requested isn't there. 
# 

################################################################ 

sub PTF_Get_Required_Data_By_Path 

{ 

my ($ptfRef , $path, $ err orjcues sage) = (@_) ; 

my $result = get_data_by_path ( $ptf Ref , $path) ; 

if {$result eq " " ) 
{ 

my $ptfName = &get_name ($ptfRef) . " " . &get_data ( $ptf Ref ) ; 
my $msg =«EOM; 
Error: $ err or_mes sage 

Required assignment : 
' $path' 

was not found in PTF section: 
' $ptf Name ' 

EOM 

die $msg; 

} 

return $result; 

} 

################################################################ 

# PTF_Get_Required_Child_By_Path 
# 

# Just like ptf__parse's "get_child._by_path, " except that 

# we print a nasty error message and die if the child 

# we requested isn't there. 
# 

################################################################ 

sub PTF_Get_Required_Child_By_Path 

{ 

my ($ptfRef , $path, $error_message) - (@_) ; 

my $result = get_child_jDy_path{ $ptf Ref , $path) ; 

if ($result eq " " ) 
C 

my $ptfName = &get„name ($ptfRef) . " n . &get„data ( $ptf Ref } 
my $msg =«EOM; 
Error: $error_message 

Required PTF section: 
1 $path ■ 

was not found in PTF section/ f ile : 
' $ptfName * 

EOM 

ribbit $msg; 

} 

return $result; 

} 

################################################################ 

# PTF_Build„Hash__From_Secti on 
# 

# Suppose you want to read -all- the data in some particular 

# section of a PTF , and build a corresponding hash of values. 

# That's exactly what this function does. It builds the hash, 

# then returns a reference to it . 



# 

# This function is intended to gather data from "simple" sections 

# (ones that don't contain other sections). If it encounters 

# a child section, it displays a warning, and does the best it can 
5 # with the result hash {the body of any child-section is ignored) . 

# 

# If the section you asked for doesn't exist, this function 

# dies with an error — unless you specifically ask it not to. 
# 

10 # The "path" argument is optional — if you omit it, then 

# we just convert "$ptfRef" into a hash. 

sub PTF_Build_Hash_From_Section 
15 { 

my (SptfRef, $path, $strict) = (@_) ; 
$strict = 1 if $strict eq 

my $<ib„Section = $ptfRef; 
20 if {$path ne " " ) { 

if ($strict) { 

$db_Section = &PTF„Get„Required_Child_By„Path ($ptfRef , $path) ; 
} else { 

$db_Section = &get_child„by_path ($ptfRef, $path) ; 

25 } 

i > 

3 my %result_hash; 

1 my $num_children = &get_child_count ($db„Section) ; 

l30 for (my $child__index = 0; $child_index < $num_children; $child__index++) 

2 ^ my $db_Child = &get_child ( $db_Section, $child_index) ; 

* goldfish (" 

35 PTF_Build_Hash__From_Section: encountered suspicious 

3 sub-section in $path. 

1 ") if &get„child_count ($db_Child) 1=0; 

* $result_hash{&get_name($db_Child) } = &get_data ($db„Child) ; 

I > 
;40 

: return \%result_hash; 

} 

### ^############################################################ 
45 # PTF_New„Required_Ptf__From_File 
# 

# Just like ptf_parse's n new_j?tf_f rom_f ile, " except that 

# we print a nasty error message and die if the file 

# can ' t be opened . 
50 # 

################################################################ 

sub PTF__New_Required_Ptf_From_File 

{ 

my ($filename, $error_message) = (@_) ; 



55 



my $result = new_ptf _f rom_f ile ($filename) ; 



if ($result eq " " ) 
{ 

60 my $msg =«EOM; 

Error : $ er r or_me s s age 
Required PTF file: 
* $ filename * 



could not be opened. 



EOM 

die $msg; 

5 } 

return $result; 

} 

##################### ########################################### 
10 # PTF_Check_Bool 
# 

# So you have a value in a hash. You got this value out of a PTF 

# file, and you think it 1 s a string representing a boolean 

# setting (e.g. a string that says "TRUE" or "FALSE." Instead, 
15 # you'd rather have a testable boolean value (or an error, if 

# the string is something weird) . 
# 

# That's what this function does. 

sub PTF_Check_Bool 

my ($hash_ref, $var_name, $def ault_value) = (@_J ; 

25 $$hash_ref {$var_name} = &Vpp_Validate_Boolean ( $$hash_ref { $var_name} , 

$var_name , 
$def ault_value) ; 

} 

% #############################################^*### ############# 
# PTF_Allow 



f # So you have a value in a hash. You got this value out of a PTF 

# file, and you think it's a string which can have one of only a few 
35 # restricted values. Wouldn't it be nice to check? 

I # 

= # That's what this function does. 

>i # If you pass-in a null value (i.e. the setting doesn't exist in the 

^40 # PTF-file) then this function will return without an error. Checking 
4 # to be sure a setting has a legal value is different than checking 

# to be sure a setting is, in fact, set. 

!############################################################### 

45 sub PTF__Allow 
{ 

my ($hash_ref, $var_name , @allowed_values) = (@„) ; 

my $value = $$hash_ref {$var_name} ; 
50 return if $ value eq " " ; 

foreach $allowed <@allowed_values) 
{ return if $value eq $allowed; } 

55 die "Illegal value for $var_name setting; $value" ; 

} 

################################################################ 

# PTF_Eval 
60 # 

# So you have a value in a hash. You got this value out of a PTF 

# file, and you think it's a string representing a numerical 

# setting (e.g. a string that says "3" or "Oxlffff" Instead, 



# you'd rather have the raw number (or an error, if 

# the string is something weird. 
# 

# That ' s what this function does . 
# 

################################################################ 
sub PTF_Eval 
{ 

my ($hash_ref, $var_name , @special_values) = (@_J ; 

$$hash_ref {$var_name} = S=PTF_Eval_Expr ( $$hash_ref {$var_name} , 

$var__name , 
@special__values) ; 

} 

################################################################ 

# PTF_Require 
# 

# Given a hash which was extracted from a PTF-section, validates 

# that the indicated member is present (non-NULL) . If not, it 

# prints an error message . 
# 

##### ############################################################ 
sub PTF„Require 
{ 

my ($hashref f $assignment_name) = (@J ; 
return if $$hashref {$assignment_name} ne " " ; 

die "Required assignment ( $assignment_name) not found in PTF."; 

} 

##### ########################################################### 

# PTF__Default 
# 

# Given a hash which was extracted from a PTF-section, validates 

# that the indicated member is present (non-NULL). If it is NULL, 

# then we give it a default value and print a polite warning. 
# 

################################################################# 
sub PTF_De fault 
{ 

my ($hashref, $assignment_name, $def ault_yalue) = (£__.) ; 
return if $$hashref {$assignment„name} ne " " ; 

45 $$hashref {$assignment_name} = $def ault_value; 

print STDERR 

"Warning: PTF assignment ( $assignment_name) missing, 
set to default value ( $def ault_value) \n" ; 

50 } 



##### ########################################################### 

# Add_Module_Ports_To_PTF 
55 # 

# Suppose you've just generated a module using Vpp. Further suppose 

# that this module has its very-own MODULE section in a PTF-f ile 

# someplace. Obviously, you want the PORT_WIRING section in said 

# PTF-f ile section to agree with the actual Verilog ports on the 
60 # module. 

# 

# Why, this very function right here takes your module (by name) and 

# uses its' pre-declared "&List_Ports_For " -ports to create a correct 



# PORT_WIRING section in the PTF section. 
# 

# You have to pass -in a reference to the PTF-section you want 

# modified, as well as the name of the module whose ports you want 
5 # to describe. 

# 

################################################################ 
sub Add_Module_Ports_To_PTF 

{ 

10 my ($db_Module, $module_name) = (@_) ; 



20 



my 



@port__list = &Get_Port_List ( $module_name) ; 



# Error-checking. How polite. 
15 scalar (@port_list) != 0 or die 

" Add_Module_Ports_To_PTF : 
No port list found for module named $module_name" 



&delete_child ($db_Module, " P0RT_WIR1NG" ) ; # Out with the old. 

foreach $port (@port_list) { 

foreach $attrib (&Get_Port_Attribute__List ($module_name, $port) ) { 



next if $attrib eq "name"; # Already got the name, thanks. 

25 &add_child_data ($db_Module, 

2 "PORTJfflRING/PORT $port/ $attrib" , 

f] &Get_Port_At tribute ( $module_name , $port, $attr 

-i ) ; 

r= } 

•'30 } # END : foreach $port . . . 

;;' > 

3 ################################################################ 

n # Add_Synthesis_Files_To_PTF 

35 # 

" # Suppose you have a MODULE section in a PTF file, and you want 

h # to fill-in the HDL„INFO section with a list of HDL (probably Verilog) 

H. # 

-e # This is your function, pal. You just pass a reference to the PTF 

;;;40 # MODULE section and a list of filenames. We do the rest (which, 
# truth to tell, isn't much) . 

~~' # 

################################################## ############## 
sub Add_Synthesis_Files_To_PTF 

45 { 

my ($db_Module, @hdl__f iles) = (@_) ; 

&Add_HDL_INFO_Files„To_PTF ( $db_Module , 

"Synthesis_HDL_Files n , 
50 @hdl_f iles) ; 

} 

################################################################ 

# Add_HDL_INFO__Files_To_PTF 
55 # 

# Suppose you have a MODULE section in a PTF file, and you want 

# to fill-in the ,, HDL„INFO/<XXX>" assignment with a list of 

# files. 
# 

60 # This is your function, pal. You just pass a reference to the PTF 

# MODULE section and a list of filenames. We do the rest (which, 

# truth to tell, isn't much). 
# 



################################################################ 

sub Add_HDL_INFO_Files_To_PTF 
{ 

my ( $db_Module, $ ass ignment__st ring, @file_list) = (@_) ; 

my $f ile_list_string = join ( n , " , @f ile_list) ; 
&add_chi ld__da t a { $ db_Module , 

"HDL_INFO/$assignment_string" , 

$ f i 1 e_l i s t_s t r ing 

) ; 

} 

################################################################ 

# Fill_In_Sections_And_Save_PTF_File 
# 

# Suppose you've just generated a module using Vpp. It's not 

# a super-complicated module — it's just a simple module 

# contained on one (1) simple verilog file with a simple set of 

# ports. 

# 

# Further suppose you have a PTF-file with a MODULE section corresponding 

# to the module you just now generated. 
# 

# You're responsible for filling-in these sections: 
# 

# PORTJWIRING 

# HDL_INFO 
# 

# So that they accurately describe the module you just built. 

# This function does exactly that, given nothing more than 

# a reference to the PTF-file and another reference to the $args 

# taken by your modlue (the very-same "$arg" hashref returned by 

# ScProcess_Wizard_Script_Arguments) . 
# 

# To do all this work for you, we make some assumptions: 
# 

# 1) As part of your Vpp -generation, you did a "&List_Ports_For" 

# describing your module's I/O pins. 
# 

# 2) Your module is named as-described in $$arg{name} . 
# 

# 3) It is defined in a VERILOG file of the same name (ending in 

# ",v" , of course, and said file is in the $QUARTUS_PROJECT_DIR. 
# 

# 4) This one file is used for both simulation -and- synthesis. 
# 

# 5) There aren't any other HDL files, or any other trickiness . 
# 

# If so, this function does the generic " f ill-in-the-blanks " work 

# in the PTF-file. If your module needs something more complicated 

# than this, then you can call some of the (rather obvious) sub-functions 

# yourself with different arguments . 
# 

################################################################ 

sub Fi 1 l_In_S ec t i ons_And_Save_PTF_Fi 1 e 

{ 

my ($db_PTF_File, $arg, @HDL_f ile_list ) = (@_) ; 

ScProgress ("Updating PTF section for module: $$arg{name} . " ) 
if ( $$arg {verbose} ) ; 



# if the user didn't supply a list of files, then we just use 



# the obvious top-level module name for the entity under constructs 
SHDL_file_list = { ,, $$arg{system_directory}/$$arg{nanie} .v" ) 
if (scalar (@HDL_f ileJList) == 0) ; 

my $db„Module = &PTF_Get_Required_Child_By_Path 

($db_PTF_File, 
" SYSTEM/ MODULE $ $arg{name} " , 
"X could have sworn I saw $$arg{name} in 
here ! " ) ; 

&Add„Module_Ports„To_PTF ($db_Module, $$arg{name}) ; 

£cAdd_Synthesis_Files_To_PTF ($db_Module, @HDD_f ile_list ) ; 
&write_ptf_file ($db_PTF„File) or die 

"Couldn't write PTF File when generating $$arg{name} " ; 



#####################################^*### ###################### 

# Is_Absolute_Path 

# 

# Return 1 (true) if it is, and 0 (false) if it ain't. 

sub Is_Absolute_Path 
{ 

my ($f ilename) = (@_) ; 
$filename =~ s|\\|\/|sg; 
$f ilename =~ sj^Xs+jjsg; 
$f ilename =~ sj\s+$||sg; 

return 1 if $f ilename =~ /*\//; # Starts with a slash, 

return 1 if $f ilename =~ / A [*\/]+W; # Some sort of drive-specif i 

return 0; 

> 

################t######### ###################################### 

# Get_Base_Fname 

# . 

# Given a filename which might contain a path, strip-off 

# the directory-part, leaving only the "base" filename part. 

sub Get_Base„Fname 
{ 

my ($f ilename) = (@_) ; 

$filename =~ / . *? ( [~\\\/] + ) $/ ; 
my $base = $1; 
return $base; 

} 



1; 



# Modules must say "1 K — mustn't they? 



mk_ram.pl 



################ 

# mk_ram.pl 
# 

# 

# This Perl-script is the " Genera tor_Program" 

# for the SOPC-Builder component class "altera.avalon^ram" . 

# , 

# This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart ' s generator program. 

# It is in a file named "mk_uart.pl" 
# 

use wiz_convert ; 
use wiz_utils; 

##### ########################################################### 

# Mk_RAM 
# 

# Builds a Nios on-chip RAM from a list of named arguments. 
# 

$Mk„RAM_Doc=«END_OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 



Contents —none— blank * (blank) germs | user_file) * init? 

Writeable writeable 1 *boolean* RAM or ROM? 

Init file file — none — Either . srec or .mif from user. 

END_OF_D 0 C UMENTAT I ON_STRING 
# 
# 

################################################################ 
sub Mk_RAM 

{ my ($arg, $user_def ined, $db_Module, $db_PTF_File) - 

&Process_Wizard_Script_Arguments ( $Mk_RAM_Doc , @_) ; 

^Progress ("Generating logic for: $$arg{name} . " ) ; 

my $SBI = &PTF_Build_Hash_From_Section ($db_Module, « SYSTEM_BUILDER_INFO" ) 
&PTF_Eval ($SBI, n Address_Width" ) ; 
&PTF_Eval ( $SBI , "Data_Width" ) ; 
45 &PTF_Eva 1 ( $ SBI , " Addr e s s_Span " ) ; 

# We have to poke-around in the SYSTEM'S WSA section to find 

# out whether we shoudl create a simulation model or not: 
# 

50 my $Sys„WSA = &PTF__Build_Hash__From_Section 

( $db_PTF„File , " SYSTEM/ WIZARD_SCRIPT_ARGUMENTS " ) ; 



################ 

55 # a bit of validation to make sure the number of address bits 

# is sensible for the given memory size: 
# 

my $byte_size = $$SBI {Address__Span} ; 

my $max__byte_size = 2**$$SBI{Address_Width} * ( $$SBI{Data_Width} / 8); 



60 



$byte_size <= $max_byte_size or die " 

Address__Width ( $$SBI {Address_Width} ) too small for memory 
$$arg{name} with $byte_size bytes \n" ; 



my $depth = $byte_size / ( $$SBI{Data_Width} / 8) ; 



my $required_address_width = &Bits_To_Encode ($depth - 1) ; 

$required_address_width == $$SBI{Address_Width} or warn " 
Suspicious address-width ($$SBI {Address_Width> for 
Memory $$arg{name} . A memory with $depth entries only requires 
$required_address_width address bits.\n"; 



################ 

# Deal with Contents: 
# 

# The "conents" of this memory always come from a file, 

# Even if we have to generate a blank one on the spot. 
# 

# The original contents-file can be either SREC or MIF, 

# and we should not assume that it ' s the same width as the 

# memory we're building (dealt with later, below) . 
# 

my $contents_f ile_name = " " ; 

if ( ($$arg {Contents} =~ /germs/i) ) { 

# Build a custom germs -monitor , here-and-now. 
$contents_f ile_name = " $$arg{system_directory} / " ; 

$ content s_file_name . = " $$arg{system_name}_germs_monitor .mif " ; 

&Check_For_Other_Germs__Monitors ($$arg{name) , $db_PTF_File) ; 

} elsif ($$arg{ Contents} =~ /user_f ile/i) { 

# Three things can happen: 

# 1) It * s an S-record: Convert it. 

# 2) It's a MIF-file: Use it. 

# 3) Huh?: Die. 
# 

$contents__ f ile_name = $$arg{Initf ile} ; 
$contents_f ile_name =~ /\ . (srec |mif ) $/ or die " 

Memory $$arg{name}. 1 Initfile 1 must be .srec or .mif. 
Got: $contents_f ile_name\n" ; 

} else { 

# Must be blank. Make a blank mif -file 

$contents_f ile_name = &Generate__Blank_Mif_jFile ($arg, $SBI, $depth) ; 

} 

# Before we convert the contents -file, see if we need to break it into 

# lanes or not: 

my $num_lanes = 1 ; 

my $lane__width = $$SBI {Data_Width} ; 
if ($$arg{Writeable}) { 

$num_lanes = $$SBI {Data_Width} / 8; 

$lane_width = 8; 

} 

# I choose to name my converted mif-file "Me, Jr.": 

my $mif__name = " $$arg{ system_di rectory} /$$arg {name} .mif " ; 

# It's possible that the input mif -file isn't the same 

# width as the memory we're building. Whether it is or not, 

# we run n nios -convert . " That way, we're sure. 

my $convert_cmd = " $$arg{sopc_directory} /bin/iperl" ; 
$convert_cmd .= " -I$$arg{sopc„directory} /bin/ 11 ; 

$convert_cmd . = " -x $$arg{sopc_directory} /bin/nios-convert .pi " ; 



$convert_cmd . = " $contents„f ile_name " ; 
$convert_cmd .= " $mif__name " ; 
$convert_cmd .= " --width=$lane_width" ; 
$convert_cmd .= " — lanes=$num_lanes " ; 

5 

my $error_code = &System_Win98_Saf e ($convert_cmd) ; 
if ($error_code 1= 0) { 

print STDERR " Error converting initialization file for 

$$arg{name} \n" ; 
10 print STDERR " $contents__f ile_name\n" ; 

if ( $$arg {Contents} =~ /germs/i) { 

die " (Perhaps the Nios SDK is not installed? ) \n" ; 

} 

15 else { 

print STDERR " To build a 'placeholder 1 memory with no init 

file,\n" ; 

print STDERR " specify 'Blank' in the On-Chip Memory 

MegaWizard. \n" ; 
20 die; 

} 

} 

# The end result of all that f ooling-around is either: 
25 # * A single mif-file named "$mif_name." 

# * Multiple mif -files, one-per-lane . 
# 

# Either way, we pedantically make a "list" out of it/ them. 
# 

30 my @mif f ile_list = (); 

if ( !$$arg{Writeable}) { 

push (@mif f ile_list , $mif_name) ; 
} else { 

35 my $base_name = $mif_name; 

$base_name =~ s/\.mif$//i; 

for (my $i = 0; $i < $num_lanes; $i++) { 

push (@mif f ile_list , " $base_name\_lane_$i .mif " ) ; 

} 

40 } 

################ 

# Convert all that crapola to .dat-files, if simulation is 

# required. Now you see why, above, we made a list of all MIF-files, 
45 # in the ROM case, when there was only one file. 

# 

# Everything else in here handles our contents -file by its full 

# or relative path (whatever $arg{system_di rectory} is) . But 

# here, we do something special to "hide away" the .dat-files 
50 # in their own secret directory. 

# 

my %datf ile_hash; # Save dat-file names in here, indexed by mif-file. 
if ($$Sys„WSA{do_build_sim}) { 

^Progress ("Converting simulation file(s) for $$arg{name} " ) 
55 if $ $arg {verbose } ; 

foreach $mif_file (@mif f ile„list) { 
my $dat_name = $mif_file; 

$dat_name =~ s/ .*?( [ A \\\/] +) $/$!/; # Strip-off leading path 

60 $dat_name =~ s/ \ .mif / \ . dat/i ; # Change extension 

&Convert_Mif_To_Dat ($mif_f ile, 11 $$arg{system_sim_dir} /$dat_name" ) ; 
$datf ile_hash{$mif_f ile} = $dat__name; 



} 

} 



my $top_file = " $$arg{ system_di rectory} /$$arg{ name} .v M ; 
my @synth_f ile_list = ($top_file) ; 

################ 

# Now run vpp. 
# 

# notice that we build two entirely-different things, 

# depending on whether this is a RAM or a ROM. 
# 

# That is a true fact. You might have done it differently. 

# but -you- were comfortably asleep in your nice, warm bed 

# while -I- was doing it. 
# 

if <$$arg{Writeable}) { 

# Run Vpp several times to make the byte-lane modules. 

# Regrettably, there must be multiple separate black-boxes 

# because the synthesis tool doesn't handle parameterization^ 

# correctly and, obviously, each lane has a different init-file 

# parameter. And since there is one black-box per lane, there 

# needs to be one -file- per lane, because Quartus resolves 

# (fills-in) black-boxes by -filename. - 
# 

for (my $i = 0; $i < scalar (@mif f ilejist) ; { 
my $mif_file = $mif f ile_list [ $i] ; 

my $lane_module_name = " $$arg{name}_lane_$i" ; 

my $lane_file_name = " $$arg{system_directory} /$lane_module„name . v 
push (@synth_file_JList / $lane„f ile_name) ; 

&Vpp ("-Q" , 

" -0" / " $lane_f ile__name" , 

" ONCHIP_RAM„LANE_MODULE_NAME = $lane_module_name " , 
»0NCHIP_RAM_WIDTH = $$SBI {Data_Width} " , 

"ONCHIP_RAM_DEPTH = $depth" , 

"ONCHIP_RAM_MIF_FILE = $mif_f ile" , 

"ONCHIP_RAM_DAT„FILE = $datf ile_hash{$mif_f ile} " , 

"-H" , "$$arg{sopc_directory}/bin/vpp/generator_f unctions .vpp" 
" $$arg{class_directory} /onchip_ram_byte_lane . vpp" , 

) ; 

} 

# Making a RAM requires both byte-lanes and a box to put them 

# in. Run Vpp again to build the top-level module. 
&Vpp C'-Q" , 

"-0" , B $top_f ile" , 

" ONCHI P_RAM_MODUIiE_NAME = $ $ ar g { name } " , 

"ONCHIP_RAM_WIDTH = $$SBI{Data_Width} " , 

"0NCHIP_RAM_DEPTH = $ depth." , 

" -H" , " $$arg{sopc_directory} /bin /vpp/ gene rator_f unctions .vpp" , 
" $ $ ar g { c las s_dir ec t ory } / onchip_r am . vpp " , 

) ; 

} else { 

# You can make a ROM with only one module: 

my $dat„filename = $datf ile_hash{ $mif f ile„list [0 ] } ; 
&Vpp ( " -Q" , 

"-0" , "$top__f ile" , 

" ONCHIP_ROM_MODUXjE_NAME = $ $arg {name } " , 

"ONCHIP„ROM_DEPTH = $depth" , 

"ONCHIP_R0M_WIDTH = $$SBI {Data_Width} " , 

11 ONCHIP_ROM_MIF_FILE„NAME = $mi f _name " , 
11 0NCH1P_R0M_DAT„FILE_JSFAME = $dat_f ilename" , 



"-H" , " $$arg{sopc_directory}/bin/vpp/generator_functions .vpp" , 
" $ $arg { class_direc tory } / onchip_rom , vpp " , 

) ; 

} 

5 

# We need to list our MIF-files, so their names can be "crushed" if 

# required for MaxPlus+II (two) . 
# 

&Add_HDI_INFO_Files_To_PTF 
10 ($db„Module, 11 KIF_Files " , @miffile_list) ; 

ScFill_In_Sections_And_Save_PTF„File ( $db_PTF_File, $arg, @synth_f ile_list ) 

} 

15 ################################################################ 

# &Generate__Blank_Mif_File 
# 

# This function, urn, generates a blank. . .mi f file. 
# 

20 # You pass-in the $arg-hash (ref ) from mk_RAM, so we have all the 

# information we might ever need. To generate a blank mif-file, 

# you don't need that much info. 
# 

################################################################ 
25 sub Generate_Blank_Mif_File 

1 { 

I my ($arg, $SBI, $depth) = (£_} ; 

I my $mif_header =«E0M; 

430 /* This source file generated by mk_ram.pl (&Generate_Blank_Mif__File) */ 
/* This file is used to initialize the memory-type module named: */ 
/* $$arg{name} */ 

WIDTH=$$SBI{Data_Width} ; 
DEPTH=$ depth ; 
35 ADDRESS_RADIX-UNS ; 
DATA_RADIX=HEX ; 
CONTENT BEGIN 

EOM 

::40 

my $blank_mif_name = " $$arg{system_di rectory} /$$arg {name }_blank .mif" ; 

open (MIFOUT, "> $blank__mif_name" ) or die 
"Couldn't open $blank__mif_name: $1"; 

45 

print MIFOUT $mif_header ; 
for (my $i=0; $i < $depth; $i++) { 
print MIFOUT "$i : 0;\n" ; 

> 

50 

print MIFOUT 11 END; \n" ; 
close (MIFOUT) ; 

return $blank_mif_name; 

55 } 

################################################################ 

# 5cCheck_For_Other_Germs_Monitors 
# 

60 # Riffle through the PTF-file and see if there are any other 

# GERMS-monitor-bearing memories. If there are, emit a warning. 

# There must be only one. 
# 



##### ########################################################### 

sub Check_For„Other_Germs_Monitors 
{ 

my ( $rom__name / $db_PTF_File) = (@_) ; 

my $db_Sys = &PTF_Get_Required_Child_By„Path ($db_PTF_File , "SYSTEM"); 



my $num_children = &get_child_count ($db_Sys) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++) { 
my $db„Module = &get_child ($db__Sys, $child„index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules, 
next if &get_data ($db_Module) eq $rom_name; # ignore myself. 

# The final "0" argument here means" It's ok if this section 

# doesn' t exist" . 

my $WSA = &PTF_Build__Hash_From_Section ($db_Module, 

"WIZARD_SCRIPT_ARGUMENTS" , 0 

next unless $$WSA{ Contents} =~ /germs/i; 

my $nasty_module_name = &get_data ($db_Module) ; 

warn ("WARNING: More than one memory contains a GERMS monitor: 
$rom_name and $ n a s t y__mo du 1 e_n ame 
Each system should have only ONE memory with a GERMS monitor . \n" ) 

} 

} 

################################################################ 

# System_Win98_Safe 
# 

# Win-98-safe "wrapper" for Perl's built-in 'system' command. 
# 

# Windows-98 can't handle an executable -name ($ARGV[0]) which 

# has forward slashes in it. WinNT and Win2000 can handle 

# either forward- or backward- slashe s . So, if we notice that 

# the operating system is Windows {or Cygwin) , then we convert 

# forward-slashes to backslashes in -only- the program-name 

# part of the sys tern- command. We leave all the arguments 

# alone — whether 1 / ' or ' \ ' is OK in an arugment is entirely 

# up to the program. 
# 

################################################################ 

sub System_Win98_Saf e 

{ 

my (@command__parts) = (@_) ; 

my $sys_cmd = join ( " " , @command_parts ) ; 

$sys_cmd =~ / A \s* ( \S+) \s+ { . * ) $/ or die 

"System_Win98_Saf e: Suspicious sys tern- command: $sys_cmd n ; 

my $program_path = $1; 
my $ arguments = $2; 

$program__path =~ s|/|\\|g if {$^0 =~ / (MSWin | cygwin) /i ) ; 

my $new„sys_cmd = " $program_path $arguments"; 
system { $new_sys_cmd) ; 

my $error_code = ($? » 8) ; 
return $error__code ; 

} 



################################################################ 

# Execution begins here 

################################################################ 
&Mk_RAM (@ARGV) ; 



mk_pio .pi 



################ 

# mk_pio.pl 
# 

# This Perl -script is the " Genera tor„Prograiti" 

# for the SOPC-Builder component class 1, altera_avalon_pio 1 ' . 
# 

# This generator program is very similar to the one you'll find 

# in the " altera_avalon_uart " library directory. If you are interested 

# in reading an over long comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart's generator program. 

# It is in a file named "mk_uart.pl" 
# 

use wiz_utils; 

################################################################ 

# Mk_PIO 
# 

# Builds a Nios PIO peripheral from a list of named arguments. 
$Mk_PIO_Doc=«END_OF„DOCUMENTATION„STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 
# 



has__tri tri 

has_out out 

has_in in 

edge_type edge 

irg__type irq 



NO 

YES 

YES 

NONE 

NONE 



^boolean* Tristatable pins? 
*boolean* Dedicated output pins? 
*boolean* Dedicated output pins? 
* (NONE | RISING | FALLING | ANY) * 
* (NONE | LEVEL | EDGE) * Type of IRQ? 



END_OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk_PIO 

{ 

my ($arg, $ us er_de fined, $db_Module, $db_PTF_File) = 
&Process_Wizard_Script_Arguments { $Mk_PIO__Doc , &_) ; 



my 



$SBI - &PTF_Build_Hash_From_Section ($db„Module, " SYSTEM_BUILDER_INFO " ) 



&Vpp {"-Q-, 

"-0" , n $$arg{system_directory}/$$arg{name} .v" , 



" PIO_MODULE_NAME 
" PIO_MODULE_NAME 
" PIO_TRISTATE_PINS 
n PIO_OUTPUT_PINS 
" PIO_INPUT_PINS 
" PIO__EDGE_CAPTURE 
" PIO_INTERRUPT 
n PIO_BITS 



= $$arg{name} " , 
= $$arg{name} " , 
= $$arg{has_tri} " , 
= $$arg{has_out} " , 
= $$arg{has_in} " , 
= $ $ arg { edge_type } " , 
= $$arg{irq_type} " , 
= $$SBI{Data_Width} " , 



B -H" , 

" $$arg{sopc__directory} / bin / vpp / genera tor_f unctions . vpp" , 
11 $$arg{class_directory} /pio_core . vpp" , 

) ; 

&Fill_In_Sections_And_Save„PTF_File ($db_PTF__File, $arg) ; 



} 



################################################################ 
# Execution begins here 

################################################################ 
&Mk_PIO (&ARGV) ; 



mk_spi .pi 



################ 

# mk_spi.pl 
# 

# This Perl-script is the "business end" of the 

# Nios SPI Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his (her) choices 

# along to this very script. 
# 

# The kind of spi core we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named arguments are one long comma-delimited string, 

# a list of 'normal' command-line arguments, or any combination 

# of both (we just smash all the command- line arguments together 

# into one long string anyhow) . 
# 

# The comma -de limited elements have the form: 

# <arg__name> = <value> . 
# 

# For a list of all the argument -names and their allowed values, 

# see the table below. 
# 

use wiz_utils; 

################################################################ 

# mk_spi 
# 

# Builds a Nios spi interface from a list of named arguments. 
# 

$mk_sp i_Do c =«END_JDF_D0CUMENTATION__STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 



databits 


— none— 


8 


* (\d+) * 


number of data bits . 


clockdiv 


--none— 


—none— 


*(\d+)* 


SCLK-gen divisor. 


nums laves 


— none— 


1 


* (\d+) * 


Number of slave devices. 


ismaster 


— none— 


1 


* (0 1 1) * 


If 1, master else slave. 


clockpolarity 


--none — 


0 


* (0 | 1) * 


If 0, clock idles low. 


clockphase 


—none— 


0 


* (0)1) * 


(see note, below) . 


lsbf irst 


— none — 


0 


* (0 | 1) * 


0 — > data is MSB first. 


targetclock 


--none-- 


1 


User 1 s 


target SCLK frequency (Hz) . 


targe tssdel ay 


— none — 


1 


User ' s 


target delay after SS_n (s) . 


extradelay 


—none— 


0 


* (0|1) * 


Boolean - if 0, no extra delay 



END„OF_D0CUMENTATI0N_STRING 

# 

# 

# The "clockphase" argument: 

# If 0, data is sampled on transition-to-idle of SCLK. 
# 

# The "delayaf terss" argument: 

# Delay after SS_n before data transmission starts, in SCLK half -cycles . 
# 

# Note: delayaf terss is a historical relic. In these modern times, 
spi_core . vpp 

# calculates its own delayaf terss value, using the system clock rate and the 

# user's targetssdelay value. 
# 

################################################################ 

sub mk__spi 

C 

my ($arg, $user_def ined, $db__Module, $dbJ?TF_File) = 
&Process_Wizard_Script_Arguments ($mk_spi_Doc , @„) ; 



&Progress ("Generating logic for: $$arg{name} . " ) ; 



10 



30 



35 



# The system clock rate is part of the equations that generate 

# actual SCLK and delay-af ter-ss values from the user's target 

# values. It's easy to read the ptf file here, so grab the clock 

# rate and pass it along. 

my $clock_freq = &PTF_Get_Required_Data_By_Path ( $db_PTF_File , 
" SYSTEM/WIZARD_SCRIPT_ARGUMENTS/clock_f req" , 
"System clock frequency not specified"); 



&Vpp C-Q", 

O " , " $$arg{system_directory} /$$arg{name} .v" , 

"SPI_MODULE__NAME = $$arg{name}\ 

" DATABITS = $$arg{databits}" , 

15 "NUMSLAVES = $$arg{numslaves} " , 

"ISMASTER = $$arg{ismaster} 1 \ 

"CPOL = $$arg{clockpolarity} " , 

"CPHA = $$arg{clockphase} " , 

"LSBFIRST = $$arg{lsbfirst}" , 

20 " INPUT_CLOCK = $clock_f req" , 

"TARGETCLOCK = $$arg{ targetclock} n , 

" TARGETS SDELAY = $$arg{ targetssdelay} " , 

"EXTRADELAY = $ $arg{ ex trade lay} " , 

"-H" , " $$arg{ sopc_di rectory } /bin/ vpp/generator_f unctions .vpp' 
25 " $$arg{class_directory} /spi_core .vpp" , 

) ; 



&Fill_In_Sections_And_Save_PTF_File ($db_PTF_File, $arg) ; 



} 



################################################################ 
# Execution begins here 

################################################################ 
&mk_spi ( @ ARGV ) ; 



mk_tiitier.pl 



################ 

# rak_timer.pl 
# 

# This Perl-script is the " Generator_Program n 

# for the SOPC-Builder component class "altera_avalon_pio" . 
# 

# This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an over long comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart's generator program. 

# It is in a file named ft mk__uart .pi " 
# 

use wiz_utils; 

################################################################ 

# MkJTimer 
# 

# Builds a Nios timer from a list of named arguments . 
$Mk_Timer_Doc=«END„OF„DOCUMENTATION__STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 

# -- At present, Timers are just timers. They don't really 

# depend on any timer-specific arguments. Howd'ya like that? — 

END_0F_D0CUMENTATI0N_STRING 

# 

# 

################################################################ 

sub MkJTimer 

{ 

my ($arg, $user_def ined, $db_Module, $db_PTF_File) = 
&Process_Wizard_Script_ Arguments ( $Mk_JTimer_Doc , %__) ; 

&Progress ("Generating logic for: $$arg{name} . " ) ; 

&Vpp ( H ~Q", 

"-0", "$$arg{system_di rectory} /$$arg{name} .v" , 
"TIMER_MODULE_NAME = $$arg{name} " , 

" -H" , " $$arg{sopc_directory} /bin/vpp/ genera tor_f unctions . vpp" , 
" $$arg{class_directory} / timer .vpp" , 

) ; 

&Fill_In_Sections__And_Save_PTF_File ($db_PTF_File , $arg) ; 

} 



################################################################ 
# Execution begins here 

################################################################ 
&Mk_Timer (@ARGV) ; 



mk_uart . pi 



################ 

# mk_uart.pl 
5 # 

# This Perl-script is the "Generator„Program" 

# for the SOPC-Builder component class "altera_avalon_uart " . 
# 

# This program (Perl script) is launched by the 

10 # SOPC-builder wizard as part of the "generation" phase. 

# "Generation" takes place after the user presses the wizards' 

# "Finish" button, but before synthesis takes place. During this 

# time, HDL-files for all components in the system are created. 

# Each modules' HDL-files are (one presumes) 

15 # generated by its " Genera torJProgr am . " This here is the 

# generator-program what generates UARTS. 
# 

# You may sensibly ask: How do we know what kind of UART to 

# generate, given that there are oh-so-many options and parameters? 
20 # Easy. The specification for the UART we are to build is 

# contained in the system's PTF-file. 
# 

# We can find the PTF-file by using our command-line arguments. 

# All generator-programs run by the SOPC-builder get the same 
25 # set of command-line arguments, which are: 

ir: # 

? ; # - - sy s t em_name =< sy s_name > 



s -r # 

7^ # Gives the name of the system module which will contain the 

3.0 # module we're supposed to generate. We need the name of the system 

;~" # (and the directory, above) so that we can find the system's 

^ # PTF-file. We can't do Jack without the PTF file. 

y # 

r\ # - S ystem_directory=<system-directory-path> 
35 # 

>i # Gives the name of the directory where we are to generate 

r4 # our Verilog files, and in which the system PTF-file can be found. 

# This is typically the users' quartus project directory. 

^ # 

^0 # -target_module_name=<mod-name> 

12 # 

# Gives the name of the module in the system PTF file which 

# we are supposed to generate. This lets us extract the appropriate 

# options, parameters, and whatnot from the PTF-file so that 
45 # we generate the right thing, and give it all the right name 

# when we 1 re done . 
# 

# — sopc_directory=<lib_dir> 
# 

50 # Gives the full path name for the SOPC-Builder installation 

# directory. From here, we can find all the relevant SOPC 

# Perl-scripts and utility programs (in the . . . \bin subdirectory). 

# We can also find any and all installed library components 

# (by-name in the . . . \components subdirectory) including, 

55 # significantly, the library for the very component we're trying to 

# generate. We must know where this library component 

# and all its support files reside (including, for example, its 

# "class .ptf" file). This makes it easy to find all the 

# "raw materials" we need to create the module that this 
60 # "genaratorjprogram" is supposed to generate. 



# 
# 

# You may notice that most of the work performed by this 



# generator program is done by handily-dandily library functions. 

# Indeed, the "wiz_utils" Perl library ( .pm module) contains functions 

# which are a boon to the generator_program author. Here is a 

# brief description of the library functions used by this 

# generator program. I list them here in the fond hope that they 

# might be useful to someone else trying to create their own 

# generator program. 
# 

# This generator program uses the utility functions: 
# 

# & Pr o c e s s_Wi z ar d_S c r ip t__Ar gumen t s 



# (from the library "wiz_utils .pm" ) This function takes our 

# input arguments (listed above) and uses them to: 
# 

# * Find and open the system PTF file. 
# 

# * Extracts this modules' WIZARD_SCRIPT„ARGUMENTS section. 

# * Reads all the arguments and verifies them against a document 

# which describes what we expect 

# (see DOCUMENTATION_STRING, below) . 

# * Passes-back all the arguments in a hashref we lovingly 

# refer to as $arg. 
# 

# * Hands us back a reference to the freshly-opened PTF-file 
# 

# * Sets a lot of handy global variables, like $QUARTUS_PROJECT_DIR 

# In short, this function does just about everything we need to do 

# to find and read this modules 1 parameters out of the system PTF file 
# 

# &F i 1 l_In_S e c t i ons__And__S ave_PTF_F i 1 e 
# 

# (from the library "wiz_utils .pm" ) You run this program after 

# you have generated all the logic (HDL) for your module. This 

# function fills-in your modules' PTF-section with lots of useful 

# information. In particular, it adds data to the PORT_WIRING 

# section which agrees with the actual ports present on your 

# module. This only works, of course, if your module logic was 

# generated by VPP. 



# 

# And I hear you asking: "What, exactly, is Vpp?" 

# Ah, yes. Vpp. Vpp is a Verilog/Perl hybrid, the purpose of which 

# is to generate plain-vanilla Verilog output. Vpp is a very powerful 

# way to generate lots of parameterized, conditionalized, itemized, 

# and sanitized logic from good-old Perl, the language we all love so 

# much. If you want to learn all about Vpp, there is an admirably- long 

# comment atop the library file "vpp.pm" With that, I leave you 

# to your own spunk and initiative to learn about Vpp. 
# 

# 

use wiz_utils; 

################################################################ 

# Mk_Uart 
# 

# Builds a Nios uart from a list of named arguments. 

# These arguments are actually fished-out from the 

# WIZARD_SCRIPT_ARGUMENTS section of the system PTF file. 

# We can find the system PTF file by following the trail 



10 



20 



# of breadcrumbs provided in our actual, official command- line 

# arguments ( " -directory" and such) described above. 
# 

$Mk_Uart_Doc=«END_OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 



baud 

f ixed_baud 
parity 
data_bits 
stop_bits 



baud 

fix_b 

par 

bits 

stop 



115200 

1 

N 

8 

2 



Uart baud rate. 

*boolean* Delete baud register? 
* (N|E|0|S1|SO) * Parity type. 
*{8|7)* Numer of data bits 
*{1|2)* Number of stop bits. 



END_0F_DOCUMENTATION_STRING 
# 



15 # 



#################################################### ############ 



sub Mk_Uart 
{ 



my ($arg, $user_def ined, $db_Module, $db_PTF_File) = 
&Process_Wizard_Script_Arguments ( $Mk_Uart_Doc , @__) ; 

ScProgress ("Generating logic for: $$arg{name} . " ) ; 



# The only required information which isn't supplied to the 
25 # uart directly in its own PTF-section is the system clock 
r . # frequency. We just have to rummage around in the system's 

# top-level PTF data to get that: 



30 



35 



40 



45 



my $clock_freq 



: &PTF_Get_Required_Data_By_Path ( $db_PTF_File, 
" SYSTEM/WIZARD_SCRIPT_ARGUMENTS/clock_f req" , 
"System clock frequency not specified") ; 



&Vpp <"-Q", 

"-0", "$$arg{system_directory}/$$arg{name} .v" 



" UART_CORE__MODULE_NAME 
" UART_BAUD_RATE 
" UART_F IXED_BAUD_RATE 
" UART_J?ARITY 
" UART__DATA_B ITS 
" UART_STOP_BITS 
" UART_INPUT_CLOCK_FREQ 
« -H" 



= $$arg{name}' 
= $$arg{baud}' 
= $$arg{f ixed_baud} 11 , 
$$arg {parity} " , 
$$arg{data_bits}" , 
$$arg{stop_bits} " , 
= $clock_f req" , 
$$arg{sopc_directory} /bin /vpp/ genera tor_funct ions .vpp* 
$ $arg { class_direc tory } /uart_core . vpp " , 
$$arg{class_directory} /rx.vpp" , 
$ $ arg { c las s__direc tory } / tx . vpp " , 



&Fill_In_Sections_And_Save_PTF_File { $db_PTF_File , $arg) ; 



50 



######## ######################################################## 

# Execution begins here 

55 ################################################################ 

&Mk_Uar t ( @ARGV ) ; 



mk__user socket . pi 

################ 

# mk_usersocket.pl 
# 

# This Perl-script is the "business end" of the 

# Nios User Socket Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his (her) choices 

# along to this very script. 
# 

# The kind of user socket we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named arguments are one long comma-delimited string, 

# a list of 'normal* command-line arguments, or any combination 

# of both (we just smash all the command-line arguments together 

# into one long string anyhow) . 
# 

# The comma- delimited elements have the form: 

# <arg_name> = <value>. 
# 

# For a list of all the argument -names and their allowed values, 

# see the table below. 
# 

use wiz_utils; 

################################################################ 

# MkJJserSocket 
# 

# 

# Under the new "one-PTF" regieme, user-socket wizards are a bit of an 

# odd duck. The "Generator Program" (the very script you're reading 

# now) doesn't actually -do- much, because there's no logic 

# (HDL-content) associated directly with the user-defined interface. 

# The interface is just a bunch of ports. 
# 

# So, our responsibility, really, is to fill-in the relevant PORT_WIRING 

# section in the PTF-file. 
# 

# Notice that, for user-sockets, the Java wizard is responsible for 

# all of the assignments in the SYSTEM_BUILDER__INFO section — as it 

# must be, or else the sopc-builder table wouldn't know what to do 

# with this thing (SBI must be complete when the sub-wizard exits) . 
# 

# Consequently, the user-socket wizard's method of telling us (the 

# generator program) what to do is through the SBI-settings 

# themselves . 
# 

# If you choose to look at it this way, the entire -point- of the 

# user-socket java-wizard is to provide a GUI for all the SBI settings. 
# 

my $pc = 11 per ipheral_con trolled" ; 

# Builds a Nios timer from a list of named arguments. 
$Mk__UserSocket_Doc=«END_OF_DOCUMENTATION__STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 

keep_legacy__ports legacy 0 Don't generate new port list. 

END_OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk_UserSocket 

{ 



my ($arg, $user_de fined, $db_Module, $db_PTF_File) = 

&Process_Wizard_Script_Arguments ( $Mk_UserSocket_Doc , @_) ; 

^Progress ("Generating port list for: $$arg{name> . " ) ; 

my $SBI = &PTF_Build„Hash_From_Section ($db_Module, " SYSTEM_BUILDER„INFO " ) 

&PTF_Eval ( $SBI , " Address_Width" ) ; 

&PTF_Eval ( $SBI , "Data_Width" ) ; 



if ( ( ! $$arg{keep_legacy_ports} ) ) { 

&List_Ports_For_User„Socket ($arg, $SBI) ; 
&Add_Module_Ports_To_PTF($db_Module, $$arg{name}) ; 
&write_ptf_file { $db_PTF_File) or die 

"Couldn't write PTF File when generating $$arg{name} " ; 

} 

} 



################################################################ 

# List_Ports_For_User„Socket 
# 

# Builds-up a string that describes the socket's ports, then 

# calls "&List__Ports_For" . 
# 

# Uses, mostly, information out of the SYSTEM_BUILDER_INFO section 

# to figger-out what ports this thing has. 
# 

################################################################ 

sub List_Ports_For__User_Socket 

{ 

my ($arg, $SB1) = (@_) ; 

my $be_width = &ciel ( $$SBI {Data_Width} / 8) ; 

my $D_bits = $$SBI {Data„Width} ; # short names for pretty tables, 

my $A_bits = $$SBI {Address_Width} ; # short names for pretty tables, 

my $has_wait_pin = ($$SBI {Read_Wait_States} =~ /^periph/i | | 

$$SBI{Write„Wait_States} =~ /^periph/i ); 

my $data_is_shared = $$SBI {Uses_Tri_State_Data_Bus} ; 
my $control_is_shared = ($data_is„shared ) && 

($$SBI{Setup_Time} ==0) && 

($$SBI{Hold_Time} ==0) 



my $irq_port = "irq | 1 | 0 
my $wait__port = "wait | 1 | 0 



avalon„role = irq" ; 
avalon_role = waitrequest " ; 



my @unshared_ports = 
"chipselect | 1 



{ 



my @shared_with_data_ports = 
"byteenablen | $be_width 
"address | $A_bits 



= ( 
| I 
I I 



avalon_role = chipselect"); 



[ avalon__role 
j avalon_role 



by t e enablen " 
address " 



) ; 



my @sometimes_shared_control_ports = ( 
"writen | 1 | I | avalon_role = writ en" , 

"readn | 1 | I | avalon„role = readn" ) ; 



if {$$SBI{Uses_Tri_State_Data__Bus} } { 
$data_is_shared = 1; 
push ( @shared_with_data_port s , 

"data | $D_bits | inout | avalon_.ro le = data"); 

} else { 

push (@unshared_ports, 

"readdata | $D_bits | 0 | avalon_role = readdata" , 



"writedata | $D_bits | I | avalon_role = writedata" ) ; 

} 

push (@unshared_ports, $irq_j?ort) if $$SBI {Has_IRQ} ; 

push (@unshared_ports, $wait_port) if $has_wait _j?in; 



# Add "shared" attribute to all ports that might need it: 
# 

for (my $i=0; $i < scalar (@shar ed__with_dat aborts ) ; $i++) { 

$shared_with_data_ports [$i] .= " | is_shared = $data_is_shared" 

} 

for (my $i=0; $i < scalar (©sometime s„shared_contro l_ports) ; $i++) 
$sometimes_stiared_control^orts [$i] . = " | is_shared= $control_ 

} 

my @port_list = (@unshared_ports , 

@shared_with_data„ports , 
@sometimes_shared__control jorts , 

) ; 

&List_Ports_For ($$arg{name> , @port_list) ; 

} 



####### #######################################################^ # 
# Execution begins here 

###### ########################################################## 
&Mk_UserSocket (@ARGV) ; 



mk_nios .pi 



################ 

# mk_nios.pl 

# 

# This Perl-script is the "Generator_Program" 

# for the SOPC-Builder component class "altera„nios_cpu" . 
# 



10 



15 



20 



25 



# This generator program is 
# 



45 



50 



55 



60 



very similar to the one you'll find 
tr in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uarf s generator program. 

# It is in a file named n mk__uart .pi" 
# 

use wiz_convert; 
use wiz_utils; 

### ############################################################^ 
# 

# MkJSTios 
# 

# Builds a Nios core from named arguments, including all 

# design and support files, plus synthesis script. 
# 

$Mk_Nios_Doc=«END_OF_DOCUMENTATION„STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

& 

* (128 | 256 | 512) * Reg file size. 
* (1 | 3 | 7 | 15 | 31) * Bits/elk shift speed 
*boolean* Include MSTEP unit? 
*boolean* Include multiply unit? 
*boolean* Writeable WVALID reg? 
*boolean* Decoders in ROM? 
CPU reset vector lives in here. 
Reset vec offset from device base 
CPU vector table lives in here. 
Vecbase this far from device base, 
main memory address span, 
main memory base address. 

END_0F„D0CUMENTATION_STRING 
# 
# 





num_regs 


regs 


25 


So 


shif t_size 


shift 


7 




mstep 


mstep 


1 




multiply 


multiply 


0 




wvalid_wr 


wr_wv 


0 




rom_decoder 


--none — 


1 


;;35 


*reset_module 


— none — 


--none- 




reset__of f set 


— none— 


0 




*vecbase_module 


--none — 


--none- 




vecbase_pf f set 


— none — 


0 




mm_span 


mm_span 


— none 


;4o 


mm_base 


mm_base 


— none 



sub Mk_Nios 

{ my ($arg, $user_def ined, $db_Module / $db_PTF_File) = 
&Process_Wizard_Script_Arguments ( $Mk_Nios_Doc , @_) ; 

# Allow expressions, hex-numbers, etc. for the address-offsets 



# 

&PTF_Eval 
&PTF Eval 



($arg, " reset_of f set " ); 
($arg, "vecbase_of f set " ); 



&Progress { "Generating Nios CPU: $$arg{name} .") ; 
################ 

# We'll be rummaging-around in the system PTF file quite a 

# lot, so a handle to the 11 SYSTEM" -section and some of its important 

# children would be useful. 

mv $db Sys = &PTF_Get_Required_Child_By„Path ($db„PTF_File, 

" SYSTEM" ) ; 



my $ SB I = &PTF_JBuild_Hash_From__Section {$db_Module, 

" SYSTEM_BUILDER_INFO " ) ; 

my $Sys_WSA = &PTF_Build_Hash_From_Section ($db_Sys, 

11 WIZARD_SCRIPT_ARGUMENTS " 

&PTF__Check_JBool ($Sys_WSA, " do_Jbuild__sim" , 0); 

&PTF_Default ($Sys_WSA, "device_f amily " , "APEX20K") ; 



################ 

# Get global s that will control synthesis and place and route 
# 

my @globals_ 2_control_synthesis_place„and_route = 

&f illup_synthe si s_£>lace„and_r out e — global s ($db_Module) ; 

################ 

# Start a * rummagin 1 . 
# 

# Go through all the modules in the system and see if any have a 

# "registered chip select." If (and only if) any module does, then 

# the CPU needs to be built with the ,! idle„cycle" option set to "YES" 
# 

# While we're looping through every module, now would also be a good 

# time to pull-out the base-addresses of the modules designated 

# as the reset-module and the vecbase -module, respectively. 
# 

my $reset_base_address = 0; 

my $vec„table_base_address = 0; 
my $do_use_idle__cycle = 0; 

my $num_children = &get_child_count ($db_Sys ) ; 

for (my $child_index = 0; $child_index < $num_children; $child_index++) 

my $db_Module = &get__child ($db_Sys, $child_index) ,- 
next unless &get_name ($db„Module) eq "MODULE"; 
my $module_name = &get_data ($db_Module) ; 

# If this is the designated reset- (or vecbase-) module, 

# remember the base-address. 
# 

if ( $ mo du 1 e_n ame eq $$arg{reset_module} ) { 

$reset_base__address = &PTF__Get_And_Evaluate_Data_By_Path 
( $db_Module , " SYSTEM_BUILDER_INFO/Base_Address " ) ; 

} 

if ( $module_name eq $$arg{vecbase_module} ) { 

$vec_table_base_address = &PTF_Get - _And__Evaluate_Data_By_Path 
( $db_Module , " SYSTEM_BUILDER_INFO/Base_Address 11 ) ; 

> 

# If this module has any registered chip-selects, then there 

# will be a special assignment to this effect in its SBI-section: 
# 

$do_use_idle_cycle = 1 

if &PTF__ Get_Boolean_Data_By_Path ($db_Module, 

" SYSTEM_BUILDER__INFO/Uses_Regis tered_Selec t_Signal " 
"FALSE") ; 

} 

my $vecbase_address = $vec__table_base_address + $$arg{vecbase„of f set} ; 
my $reset_address = $reset_base_address + $$arg{reset_of f set } ; 

# For historical reasons, the Nios VPP-stuff wants the number of 

# address bits converted to the "highest system address." Fine, 
my $highest_address = <2**$$SBI{Address_Width} ) - 1; 



################ 

# User-instructions . 
# 

# Read and interpret any USER_INSTRUCTION sections 

# of the CPU modules' PTF. Here's an example of a "USER_INSTRUCTION" 

# section: 



# 

# USER_INSTRUCTION MAD_FMUL 

# { 

# format="RR" ; 

# opcode= n 011100 11 ; 

# uses __pref ix=" 1" ; 

# has_sequential_logic= 1 ' 1" ; 

# top„module_name = "MAD_FMuT.__Unit " ; 

# do_synthesize„top= " 1 " ; 
# 

# HDL_INF0 

# { 

# synthesis„f iles = " fmul_iinplementation . v" ; 

# ) 

# } 



# Information about the instructions we find is (evilly) passed 

# to the Nios generator-programs through (gasp!) global variables 

# They have scary-looking all-caps names that start with "NIOS" , 

# so it should be pretty hard to get into trouble. 
# 

# Also, now's the time when we start accumulating HDL-files 

# for synthesis, if any. 
# 

# NOTE: This feature is in a sort of pre-release limbo. It's here, 

# but we're not really telling anyone about it (if you're reading 

# this comment, consider yourself a lucky winner) . For this reason, 

# error-checking is pretty minimal. It would be easy to make 

# an invalid USER_INSTRUCTION section that would crash the 

# Nios-generation step. Caveat usor. 
# 

# Note that this time we're looping- through the Nios ' s sub-sections, 

# instead of the system's sub-sections: 
# 

$NIOS_HAS_USER_INSTRUCTIONS = 0; 
$NIOS_USER_INSTRUCTION_SUPPORT_PREFIX = 0; 

undef %NIOS_USER_INSTRUCTI0N_FORMAT; # Null-out our globals 

undef %NIOS_USER_INSTRUCTION__OPCODE ; 

undef %NIOS_USER_INSTRUCTION_GETS_PREFIX ; 

undef %NIOS„USER_INSTRUCTION_IS_SEQUENTIAL ; 

undef %NIOS_USER_INSTRUCTION_MODULE_NAME ; 

undef %NIOS_USER_INSTRUCTION_IS_BLACKJ30X ; 

@NIOS_USER_MNEMONIC__LIST = (); 

my @Instruction„Unit_Synth_File„Iiist = (); 

my $num_children = &get_child_count ( $db_Module) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++> 

{ my $db_Instr = &get_child ($db_Module, $child_index) ; 

next unless &get_name ($db_Instr) eq »USER„INSTRUCTION" ; 
$NIOS_HAS_USER__INSTRUCTIONS= "Yes , indeedy " ; 

my $mnemonic = &get_data ($db_Instr); 

push (@NIOS_USER_MNEMONIC_LIST, $mnemonic) ; 



$NIOS_USER_INSTRUCTION_FORMAT {$mnemonic} = 

&PTF_Get_Required_Data_By_Path ( $db_Instr , " format " ) ; 
$NIOS_USER_INSTRUCTION_OPCODE {$mnemonic} = 

&PTF_Get_Required_Data_By_Path ( $db_Instr , " opcode " ) ; 
$NIOS_USER_INSTRUCTI0N_GETS_PREFIX { $nmemonic } = 

&PTF„Get_Boolean_Data_By_Path ($db_Instr, "uses_pref ix" ) ; 
$NIOS_USER„INSTRUCTION__IS_SEQUENTIAL {$ mnemonic} = 

&PTF_Get_Boolean_Data_By_Path ($db_Instr, ,, has_sequential_logic" } 
SNIOS_USER_INSTRUCTION__MODXJLE_NAME {$mnemonic} = 

&PTF_Ge t_Required_Data„By_Path ( $db_Ins tr , " top_module_name " ) ; 
$NIOS_USER_INSTRUCTION_IS_BLACK_BOX {$mnemonic} = 

! &PTF_Get_Boolean_Data_By__Path ($db_Instr, "do^synthesize.top") ; 

$NIOS_USER_INSTRUCTION_SUPPORT_PREFIX | = 

$NIOS_USER_INSTRUCTION_GETS_PREFIX {$mnemonic} ; 

if {I $NIOS jaSER_INSTRUCTION_IS_BLACK„BOX { $mnemonic } ) 
{ 

my $file_string = &get_data_by_path ($db_lnstr, 

,, HDL_INFO/synthesis_f iles" ) ; 

push ( ©Instruct ion_Unit_Synth_File_Ijist , 
split (/\s*\,\s*/, $file_string) ) ; 

} 

} 

# There. We've now set a whole bunch of globals for the Nios 

# vpp-code to use. I'm totally ashamed of myself. 



################ 

# Firm Flip-Flop Generation 
# 

# We create several Firm_Flip_Flop variants so that we can, for example, 

# assign Fast I/O register attributes to them. 
# 

# These global variables we're setting get used 

# inside the nios-core Vpp script. David Van Brink would be 

# horrified. 
# 

# We assign the "FAST„OUTPUT_REGISTER or »FAST_INPUT„REGISTER" 

# attribute to these depending on whether the system-at-hand has a 

# "principal" tri-state databus . If it does, then we presume 

# off -chip access is speed-critical, and we make these 

# assignments. If there is no "principal" tri-state databus, then 

# we -exlicitly- create the ESF-file anyhow, but with these 

# assignments turned OFF. We do this to overwrite any 

# past-versions of these esf -files that may be lying around. 
# 

# These names used to be long and luxurious. Now they're short 

# and spartan. FPGA Express gets angry if your name runs over 32 

# characters, and the old long names "used up" 16 precious characters. 

# Now they onlu use-up three. But they're short. And spartan. Sorry. 
# 

$ADDRESS_OUT_REG_MODULE_NAME = $$arg{name> . "_ar" ; # _address_out„reg 
$C0NTR0L_OUT_REG_M0DULE_NAME = $$arg{name} . "_cr n ; # „control_out_reg 
$DATA_IN_REG_MODUtiE„NAME = $$arg{name> . "_dr"; # _data„in_reg 

&Create_Firm_Flip_Flop_Variant { $$arg{system_di rectory} , 

$$arg{sopc__directory} , 
$$Sys_WSA{device_family} , 
$ADDRESS„OUT_REG„MODULE_NAME , 
$C0NTROIi_OUT_REG_MODULE_NAME , 



$ DATA„IN_REG_MODULE_NAME 
) ; 

my $ f as t_s witch. = { $$Sys_WSA{Principal„Tri__State_Data_Bus } ) ? " ON" : 

"OFF" ; 

&Create„ESF_File ( " f irm_f lip_f lop : FAST_OUTPUT_REGISTER = $f ast_switch; 
$$arg{system_„di rectory} , 
$ ADDRES S__OUT_REG__MODULE_NAME , 
$CONTROL__OUT_REG_M0DULE_NAME , 
) ; 

&Create_ESF_File ( " f irm_f lip_f lop : FAST_INPUT_REGI STER = $f ast__switch; " 
$$arg{system_directory} , 
$ DATA_IN_REG„MODULE_NAME 
) ; 

################ 

# "Run" Vpp 
# 

# The Nios core has more vpp source- files than William Howard Taft 

# has whiskers . So be it . 
# 

my $vpp_source_dir = " $$arg{class„directory} /vpp_source" ; 
my @vpp_f i 1 e_l i s t = { 

" -H" , " $$arg{class_directory}/vpp_source/firm_flip_flop.vpp" , 
"-H" , , '$$arg{sopc„directory}/bin/vpp/generator_functions.vpp" , 
" -H" , " $vpp_source_dir/processor__generator_f unctions .vpp" , 
" -H" , " $vpp_source_dir/cpu_interf ace . vpp" , 
" -H" , " $vpp„source„dir /mnemonics .vpp" , 
" -H" , " $vpp_source„dir/control_bits .vpp" , 

" $vpp_source_dir/maj or_opcode_t able .vpp" , 

" $vpp_source_dir / subtable_w . vpp " , 

" $vpp„source_dir/instruction_decoder .vpp" , 

" $vpp_source_dir/register_ram.vpp" , 

" $vpp_source_dir/cpu„core .vpp " , 

) ; 

if ($$arg{multiply}) { 

push (@vpp_f ile_list, ( " $vpp_source_dir/mul„unit . vpp" ) ) ; 
push {@Instruction_Unit__Synth_File_List , 

" $$arg{system_directory} /$$arg{name} \_mul_unit .v" ) ,- 

} 

^Progress ("Running Vpp for Nios CPU: $$arg{name} . " ) if $ $arg {verbose } ; 

$VPP_EXTERNAL__SECURE = 0; 
&Vpp ( 

split C/\s+/, "-Q -X v"), 
# "-R" , 

"-D" , 11 $$arg{system_directory} " , 
"-P" , $$arg{name} . »_» , 
" NIOS_DATA_BITS 

"NIOS„SINGLE_CLOCK_SHIFT_DEPTH 
"NIOS_REGISTER_FILE_SIZE 
" NIOS_WRITEABLE_WVALID_REGISTER 
" NIOS - USE_DECODER_ROMS 
"NIOS_MSTEP_SUPPORT 
"NIOS_MULTIPIiY_SUPPORT 
"NIOS_SYSTEM_HIGHEST_ADDRESS 
" NIOS_MAIN_MEM_BASE_ADDRESS 
" NI OS__MAIN_MEM_ADDRES S_S PAN 
"NIOS_VECBASE 
"NIOS_RESET_ADDRESS 



= $$SBI{Data_Width} " 

= $$arg{shif t_size} " 

= $$arg{num_regs} " 

= $$arg{wvalid__wr} " 
= $ $ arg { r om_decoder } " 

= $$arg{mstep} " 

= $$ arg {multiply} " 

= $highest_address " 

= $$arg{mm_base} " 

= $$arg{mm_span} " 

= $vecbase_address " 

= $reset_address " 



"NIOS_TURNAROUND_IDIiE_CYCLE = $do__use_idle_cycle " , 

@globals_2_control_syn thesis _jplace_and_route , 
@vpp_f ile_list , 
) ; 

################ 

# Convert mif-files to dat-files 
# 

if ($$SysJtfSA{do_build_sim} && $$arg{rom_decoder}) { 
&Nios_Convert_ROM ( $arg, "ma j or_opcode_table " } ; 
&Nios„Convert_ROM ( $arg , " subtable_w" ) ; 

} 

################ 

# Update the PTF-file so that it has correct 

# ports and HDL-files that agree with the Nios we just 

# generated. 
# 

ScProgress ("Updating PTF for Nios CPU: $$arg{name} . " ) if $$arg{verbos 
&Add_Module_Ports_To_PTF ( $db_Module , $ $arg {name } ) ; 

&Add_Synthesis_Files_To_PTF ($db_Module, <2instruction_Unit_Synth„File 
" $$arg{ syst em_di rectory } / $DATA_IN_REG_MODUIjE__NAME . v" , 
" $ $arg{ system_direc tory } / $ADDRESS_OUT_REG_MODULE_NAME . v" , 
» $$arg{system_directory} / $CONTROL_OUT„REG_MODULE_NAME , v" , 
"$$arg{system_directory}/$$arg{name}\_register__ram.v ,, , 
" $$arg{sys tem„direc tory} /$$arg {name} \_major_opcode_table . v" , 
" $ $arg { sys tem_di rectory } / $ $arg {name } \_subtable_w . v " , 
"$$arg{system_directory}/$$arg{name}\_instruction_decoder.v" , 

« $ $arg { system_directory} / $ $arg {name } \_cpu_core . v" , 
) ; 

# We need to list our MIF-files, so their names can be "crushed" if 

# required for MaxPlus+II { two) . 
# 

if ($$arg{rom_decoder} ) { 

&Add_HDL_INFO_Files_To_PTF 

($db_Module, "MIF_Files " , 
" $$arg{ system_directory } / $$arg{name} \_maj or_opcode_table . mif 

" $ $arg{ system_directory } / $$arg {name } \_subtable_w . mif " , 

) ; 

} 

&write_ptf_file ( $db_PTF_File) or die 

"Couldn't write PTF File when generating Nios CPU: $$arg{name} 

} 

#########################################################*##*^^^ 

# Nios_Convert_ROM 
# 

# Gets used twice, so I guess it's a subroutine. 

* ######################## ####################################### 
sub Nios_Convert_ROM 

{ 

my ($arg, $table_name) = (@_) ; 

my $full__table_name = " $$arg{name}_$table_name" ; 

&Convert_Mif_To_Dat ( " $$arg{ system_direc tory} /$full_table_name .mif " 

" $$arg{system_sim_dir} /$full_table_name .dat" 

} 

###### ########################################################## 

# f illup_synthesis j»lace_and_route_globals ; 



# 

# Reads values from " SYNTH_CONTROL " section of PTF, builds them 

# into a list of name=value pairs. 

# This list gets passed along to Vpp, so it can do its evil kludge 
5 # of setting global variables . 

# 

################################################################ 

s ub f i 1 lup_syn the s i s p 1 ac e_and_r ou t e_g lobal s 

{ 

10 my ($db_Module) = (@_) ; 

# The trailing "0" argument means "strict-0": It's OK if section doesn't 

# exist 

my $SC_hash = &PTF_Build_Hash_From_Section ($db_Module, " SYNTH_CONTRQL M , 0) 

15 

my @name__eguals__value__l i s t = ( ) ; 
foreach $var_name (keys (% { $SC„hash} ) } { 

push (@name_equals__valu e_list, " $var__name=$$SC_hash{$var_name} " ) ; 

} 

20 return @name_equals__value_list ; 

} 

################################################################ 

# Execution begins here 

25 ################################################################ 
O &MkJSios (@ARGV) ; 
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